For intcounter2 = 4 To strLeereZelle2
VERGLEICH_DATUM_QUELLE = ws.Cells(intcounter, 3).Value
VERGLEICH_DATUM_ZIEL = Workbooks(1).Worksheets("Tabelle1").Cells(intcounter2, 1).Value
VERGLEICH_HT_QUELLE = ws.Cells(intcounter, 4).Value
VERGLEICH_HT_ZIEL = Workbooks(1).Worksheets("Tabelle1").Cells(intcounter2, 2).Value
If VERGLEICH_DATUM_QUELLE = VERGLEICH_DATUM_ZIEL And VERGLEICH_HT_QUELLE = VERGLEICH_HT_ZIEL _
_
_
Then
Else
ws.Activate
With ws
.Range((.Cells(intcounter, 3)), (.Cells(intcounter, 6))).Select
End With
Selection.Copy
Workbooks(1).Worksheets("Tabelle1").Activate
Workbooks(1).Worksheets("Tabelle1").Cells(strLeereZelle2, 1).Select
ActiveSheet.Paste
End If
Next
Klappt soweit ganz gut. Dumm nur, dass er natürlich sofort ins Else rutscht und kopiert bevor er über die "For-Schleife" die nächste Zeile checkt.
Kann ich ihm irgendwie sagen, dass er erst alle Zeilen der For-Schleife prüfen soll und erst wenn bei allen die If-Abfrage nicht zutreffend war ins Else gehen soll?
Ihr würdet mir super helfen - danke schon ma :-).