Schaltfläche aus/einblenden

[Wilfried]

Hallo Excel-Freunde,
ich habe gleich noch ein Problem:
in ein Worksheets habe ich eine AktiveX Schaltfläche eingebaut(cmdjahresliste).
Diese soll nach Aktivierung ausgeblendet werden und später nach Erfüllung einer Bedingung wieder eingeblendet werden.

Ich habe folgenden Code verwendet(mit Makrorecorder aufgezeichnet und modifiziert):

Code:

Option Explicit
Option Compare Text

Sub Worksheet_Activate()
   ActiveSheet.Shapes.Range(Array("cmdjahresliste")).Select
   Selection.Visible = False


   MsgBox "Hallo Welt"     'nur für Testzwecke

   ActiveSheet.Shapes.Range(Array("cmdjahresliste")).Select
   Selection.Enabled = True

End Sub

Merkwürdigerweise kann ich die Schaltflächen mit der Option Entwurfmodus aus und einblenden.

Was mache ich falsch?

Meinen Dank im voraus.

LG
Wilfried

[schauan]

Hallo Wilfried,

Da wären wir mal wieder beim Thema Select, was man möglichst vermeiden sollte. Eine unsichtbare Schaltfläche kann man nicht selectieren, das geht nur mit sichtbaren Objekten. Fasse die Kommandos zusammen.

ActiveSheet.Shapes.Range(Array("cmdjahresliste")).Visible = True

[Wilfried]

Hallo Wilfried,

Da wären wir mal wieder beim Thema Select, was man möglichst vermeiden sollte. Eine unsichtbare Schaltfläche kann man nicht selectieren, das geht nur mit sichtbaren Objekten. Fasse die Kommandos zusammen.

ActiveSheet.Shapes.Range(Array("cmdjahresliste")).Visible = True

Hallo André,

hast ja recht mit select. Schreibe ich mir hinter die Ohren.
Hauptsache es hat gefunzt.
Vielen Dank dafür.

LG
Wilfried

[Rabe]

Hi Wilfried,

Merkwürdigerweise kann ich die Schaltflächen mit der Option Entwurfmodus aus und einblenden.

Was mache ich falsch?

finde ich eigentlich nicht merkwürdig:
Um mit der Datei zu programmieren ("Entwurfsmodus an"), müssen alle Elemente sichtbar sein, sonst können die doch gar nicht ausgewählt und bearbeitet werden.