Innere Schleife verlassen wenn
15.10.2020 14:51:09
Timo
ich stehe auf dem Schlauch. Vllt kann jmd helfen.
Mein Makro vergleicht die Spalte A von Tabelle1 mit der Spalte A von Tabelle2.
Für jede Zeile der Spalte A aus Tabelle 1 soll geprüft werden, ob dieser Wert in Spalte A der Tabelle2 vorhanden ist. Wenn alle Zeilen durchlaufen sind und keine Übereinstimmung gefunden, dann soll der Wert in eine Tabelle3 übertragen werden (hier sammel ich die Werte ohne Übereinstimmung).
Leider habe ich einen Fehler gemacht, finde ihn aber nicht.
Sub Abgleich()
Dim zeile1 As Variant
Dim zeile2 As Variant
Dim erstefreiezeile As Variant
Dim t1 As String
Dim t2 As String
erstefreiezeile = Sheets("Tabelle3").Cells(1048576, 1).End(xlUp).Row + 1
t1 = "Tabelle1"
t2 = "Tabelle2"
For zeile1 = 7 To 100
For zeile2 = 2 To 80
If Sheets(t1).Cells(zeile1, 1).Value = Sheets(t2).Cells(zeile2, 1) Then
Else
Sheets(t1).Cells(zeile1, 1).Copy Destination:=Sheets("Tabelle3").Cells( _
erstefreiezeile, 1)
End If
Next zeile1
Next zeile2
End Sub