Hallo liebe Community,

Ich bin seit einigen Tagen am herumprobieren mit meinem VBA Code, aber irgendwie will es nicht wie es soll.

Ich habe einen Schnipsel zusammen geschrieben, der die letzte beschriebene Zeile der Tabelle löschen soll. Das funktioniert soweit auch.

With Sheets("Archiv")
  
  loLetzte = .Cells(Rows.Count, 2).End(xlUp).Row
  .Cells(loLetzte, 2).EntireRow.Delete
  
End With

Alerdings wiederum zu gut. Der Befehl radiert nämlich ausnahmslos alles aus was ihm in die Quere kommt...

Wie bekomme ich es also hin, zu verhindern, dass er die Erste Zeile löscht, in der über mehrere Spalten die Tabellenüberschriften stehen?

 

Gefunden hab ich bisher das hier, was aber soweit nicht weiter hilft.

Worksheets("Archiv").Unprotect
Worksheets("Archiv").Rows(1 & ":" & Cells.SpecialCells(xlCellTypeLastCell).Address).Locked = True
Worksheets("Archiv").Protect

Vielleicht kann mir jemand von euch helfen, falls ja schon Mal danke im Vorraus

Mfg