ich möchte mit einem Button die letzte Zeile aus meiner Tabelle löschen können (nicht alle Zellen, denn manche enthalten ein Formel), aber ich möchte nicht, dass wenn ich mal oben agelangt bin bei Zeile 1 meiner Daten, das es dann danach wenn cih den Button drücke meine Zeilen-Überschrift löschen kann.
Wie schreibe ich das?
So sieht es bis jetzt aus (ist wahrscheinlich auch ein bisschen umständlich, ich weiss, bin halt kein profi):
Private Sub CommandButton2_Click()
Range("A229").End(xlUp).ClearContents
Range("B229").End(xlUp).ClearContents
Range("C229").End(xlUp).ClearContents
Range("D229").End(xlUp).ClearContents
Range("E229").End(xlUp).ClearContents
Range("F229").End(xlUp).ClearContents
Range("G229").End(xlUp).ClearContents
Range("H229").End(xlUp).ClearContents
Range("I229").End(xlUp).ClearContents
Range("J229").End(xlUp).ClearContents
Range("M229").End(xlUp).ClearContents
Range("P229").End(xlUp).ClearContents
Range("Q229").End(xlUp).ClearContents
Range("R229").End(xlUp).ClearContents
Range("S229").End(xlUp).ClearContents
Range("T229").End(xlUp).ClearContents
End Sub
Viele Grüße,
Zoe