Hallo,
fange gerade an, ein bissel VBA in Excel zu proggen.
Leider komme ich gerade nicht weiter.
Folgendes Problem:
Ich möchte auf einen Schlag von mehreren Togglebuttons die Caption ändern.
Hierfür dachte ich mir, bau ne Loop-Schleife und gut.
Leider kann ich ja bei Objectvariablen nicht einfach Variable = Variable + 1 schreiben.
Wie kann ich mir also eine Variable bauen, die bei jedem Loop eine Button weiter wechselt...
So geht es leider nicht:
Private Sub CommandButton1_Click()
Dim TBName as Object
i=1
TBName = ActiveWorkbook.Sheets("aenderung").ToggleButton1 ... 20
Do Until i = 20
TBName.caption=ActiveWorkbook.Sheets("vorgaben").Cells( 1 , i )
TBName = ActiveWorkbook.Sheets("aenderung").ToggleButton2 ... 20 '<---- Hier ist mein Problem!
i = 1 + 1
Loop
Set TBName = Nothing
End Sub
LG
Nyt |