Hallo zusammen,
ich bräuchte einmal euren Rat. Aktuell habe ich folgende Datei, mit aktuellen Sendungen, in denen Handlungsbedarf herrscht. Jeden Morgen aktualisere ich die Daten indem ich den neuen Datensatz unter den Alten kopiere. Hier kommt es zu folgender Situation:
Sendungen, die in Spalte A eine Bemerkung stehen haben und die Sendungsnummer in J einzeln ist muss in diesem Fall, die komplette Spalte gelöscht werden. Aktuell funktioniert, das Makro nicht so richtig, da es mehrere Anläufe braucht bis alle Daten gelöscht sind. Und das größte Problem ist, dass trotzdem Sendungen gelöscht werden, die nicht den Bedingungen entsprechen.
Ich finde leider nicht den Fehler, wieso das Makro mehrmals betätigt werden muss und die Bedingungen manchmel nicht sauber abgearbeitet werden.
Sub Einzelne_löschen()
Dim Zelle As Range
lz = Cells(5000, 10).End(xlUp).Row
For Each Zelle In ActiveSheet.Range("J6:J" & lz)
If WorksheetFunction.CountIf(Range("J6:J" & lz), Zelle.Value) = 1 Then
If Zelle.Offset(0, -6).Value <> "" Then
Zelle.EntireRow.Delete
End If
End If
Next Zelle
End Sub
Ich hoffe Ihr könnt mir mit meinem Problem helfen.
Vielen Dank im Voraus.
|