Excel RadioButton VBA Farbe ändern

[Pia]

Hallo zusammen, ich benötige dringend eure Hilfe !!
 Ich bin ein absoluter Neuling in VBA Excel
 Ich habe eine Ampel ( mit drei RadioButtons erstellt für Rot Orange Grün )
  Jedem RadioButton  soll eine Farbe zugeordnet werden,  die aber erst durch einen Klick auf den Button aktiviert  werden soll (  ansonsten sollen die Buttons grau sein )
 Falls radio Buttons  nicht funktionieren könnte  ich auch Formen nehmen....  Hauptsache, ich bekomme durch das Anklicken eine andere Farbe 
 Kann mir jemand helfen? Beziehungsweise sagen wie es funktionieren könnte?
Lg Pia

[atilla]

Hallo,

in der Tabelle mit ActiveX z.B: so:

Code:

Private Sub OptionButton1_Change()
 If Me.OptionButton1 Then
   Me.OptionButton1.BackColor = &HFF&
 Else
   Me.OptionButton1.BackColor = &H80000005
 End If
End Sub

Private Sub OptionButton2_Change()
 If Me.OptionButton2 Then
   Me.OptionButton2.BackColor = &HFF&
 Else
   Me.OptionButton2.BackColor = &H80000005
 End If
End Sub

Private Sub OptionButton3_Change()
 If Me.OptionButton3 Then
   Me.OptionButton3.BackColor = &HFF&
 Else
   Me.OptionButton3.BackColor = &H80000005
 End If
End Sub

[Pia]

Hallo,

in der Tabelle mit ActiveX z.B: so:

Code:

Private Sub OptionButton1_Change()
 If Me.OptionButton1 Then
   Me.OptionButton1.BackColor = &HFF&
 Else
   Me.OptionButton1.BackColor = &H80000005
 End If
End Sub

Private Sub OptionButton2_Change()
 If Me.OptionButton2 Then
   Me.OptionButton2.BackColor = &HFF&
 Else
   Me.OptionButton2.BackColor = &H80000005
 End If
End Sub

Private Sub OptionButton3_Change()
 If Me.OptionButton3 Then
   Me.OptionButton3.BackColor = &HFF&
 Else
   Me.OptionButton3.BackColor = &H80000005
 End If
End Sub

 Vielen lieben Dank ;)  Hat super funktioniert :)))

[Pia]

 Vielen lieben Dank ;)  Hat super funktioniert :)))

 Jetzt habe ich noch ein Problem ?
 Habe jetzt noch zwei weitere Ampeln hinzugefügt… Sobald ich in der zweiten oder dritten Ampel den Radiobutton auswähle verschwindet der Radiobutton in der ersten Ampel wieder ?
Kannst du mir da auch nochmal weiterhelfen? 
Lg Pia

[atilla]

Hallo Pia,


Du kannst die Buttons gruppieren.

Entwurfmodus einschalten.
Buttons mit Strg Taste auswählen.
Bei Entwurfmodus -> Eigenschaften auswählen und im Eihgenschaftsfenter hinter GroupName einen Wert für die unterschiedlichen Gruppen eingeben.

[Pia]

Hallo Pia,


Du kannst die Buttons gruppieren.

Entwurfmodus einschalten.
Buttons mit Strg Taste auswählen.
Bei Entwurfmodus -> Eigenschaften auswählen und im Eihgenschaftsfenter hinter GroupName einen Wert für die unterschiedlichen Gruppen eingeben.

Dankeschön :19: