ich habe in einem Worksheet zwei Tabellen untereinander. Beide haben den gleichen Aufbau. Nun möchte ich aus diesem Worksheet ganze Spalten löschen, da sowohl in der oberen als auch unteren Tabelle leerspalten vorhanden sind (wenn oben Leerspalte, dann auch unten und umgekehrt). Dazu habe ich folgenden Code angefertigt, der durch die erste Tabelle geht.
For deleteCol = 3 To 33
delete = True
For deleteRow = 4 To 17
If Not Cells(deleteRow, 36 - deleteCol) = 0 Then
delete = False
End If
Next deleteRow
If delete = True Then
Columns(36 - deleteCol).delete Shift:=xlToLeft
End If
Next deleteCol
Leider gibt es immer einen Abbruch, sobald er die erste Spalte löschen will.Warum ist die Löschfunktion gesperrt?
Wenn ich nur eine Tabelle im Worksheet habe, funktioniert der Code super.
Vielen Dank und viele Grüße
Mole