VBA letzte Spalte löschen mit Stopp
17.04.2020 14:50:13
Chris
bisher war ich nur stiller Mitleser und hab hier schon viel gelernt. Vielen Dank dafür erstmal. Ich habe begonnen mich an VBA ranzutasten und bin da noch im "Krabbelmodus".
Ich möchte ein Steuerelement belegen mit der Funktion in einem anderen Arbeitsblatt eine komplette Spalte zu löschen. Ich habe das auch schon hervorragend mit einem VBA umgesetzt. Nun ist allerdings das Problem, dass der Nutzer nun in der Lage ist alle Spalten, also auch bis dahin wo Formeln hinterlegt sind zu löschen und genau das möchte ich verhindern.
Das VBA soll also die letzte beschriebene Spalte löschen, aber bei Spalte C unbedingt aufhören und am besten noch eine MsgBox auswerfen.
Ich danke im Voraus für Antworten
Bisher sieht mein Code so aus:
Sub letzteSpaltelöschen()
Dim lngSpalte As Long
Dim wksZiel As Worksheet
Set wksZiel = ThisWorkbook.Worksheets("Statistik")
'letzte beschriebene Spalte im Arbeitsblatt Statistik feststellen
With wksZiel
lngSpalte = .Cells(1, Columns.Count).End(xlToLeft).Column
End With
'löschen
wksZiel.Cells(1, lngSpalte).Delete
End Sub
Anzeige