Hallo Holger,
Ich will da 2 Tabellen miteinander Vergleichen. Wenn der Inhalt der einen Tabelle in der anderen Vorkommt ist alles in Ordnung und er soll die nächste Zeile überprüfen.
Wenn es aber nicht gefunden wird (nur dann) soll es auf die "zuPrüfen" liste kommen.
Hab den Code nochmal ein wenig angepasst
thx
[code]
Sub prufen()
Dim BereLange As Integer
Dim SachLange As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
k = 0
'Länge der Liste 1 und 2
BereLange = Sheets("seite1").Range(RowsCount, 1).End(xlUp).Rows
SachLange = Sheets("seit2").Range(RowsCount, 1).End(xlUp).Rows
With Worksheets("seite1")
For j = 2 To SachLange
For i = 3 To BereLange
If Worksheets("seite2").Cells(j, 1).Value = .Cells(i, 1).Value And _
Worksheets("seite2").Cells(j, 21).Value = .Cells(i, 2).Value And _
Worksheets("seite2").Cells(j, 9).Value = .Cells(i, 3).Value And _
Worksheets("seite2").Cells(j, 8).Value = .Cells(i, 4).Value And _
(Worksheets("seite2").Cells(j, 6).Value <= .Cells(i, 5).Value Or _
.Cells(i, 5).Value = "") Then next j <---------GEHT NIE, wenn ich dich richtig verstanden hab
'sind wir beim letzten liste2 angekommen?
'Ja: dann nicht gefunden und auf Seite "zuPrüfen" kopieren
Else
If i = BereLange Then _
Worksheets("seite2").Cells(j, 1).Value = Worksheet("zuPrüfen").Cells(k, 1).Value
Worksheers("seite2").Cells(j, 21).Value = Worksheet("zuPrüfen").Cells(k, 2).Value
Worksheers("seite2").Cells(j, 9).Value = Worksheet("zuPrüfen").Cells(k, 3).Value
Worksheers("seite2").Cells(j, 8).Value = Worksheet("zuPrüfen").Cells(k, 4).Value
Worksheers("seite2").Cells(j, 6).Value = Worksheet("zuPrüfen").Cells(k, 5).Value
Worksheers("seite2").Cells(j, 12).Value = Worksheet("zuPrüfen").Cells(k, 6).Value
k = k + 1
'Nein: dann nächster Überprüfen
Else: Next i
End If
End If
End With
End Sub
[code]
|