Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Schaltfläche färben und entfärben | Herbers Excel-Forum


Betrifft: Schaltfläche färben und entfärben von: Chris
Geschrieben am: 25.01.2010 11:53:37

Hallo zusammen,

hoffe ihr könnt mir bei folgendem Problem weiterhelfen:
In einem Arbeitsblatt habe ich mehrere Schaltflächen, denen verschiedene Makros hinterlegt sind. Nun ist es so, dass die Schaltflächen in einer bestimmten Reihenfolge gedrückt werden müssen. Wäre es möglich, die Schaltflächen der Reihe nach mit einem Makro z.B. grün zu färben und sobald sie gedrückt worden sind, wieder grau?

Bsp.: Öffnen der Arbeitsmappe färbt Button 1 grün. Wird dieser gedrückt, färbt er sich grau und dafür Button 2 grün, usw.

  

Betrifft: AW: Schaltfläche färben und entfärben von: Reinhard
Geschrieben am: 25.01.2010 11:55:22

Hallo Chris,

aus welcher Symbolleiste sind die Schaltflächen?

Gruß
Reinhard


  

Betrifft: AW: Schaltfläche färben und entfärben von: Chris
Geschrieben am: 25.01.2010 11:58:34

Aus der Steuerelement-Toolbox


  

Betrifft: AW: Schaltfläche färben und entfärben von: Reinhard
Geschrieben am: 25.01.2010 12:15:15

Hallo Chris,

ein Ansatz,

in DieseArbeitsmappe:

Private Sub Workbook_Open()
Worksheets("Tabelle1").CommandButton1.BackColor = &HF26363
Worksheets("Tabelle1").CommandButton2.BackColor = &H256256
Worksheets("Tabelle1").CommandButton3.BackColor = &H256256
End Sub
in Tabelle1:
Private Sub CommandButton1_Click()
CommandButton1.BackColor = &H256256
CommandButton2.BackColor = &HF26363
End Sub
'
Private Sub CommandButton2_Click()
CommandButton2.BackColor = &H256256
CommandButton3.BackColor = &HF26363
End Sub

Private Sub CommandButton3_Click()
CommandButton3.BackColor = &H256256
End Sub

Gruß
Reinhard


  

Betrifft: AW: Schaltfläche färben und entfärben von: Chris
Geschrieben am: 25.01.2010 12:29:12

Super Idee! Klappt wunderbar. Dank Dir.


  

Betrifft: AW: Schaltfläche färben und entfärben von: Ptonka
Geschrieben am: 25.01.2010 12:20:07

Hallo Chris,

ich hatte mal so etwas ähnliches versucht.

https://www.herber.de/bbs/user/67459.xls

Ich hatte aber normale Rechtecke genommen únd diese mit Makros versehen.
Vielleicht hilft es Dir weiter.

Gruß
Ptonka


Beiträge aus den Excel-Beispielen zum Thema "Schaltfläche färben und entfärben"