if...then...else... Frage
17.05.2018 12:37:54
Lutz
ich habe scheints einen Blackout...
Ich möchte Daten abgleichen und bei Übereinstimmung in die Tabelle ausgabe und bei nicht übereinstimmung in die Tabelle offen übergeben.
Klappt nur irgendwie nicht...
Sub test()
a = 2
b = 2
For i = 8 To 11 Step 1
For y = 8 To 11 Step 1
If tbl01.Cells(i, 3) = tbl01.Cells(y, 8) Then
tbl02.Cells(a, 1) = tbl01.Cells(i, 3)
tbl02.Cells(a, 2) = tbl01.Cells(y, 9)
a = a + 1
ElseIf tbl01.Cells(i, 3) tbl01.Cells(y, 8) Then
tbl03.Cells(b, 1) = tbl01.Cells(i, 3)
b = b + 1
End If
Next y
Next i
End Sub
In Tabelle offen stehen alle Namen 3x.
Wo ist mein Fehler?
Danke und Gruß vom Lutz