Hallo zusammen,
ich benötige einmal Eure Hilfe. Folgendes Makro, soll in einer Datei einen Abgleich von bereits erledigten Einträgen durchführen und diese anschlißend löschen.
Vorgehensweise des Makros, kontrollieren, ob in Zelle 16 der Barcode z.B. 00340100081028299276 doppelt in der Liste enthalten ist, wenn ja muss geprüft werden, ob in Zelle 18 ein J enthalten ist. Sollte anstatt einem J ein N in Zelle 18 stehen, soll der Datensatz nicht gelöscht werden. Sollten beide Bedingungen zutreffen, soll die Spalte mit dem Datensatz komplett gelöscht werden.
Das Makro tut eigentlich auch das, was es sollte, aber nur bei einer kleinen Datenmenge. In der Liste sind zum Teil über 1.000 Einträge enthalten. Hier fäng das Makro dann an wahllos, Einträge zu löschen.
' Erledigte_löschen Makro
'
Dim iRow As Variant, iRowL As Variant
iRowL = Cells(Cells.Rows.Count, 7).End(xlUp).Row
For iRow = iRowL To 1 Step -1
If WorksheetFunction.CountIf(Columns(16), Cells(iRow, 16)) > 1 _
And Cells(iRow, 18).Value <> "J" Then Rows(iRow).Delete
Next iRow
End Sub
Vielleicht habt Ihr eine Idee, was das Problem ist, ich bin leider mit meinem Latein am Ende.
Vielen Dank im Vorraus für Eure Unterstützung.
|