Dies funktioniert nicht mehr, seit ich die Zellen mit bedingter Formatierung versehen habe. Seither gibt es beim Ablauf des Makros
Sub Ausblenden()
Range("a2").Activate 'Startstelle
For Z = 1 To 254
ActiveCell.Offset(0, 1).Select
If ActiveCell.Value = "" Then ActiveCell.EntireColumn.ColumnWidth = 0
'Blendet Spalte aus, wenn die Zelle leer ist
Next Z
End Sub
ungefähr in der Mitte der Tabelle den Laufzeitfehler '1004' :
"Die ColumnWidth-Eigenschaft des Range-Objektes kann nicht festgelegt werden."
Will man nach Abbruch des Makros dann eine Spalte manuell auf Breite 0 verändern, gibt es folgende Fehlermeldung:
"Objekte können nicht über das Blatt hinaus verschoben werden."
Ich habe die bedingte Formatierung wieder gelöscht, der Fehler entsteht aber immer wieder. Für die Funktion der Tabelle brauche ich aber die bedingte Formatierung (sonst würde ich einfach die Tabelle neu aufbauen).
Hat jemand eine Idee, wie man den Fehler umgehen könnte?