brauche ein Makro, dass ein Datenblatt durchsucht. Wenn in der Spalte A ab einer gewissen Zeile kein Text oder Zahl mehr steht, soll der komplette Bereich gelöscht werden.
z.B ab Zeile A30 befinden sich nur Nullen in der Spalte. Dann soll alles ab A30: F30 gelöscht werden.
Hab schon was gebastelt, aber klappt leider nicht.
Vielen Dank
dani
sub_loeschen()
Dim letztevolleZeile As Long
letztevolleZeile = Sheets("Lianalyse").Cells(Rows.Count, 1).End(xlUp).Row
Cells(letztevolleZeile, 20).ClearContents
end sub