Office: (Office 2013) Hintergrundfarbe des Commandbutton ändern

JoGo63 · 11. September 2017

Hallo,

könnte mir jemand beim folgenden Problem helfen??

Auf einem Tabellenblatt befinden sich mehrere CommandButtons, die ausgewählt werden können. Jetzt möchte ich die Farbe des ausgewählten Button ändern. Es soll solange rot bleiben, bis ein anderes gewählt wird.
Dazu habe ich ein Makro, was aber sehr umfangreich wird, wenn ich noch mehr CommandButtons hinzufüge. Könnte man das Makro auch anders schreiben??

Code:

Private Sub CommandButton2_Click()
ActiveSheet.CommandButton1.BackColor = &HC0C0C0 'grey
ActiveSheet.CommandButton2.BackColor = &HFF& 'red
ActiveSheet.CommandButton3.BackColor = &HC0C0C0 'grey
ActiveSheet.CommandButton4.BackColor = &HC0C0C0 'grey
ActiveSheet.CommandButton5.BackColor = &HC0C0C0 'grey

End Sub

Private Sub CommandButton3_Click()
ActiveSheet.CommandButton1.BackColor = &HC0C0C0 'grey
ActiveSheet.CommandButton2.BackColor = &HC0C0C0 'grey
ActiveSheet.CommandButton3.BackColor = &HFF& 'red
ActiveSheet.CommandButton4.BackColor = &HC0C0C0 'grey
ActiveSheet.CommandButton5.BackColor = &HC0C0C0 'grey
End Sub

Private Sub CommandButton4_Click()
ActiveSheet.CommandButton1.BackColor = &HC0C0C0 'grey
ActiveSheet.CommandButton2.BackColor = &HC0C0C0 'grey
ActiveSheet.CommandButton3.BackColor = &HC0C0C0 'grey
ActiveSheet.CommandButton4.BackColor = &HFF& 'red
ActiveSheet.CommandButton5.BackColor = &HC0C0C0 'grey
End Sub

Private Sub CommandButton5_Click()
ActiveSheet.CommandButton1.BackColor = &HC0C0C0 'grey
ActiveSheet.CommandButton2.BackColor = &HC0C0C0 'grey
ActiveSheet.CommandButton3.BackColor = &HC0C0C0 'grey
ActiveSheet.CommandButton4.BackColor = &HC0C0C0 'grey
ActiveSheet.CommandButton5.BackColor = &HFF& 'red

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

LG Jo

:)

Luschi · 13. September 2017

Hallo JoGo63,

per Klassenprogrammierung geht das wie im angehängten Beispiel.

Gruß von Luschi
aus klein-Paris

R J · 13. September 2017

...sehr schöne Lösung, Luschi!
Aber da ich auch gerade eine fertig hab, wollte ich die nicht ganz umsonst gemacht haben (und bei 4 Buttons dachte ich mir, ich spar mir die Klasse...*wink.gif* )

Hier meine Solution in das Modul der Tabelle mit den Buttons:
Code:

Private Sub CommandButton1_Click()
färben 1
End Sub

Private Sub CommandButton2_Click()
färben 2
End Sub

Private Sub CommandButton3_Click()
färben 3
End Sub

Private Sub CommandButton4_Click()
färben 4
End Sub

Sub färben(nr As Byte)
Dim x As Byte
Dim btnnr$
For x = 1 To ActiveSheet.OLEObjects.Count
If InStr(1, ActiveSheet.OLEObjects(x).Name, "CommandButton") Then
btnnr = VBA.Mid(ActiveSheet.OLEObjects(x).Name, Len("CommandButton") + 1)
If btnnr = cstr(nr) Then
ActiveSheet.OLEObjects(x).Object.BackColor = vbRed
Else
ActiveSheet.OLEObjects(x).Object.BackColor = &HC0C0C0
End If
End If
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly · 13. September 2017

Hi,

hier noch eine vereinfachte Version:

Code:

Private Sub CommandButton1_Click()
Faerben 1
End Sub
Private Sub CommandButton2_Click()
Faerben 2
End Sub
Private Sub CommandButton3_Click()
Faerben 3
End Sub
Private Sub CommandButton4_Click()
Faerben 4
End Sub
Private Sub CommandButton5_Click()
Faerben 5
End Sub

Sub Faerben(intButton As Integer)
Dim oobElement As OLEObject
For Each oobElement In ActiveSheet.OLEObjects
oobElement.Object.BackColor = IIf(oobElement.Name = "CommandButton" & intButton, &HFF&, &HC0C0C0)
Next oobElement
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2013) Hintergrundfarbe des Commandbutton ändern

Hintergrundfarbe des Commandbutton ändern

Hintergrundfarbe des Commandbutton ändern

Hintergrundfarbe des Commandbutton ändern

Hintergrundfarbe des Commandbutton ändern - Similar Threads - Hintergrundfarbe Commandbutton ändern

Outlook Kalender - Termin Hintergrund

Hintergrundfarbe ActiveX Textfeld

Felder markieren, wenn Eintrag nicht gleich ist

Schriftart/ Hintergrundfarbe Menüband

Makro für Hintergrundfarben

Hintergrundfarbe mit VBA ändern

CommandButton Hintergrundfarbe ändern