Als einziges Makro überhaupt, hab ich im Netz dieses gefunden und die Zeile mit 62 angepasst. Ich hab nur das Problem, dass, wenn ich es aus dem Code mit F5 starten will, überhaupt nichts passiert. Hat jemand eine Erklärung. Muss es dem Tabellenblatt direkt angefügt werden ? Auch das hab ich versucht. Keine Reaktion. Könnte mir jemand helfen ?
Danke im Voraus
Public Sub bedingte_Spaltenloeschung()
'** Ermittlung der letzten Spalte in Zeile 1
ls = Cells(1, Columns.Count).End(xlToLeft).Columns.Column
'** Durchlauf aller Zeilen
For s = ls To 1 Step -1 'Zählung rückwärts bis Spalte 1
'** Abfragen, ob in der ersten Spalte die Ziffer 0 steht
If Cells(62, s).Value = 1 Then
Columns(s).Delete Shift:=xlToLeft
End If
Next s
End Sub