1.6k Aufrufe
Gefragt in Tabellenkalkulation von
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

8 Antworten

0 Punkte
Beantwortet von fedjo Experte (2.2k Punkte)
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
0 Punkte
Beantwortet von
@ 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!!!
0 Punkte
Beantwortet von fedjo Experte (2.2k Punkte)
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
0 Punkte
Beantwortet von
@ 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
0 Punkte
Beantwortet von theblackbird_ Mitglied (605 Punkte)
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 ®
0 Punkte
Beantwortet von fedjo Experte (2.2k Punkte)
Hallo Lisa,
eine Möglichkeit könnten Schaltflächen sein.

Gruß
fedjo
0 Punkte
Beantwortet von m-o Profi (22.9k Punkte)
Hallo Lisa,

oder du erstellst eine benutzerdefinierte Symbolleiste / Menuleiste: Beispiel.

Gruß

M.O.
0 Punkte
Beantwortet von
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
...