Daten löschen via Makro
Matthias
ich möchte aus Excel-Reiter, der immer gleich aufgebaut ist, Daten löschen via Makro.
Er soll immer in A4 bis C4 anfangen und bis zum Schluß gehen, wobei die Datenmenge immer variert - maximal 1000 Zeilen.
Ich habe schon mal angefangen, komme aber nicht weiter:
Sub ZeilenLöschen()
Dim I As Long
With Worksheets("Tabelle1")
For I = .Range("A" & .Rows.Count).End(xlUp).Row To 59 Step -1
If .Rows(I).EntireRow.Hidden = False Then .Rows(I).Delete
Next I
End With
End Sub
Gruß
Anzeige