Fehlermeldung bei Spaltenausblendung mit VBA

Question

Hallo liebe Community!

Ich habe eine Frage und hoffe ihr könnt mir weiterhelfen :-)

Folgendes:
Ich habe auf einem Tabellenblatt eine Befehlsschaltfläche (ActiveX)
mit folgendem hinterlegten Code:

Sub CommandButton1_Click()

If Sheets("Overview").Cells(5, 3) = 1 Then
Sheets("Overview").CommandButton6.Visible = False
Sheets("Overview").CommandButton13.Visible = False
Sheets("Overview").CommandButton16.Visible = False
Sheets("Overview").Columns("AX:BI").Hidden = True

Else
...
...

End Sub

Dieser soll die angegebenen Spalten ausblenden und die darauf
befindlichen, weiteren Befehlsschaltflächen ausblenden.

Grundsätzlich funktioniert es auch einwandfrei.
Jetzt kommt aber das Aber:

ABER, wenn ich versuche die im Code genannten Spalten (AX:BI)
auszublenden UND rechts daneben schon ALLE Spalten
ausgeblendet sind, dann kommt folgende Fehlermeldung:

Laufzeitfehler '1004':
Die Hidden-Eigenschaften des Range-Objektes kann nicht festgelegt
werden.

Hier ein Bildschirmfoto zur Verdeutlichung:
i.imgur.com/ZGQtw.png

Könnt ihr mir helfen ;......(

LG
Lisa

Answer 1

Hallo Lisa,
bei mir Excel 2007 funktioniert das Ausblenden schon.
Vielleicht kannst Du ja mal ein Muster uploaden und den Link ins Forum stellen.

Gruß
fedjo

Answer 2

@ fedjo

Juhu, Hilfe :-)

Sehr gerne lade ich das Beispiel hoch!!
Um den Fehler zu reproduzieren:

Bei "Zeitraum" bitte auf 1-12 umstellen.
Dann den Button "Finalize" drücken.

=> Fehler


Und hier die Datei:
http://www.file-upload.net/download-4160570/bsp.xlsm.html

VIELEN DANK SCHONMAL!!!

Answer 3

Hallo Lisa,
das liegt an den .CommandButton, die können mit den Spalten nicht ausgeblendet werden. Da brauchst Du eine andere Lösung.

Gruß
fedjo

Answer 4

@ fedjo

Vielen Dank für deine Antwort!
Ich habe es mir schon fast gedacht...

Hab allerdings doch noch auf eine Lösung gehofft ;.....(

VIELEN DANK FÜR DEINE ANTWORT!
Und ein schönes Wochenende!

Gruß
Lisa

Answer 5

Moin,

Das hat fedjo ganz richtig erkannt. Das Problem sind die zwar unsichtbaren aber dennoch vorhandenen CommandButtons, die dann im ausgeblendeten Bereich liegen wurden.

btw: Wenn Du einmal versuchst, die entsprechenden Spalten herkoemmlich auszublenden (AX:XFD) erhaelst Du dann auch eine aussagekraeftigere Fehlermeldung: "Objekte koennen nicht ueber das Blatt hinaus verschoben werden".

Bleibt imo nur, die (ausgeblendeten) Objekte vorher in den sichtbaren Bereich zu verschieben. Ich habe mir die Positionen Deiner CButtons mal herausgesucht. Dann koennte das Ganze aussehen wie folgt:

Sub CommandButton1_Click()


With Sheets("Overview")
If .Cells(5, 3) = 1 Then
.CommandButton6.Visible = False
.CommandButton13.Visible = False
.CommandButton16.Visible = False
.CommandButton6.Left = 0
.CommandButton13.Left = 0
.CommandButton16.Left = 0
.Columns("AX:BI").Hidden = True
Else
.Columns("AX:BI").Hidden = False
.CommandButton6.Left = 3676.5
.CommandButton13.Left = 3170.25
.CommandButton16.Left = 3432
.CommandButton6.Visible = True
.CommandButton13.Visible = True
.CommandButton16.Visible = True
End If
End With

End Sub

Cu
TheBlackBird ®

Answer 6

Hallo Lisa,
eine Möglichkeit könnten Schaltflächen sein.

Gruß
fedjo

Answer 7

Hallo Lisa,

oder du erstellst eine benutzerdefinierte Symbolleiste / Menuleiste: Beispiel.

Gruß

M.O.

Answer 8

Hallo zusammen!!

Wow, vielen Dank für Eure nette und geduldige Hilfe- echt einsame
Spitze!!! Vielen vielen Dank!!

Und zur Info:
Ich habe mich für die Lösung von TheBlackBird ® entschieden- gefällt
mir irgendwie am besten :-)

Noch mal:
Vielen Dank!

Und allen ein schönes Wochenende!!

Schöne Grüße
Lisa