VBA - Worksheet (Spalte) durchsuchen und Werte auslesen

=SUMME((Data!$A2:$A1000=Ergebnis!A2)*(Data!$B2:$B1000=Ergebnis!B2)*Data!$C2:$C1000)

=SUMME((Data!$A:$A=Ergebn!A2)*(Data!$B:$B=Ergebn!B2)*WAHL(ISTZAHL(Data!$C:$C)+1;0;Data!$C:$C))

    Const FormelText = "=SUM((Data!$A$2:$A$%1=A%2)*(Data!$B$2:$B$%1=B%2)*Data!$C$2:$C$%1)"  

   '........  
    
    With Sheets("Data")  
        EndZeile = .Cells(.Rows.Count, "A").End(xlUp).Row  
    
        SumFormel = Replace(FormelText, "%1", EndZeile)  
       
       '........  
        Sheets("Ziel").Cells(Zeile, "C").FormulaArray = Replace(SumFormel, "%2", Zeile)  
    End With
   
   '........  

Const StartZeile = 2

Const FormelText = "=SUM((Data!$A$2:$A$%1=A%2)*(Data!$B$2:$B$%1=B%2)*Data!$C$2:$C$%1)"  

Sub DatenSammeln()
    Dim Wks As Worksheet, Zeile As Long, EndZeile As Long, c As Range, i As Long, SumFormel As String

    Set Wks = ThisWorkbook.Worksheets("Ergebnis")  
    
    Wks.Cells.Clear
        
    With ThisWorkbook.Worksheets("Data")  
       .Range("A1:C1").Copy Wks.Range("A1")  
    
        Zeile = StartZeile:  EndZeile = .Cells(.Rows.Count, "A").End(xlUp).Row  
        
        SumFormel = Replace(FormelText, "%1", EndZeile)  
        
        For Each c In .Range("A:A")  
            If IsEmpty(c) Then Exit For
            
            If c.Row >= StartZeile Then
                For i = StartZeile To Zeile - 1
                    If c = Wks.Cells(i, "A") And c.Offset(0, 1) = Wks.Cells(i, "B") Then Exit For  
                Next
                
                If i = Zeile Then
                    Range(c, c.Offset(0, 1)).Copy Wks.Cells(Zeile, "A")  
                    Wks.Cells(Zeile, "C").FormulaArray = Replace(SumFormel, "%2", Zeile)  
                    Zeile = Zeile + 1
                End If
            End If
        Next
    End With
End Sub