Also bei mir funktioniert dieser Code und ich habe es nicht hingebracht, dass der Fehler bei mir auftaucht,
trotzdem habe ich den Code noch verbessert, probier mal diesen:
Dim rg As Range
Dim fd As Range
Dim rest As Integer
Application.DisplayAlerts = False
Set rg = Columns(5) ' Spalte E
Do
Set fd = rg.Find(0, LookIn:=xlValues)
If Not fd Is Nothing Then
rest = UsedRange.row + UsedRange.rows.Count
Range("A" & fd.row + 1 & ":E" & rest).Select
Selection.Cut Destination:=Range("A" & fd.row)
Range("A" & rest - 1 & ":E" & rest - 1).ClearContents
End If
Loop While Not fd Is Nothing
Application.DisplayAlerts = True
Falls der Fehler weiter auftaucht, debugge doch mal den Code und schau, in welcher Zeile er ausgelöst wird
Grüße Lutz
|