brauch wieder ein mal die Hilfe aus diesem Forum.
Habe eine Datei mit Datensätze.
In der Spalte B kommen die Zahlen doppelt vor, es soll nur einmal die Zahl und die dazu gehörende Zeile vorkommen.
Die anderen Zeilen sollen gelöscht werden.
Habe dieses Makro aus dem Netz
Sub DoppelteSätzeRauswerfen()
'zuerst sortieren
Columns("B:B").Select
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'jetzt doppelte Sätze rausschmeißen
Range("B1").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
EndIF
Loop
End Sub
bringt leider einen Laufzeitfehler 1004
Kann mir jemand helfen und diesen anpassen.
Mfg
Andreas