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
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ß TinoDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen