Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Schaltfläche aus/einblenden
#1
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
to top
#2
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
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
[-] Folgende(r) 1 Benutzer sagt Danke an schauan für diesen Beitrag:
Wilfried
to top
#3
(14.04.2015, 18:32)schauan schrieb: 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
to top
#4
Hi Wilfried,

(14.04.2015, 15:48)Wilfried schrieb: 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.
Gruß Ralf

?mage

Die deutsche Rechtschreibung ist Freeware, d.h. du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, deswegen darfst du sie nicht verändern oder in veränderter Form veröffentlichen.
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Schaltfläche für automatischen E-Mailversand Wulfgar 1 49 23.11.2016, 09:46
Letzter Beitrag: Zwergel
  Aktive Zelle als Schaltfläche; Zeilen Ein-/Ausblenden peacescorer 1 96 15.10.2016, 18:27
Letzter Beitrag: schauan
  Schaltfläche bearbeiten kautsch 7 132 13.10.2016, 13:34
Letzter Beitrag: BoskoBiati
  Schaltfläche Sortieren, mehrfachnennung Namen Exceljunge 3 202 29.08.2016, 14:59
Letzter Beitrag: Ego
  InputBox Schaltfläche Abbrechen herbert0803 7 403 04.08.2016, 22:47
Letzter Beitrag: Gast 123
  Schaltfläche dynamisch wieder löschen - Objektorientierte Programmierung VBATartar 12 660 26.07.2016, 18:38
Letzter Beitrag: VBATartar
  Passwortabfrage vor Einblenden eines Arbeitsblattes per Doppelklick WillWissen 27 1.492 02.03.2016, 17:29
Letzter Beitrag: WillWissen
  einblenden von Spalten mit Passwort verhindern schnitzlwurst 14 2.081 07.01.2016, 17:16
Letzter Beitrag: schauan
  Schaltfläche funktioniert nicht für Word-Sheet cuba 13 1.504 24.12.2015, 16:41
Letzter Beitrag: Rabe
  VBA-Schaltfläche bei geschüztem Blatt cuba 5 495 09.11.2015, 14:06
Letzter Beitrag: cuba

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste