Hallo allerseits,

ich hoffe ihr könnt mir bei meinem Problem helfen. Ich versuche per Klick eine Eingabe auf Tabelle2 mit einer Tabelle auf Tabelle1 zu vergleichen, dabei sollen bei genauer Übereinstimmung dreier spezifischer Felder, unabhängig in welchem Feld die Daten stehen, die Daten in einen weiteren Zellenbereich geschrieben werden. Also bspw. wenn in zwei Feldern A und B steht, sollen alle Zeilen gefunden werden in denen auch genau nur A und B egal in welcher Reihenfolge steht gefunden werden.

Soweit ich die bisherigen Ausgaben überblicken kann, funktioniert es sobald 2 oder 3 Felder ausgefüllt sind, allerdings nicht, wenn nur ein Feld ausfüllt ist. Dort gibt es teilweise auch Daten aus, bei der es nur eine Übereinstimmung gibt. Hab mittlerweile schon so einiges probiert, komme aber hier nicht mehr weiter. Danke schon einmal für eure Hilfe.

Private Sub CommandButton1_Click()
Dim i As Integer
i = 2
Dim Wertung As Double

Do While IsEmpty(Tabelle1.Cells(i, 1)) = False

    If (Tabelle2.Cells(2, 3).Value = Tabelle1.Cells(i, 3).Value Or Tabelle2.Cells(2, 3).Value = Tabelle1.Cells(i, 4).Value Or Tabelle2.Cells(2, 3).Value = Tabelle1.Cells(i, 5).Value) _
    And (Tabelle2.Cells(2, 4).Value = Tabelle1.Cells(i, 3).Value Or Tabelle2.Cells(2, 4).Value = Tabelle1.Cells(i, 4).Value Or Tabelle2.Cells(2, 4).Value = Tabelle1.Cells(i, 5).Value) _
    And (Tabelle2.Cells(2, 5).Value = Tabelle1.Cells(i, 3).Value Or Tabelle2.Cells(2, 5).Value = Tabelle1.Cells(i, 4).Value Or Tabelle2.Cells(2, 5).Value = Tabelle1.Cells(i, 5).Value) Then
        
        Tabelle2.Cells(i + 3, 1).Value = Tabelle1.Cells(i, 1).Value
            
        'Wertung...
        
    Else: Tabelle2.Cells(i + 3, 1).Value = 0
    End If
    
    i = i + 1

Loop
End Sub