Spalte löschen
11.01.2017 11:59:55
Michael
Leider löscht der Code aber nicht nur eine Spalte sondern alle bis zu der wo in Zelle 5 was steht.
Warum?
Bitte um Hilfe
Sub SpalteKennzahlen_löschen()
Worksheets("Kennzahlen").Unprotect
Dim lngSpalte As Long
Dim wksA As Worksheet
Dim lngLetzteSpalte As Long
Set wksA = Worksheets("Kennzahlen")
lngLetzteSpalte = wksA.Cells(5, wksA.Columns.Count).End(xlToLeft).Column
For lngSpalte = lngLetzteSpalte To 1 Step -1
If Trim(wksA.Cells(5, lngSpalte).Value) = 0 Then
wksA.Columns(lngSpalte).Delete
End If
Next
Worksheets("Kennzahlen").Protect
End Sub
Anzeige