ich suche nach einen einfach VBA-Code, der schlicht schaut, ob in einer Tabelle ab der Spalte "E" bis zur 40ten Spalte in der Zeile 1 eine 1 oder eine 0 steht. Wenn in Zeile 1 dann eben in Spalte E, F, G usw. eine 0 steht, sollen diese Spalten alle gelöscht werden.
Hab das Beispiel schon gefunden, aber es löscht die Spalten dann leider nicht, in denen eine 0 steht in Zeile 1.
With ThisWorkbook.Worksheets("Seite1_1")
For i = 5 To 40
If .Cells(1, i) = "0" Then
.Columns(i).Delete
End If
Next i
End With
Hat jemand eine Idee, wie ich das lösen könnte?
VG aus Bayern
Elmar