hab ein problem beim vergleich zweier listen
dabei will ich dass wenn er von liste 1 und liste2 eine übereinstimmung hat den nächsten von liste2 prüft sonst soll er mir liste1 weiter abklappern. hoffe ich steh nur, voll aufm schlauch und ist nicht wirklich so ein großes problem :)
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
For j = 2 To SachLange
For i = 3 To BereLange
With Worksheets("seite1")
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
End If
End With
Exit For
Next j <---- HIER ist der Fehler, denk mal durch exit fro
'sind wir beim letzten liste2 angekommen?
'Ja: dann nicht gefunden und auf "zuPrüfen" kopieren
Else
End With
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 Sub
[code]
|