Microsoft Excel

Herbers Excel/VBA-Archiv

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

Backcolor bei OptionsButton1 bis 20 ändern | Herbers Excel-Forum


Betrifft: Backcolor bei OptionsButton1 bis 20 ändern von: Niko
Geschrieben am: 20.02.2012 12:19:30

Hallo zusammen,

ich möchte mittels Schleife die BackColor von mehreren OptionsButton (1 bis 20) ändern.
Kann mir jemand den Code hierfür posten?

Danke für eure Mühe.

Gruß
Niko

  

Betrifft: gegenfrage von: Tino
Geschrieben am: 20.02.2012 13:25:18

Hallo,
wo sind diese, auf einer Tabelle oder einer Userform.
Auf der Tabelle!? Aus Formularsteuerelemente oder Activ-X Steuerelemente?

Gruß Tino


  

Betrifft: AW: gegenfrage von: Niko
Geschrieben am: 20.02.2012 13:37:20

Hallo Tino,

hab ich leider vergessen...die Optionsbutton sind in einer Tabelle und ActivX-Steuerelemente.

gruß
niko


  

Betrifft: AW: gegenfrage von: Tino
Geschrieben am: 20.02.2012 13:46:46

Hallo,
dann kannst Du es mal so versuchen.
Die Tabelle und die gewünschte Farbe (RGB) müsstest Du noch anpassen!

Sub TabelleButton()
Dim i As Integer, oShap
With Sheets("Tabelle1") 'Tabelle anpassen
    For i = 1 To 20
        .Shapes("OptionButton" & i).DrawingObject.Object.BackColor = RGB(90, 255, 255)
    Next i
End With

End Sub
Gruß Tino


  

Betrifft: AW: gegenfrage von: Niko
Geschrieben am: 20.02.2012 14:01:45

Hallo Tino,
danke für deinen Tipp.
Ich bekomme die Meldung 'Index außerhalb des gültigen Bereichs' angezeigt.
i bezieht sich doch auf die Nr der einzelnen OptionButton, wieso dann diese Meldung?

Gruß
Niko


  

Betrifft: Danke für die Hilfe es funktioniert (oT) von: Niko
Geschrieben am: 20.02.2012 14:05:51

Hi


Beiträge aus den Excel-Beispielen zum Thema "Backcolor bei OptionsButton1 bis 20 ändern"