Office: Abfrage in Schleife, ob ToggleButton gedrückt ist

Hallo,

ich möchte den Wert von 4 ToggleButtons abfragen.
Dafür zähle ich eine Variable hoch, die dann an "ToggleButton" angehängt werden soll.

Nun bekomme ich aber leider den Fehler "Fehler beim Kompilieren, ungültiger Bezeichner".
Wie sollte die Syntax denn lauten? Gibt es dazu einen Link, wo man sich in das Thema einlesen kann?

Code:

Viele Grüße!

:)

 

Moin sacredlife,

was du suchst findest zu unter dem Stichwort EVAL bzw. EVALUATE beantwortet. ... Und Excel-VBA kann das m.W. nach nicht.

 

Hallo ?,

das geht so.

Public Sub ToggleButtons1()
Dim ToggleZaehl As Integer

'Buttons auf Tabellenblatt
With Sheets("Tabelle1") 'Tabellenname anpassen!
For ToggleZaehl = 1 To 4
If .OLEObjects("ToggleButton" & CStr(ToggleZaehl)).Object.Value Then
MsgBox "Geht " & CStr(ToggleZaehl)
End If
Next ToggleZaehl
End With
End Sub

Public Sub ToggleButtons2()
Dim ToggleZaehl As Integer

'Buttons auf UserForm
With UserForm1
For ToggleZaehl = 1 To 4
If .Controls("ToggleButton" & CStr(ToggleZaehl)).Value Then
MsgBox "Geht " & CStr(ToggleZaehl)
End If
Next ToggleZaehl
End With
End Sub


Gruß Sepp

 

Ach je... doch mit Controls, da hätte ich auch selbst drauf kommen können...
Ich danke dir!

Viele Grüße
Roman