if + Spalte löschen
04.11.2016 14:35:19
B
ich habe versucht ein Makro zu bauen, dass die Komplette Zeile 2 auf den Eintrag "löschen" prüft. In dem Fall soll die Gesamte Spalte gelöscht werden, dann soll die nächste spalte geprüft werden...
Leider beendet sich das Makro nach einem Treffer. Kann mir da jemand Helfen?
Sub Makro()
Dim LC As Integer
With ActiveSheet
LC = .Cells(2, .Columns.Count).End(xlToLeft).Column
End With
For i = LC To 1 Step -1
If ActiveSheet.Cells(i, 2) = "löschen" Then
Columns([i]).EntireColumn.Delete
End If
Next i
End Sub
Anzeige