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ß Tino