Hey Leute,
ich habe ein kleines Problem mit diesem Programm. Ich weiß ehrlich gesagt nicht, wo hier der Fehler Liegt.
Dieses Prog soll die Zeilen Sortieren und dann gegebenfalls doppelte Zeilen Löschen
Hier wird immer der Fehler: "End if ohne If-Block"
Sub DoppelteZeilenEntfernen()
Dim Zeile As Integer
Dim Zeilemax As Integer
With Sheets("Packeinheit 28.04.11 10.00 Uhr")
Zeilemax = .Range("A1048576").End(xlUp).Row
.Colums(1).Sort Key1:=Range("A1"), Order:=xlAscending, Header:=ylGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For Zeile = Zeilemax To 2 Step -1
If .Cells(Zeile, 1).Value = .Cells(Zeile - 1, 1).Value Then .Rows(Zeile).Delete
End If
Next Zeile
End With
End Sub
Könnt ihr mir helfen?
Gruß Chris
|