DANKE an alle die mir beim ersten Makro geholfen haben.
Ich bräuchte noch eine kleine Hilfe:
und zwar sollen bei Ausführung des Makros die ersten 5 Zeilen erhalten bleiben (Spaltenüberschriften) und auch am Ende der Datensätze (Zeile 25000) sollen Summenformeln nicht mitgelöscht werden.
Weiß jemand Rat??
Hier das ansonsten echt gute Makro:
Sub Start()
Dim i%, Alle&
Worksheets(1).Select
Application.ScreenUpdating = False
Alle = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
For i = Alle To 1 Step -1
If Cells(i, 1) <> [D1] Then
Rows(i).EntireRow.Delete
End If
Next i
End Sub