ich benutze diesen Code um gleiche Zeilen aus zwei Arbeitsblättern in bestimtmen Spalten zu finden und dann in ein drittes Blatt zu schreiben
Wenn Zeile 1 ( Blatt1 ) = Zeile 2 (Blatt 2) dann Liste auf Blatt dies und das und jenes.....
Funktioniert tadellos.
Aber nun wollte ich die Abfrage einfach umgekehrt laufen lassen und habe statt
If dann IF NOT abgefragt.
Allerdings funktionierts nun nicht...
Wie kann das liegen ?
Sub xcheck()
Application.ScreenUpdating = False
Dim ZeileQuelle As Integer
Dim ZeileReferenz As Integer
Dim ZeileZiel As Integer
Dim SheetReferenz As Worksheet
Dim SheetQuelle As Worksheet
Dim SheetZiel As Worksheet
' Variablen initialisieren
ZeileZiel = 18
Set SheetQuelle = Worksheets(1)
Set SheetReferenz = Worksheets(2)
Set SheetZiel = Worksheets(3)
' Alle Zeilen aus Referenz durchgehen
For ZeileReferenz = 1 To SheetReferenz.Range("A65535").End(xlUp).Row
' Aller Zeilen aus Quelle durchgehen
For ZeileQuelle = 1 To SheetQuelle.Range("A65535").End(xlUp).Row
' Nach Übereinstimmung suchen
If SheetQuelle.Cells(ZeileQuelle, 1) = SheetReferenz.Cells(ZeileReferenz, 5) Then
' Daten von Quelle nach Ziel kopieren
SheetZiel.Cells(ZeileZiel, 2) = SheetQuelle.Cells(ZeileQuelle, 1)
SheetZiel.Cells(ZeileZiel, 1) = SheetReferenz.Cells(ZeileReferenz, 1)
SheetZiel.Cells(ZeileZiel, 3) = SheetReferenz.Cells(ZeileReferenz, 3)
SheetZiel.Cells(ZeileZiel, 4) = SheetReferenz.Cells(ZeileReferenz, 7)
SheetZiel.Cells(ZeileZiel, 4) = SheetReferenz.Cells(ZeileReferenz, 4)
ZeileZiel = ZeileZiel + 1
Exit For
End If
Next
Next
End Sub