Zeile löschen
28.11.2021 21:15:13
Aigner
Habe ein Problem und finde keine passende Lösung!
Ich habe ein grosses Tabellenblatt (Spalten A-FD) und die Zeilen werden erweitert über das Jahr.
Nun möchte ich über einen Button die letzte beschriebene Zeile löschen ohne die Formeln zu löschen. Habe auch einen Code dafür.
Sub DeleteLastRow()
On Error Resume Next
With ActiveSheet
ActiveSheet.Unprotect Password:=" "
If WorksheetFunction.CountA(.Cells) > 0 Then .Cells.Find(What:="*", _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).EntireRow.SpecialCells(xlCellTypeConstants, 3).ClearContents
ActiveSheet.Protect Password:=" "
End With
End Sub
Das heißt der Code will immer die Zeile 1500 löschen weil da irgendwo eine Formel drinnen steht.
Die Spalten mit den Formel gehen bis 1500 runter.
Wäre super wenn mir hier jemand helfen könnte.
Mfg