Hallo Zusammen,
ich stehe mal wieder vor dem Problem dass die Excel Logik irgendwie anders funktioniert als die Logik meines Gehirns.
Ich habe ein Excel File mit mehreren Worksheets und einem Modul.
In einem Worksheet habe ich zwei OptionButton eingefügt.
Jetzt möchte ich in dem Modul abfragen ob OptionButton1.value = true ist.
Scheinbar ist es nun so dass „OptionButton“ in dem Modul als Variable erkannt wird und nicht als Steuerelement. Da diese Variable natürlich nicht deklariert ist bleibt meine Prozedur stehen.
Kann mir von Euch jemand sagen wie ich von meinem Modul aus auf die .Values von Steuerelementen aus einem Workbook zugreifen kann?
Schon mal vielen Dank!
Gruß
Marc
Hallo Zusammen,
In einem Worksheet habe ich zwei OptionButton eingefügt.
Kann mir von Euch jemand sagen wie ich von meinem Modul aus
auf die .Values von Steuerelementen aus einem Workbook
zugreifen kann?
Schon mal vielen Dank!
Gruß
Marc
Hallo Marc,
Hier ein Beispiel, wie die Zustände von Option-Buttos abgefragt werden können.
Sub OptionsButtonsAuswerten()
Dim Buttons1 As Variant, Buttons2 As Variant, Buttons3 As Variant, Buttons4 As Variant, wks As Worksheet
Set wks = Sheets("Tabelle1")
GoTo weiter
'Namen der Shapes und OLE-Objekte anzeigen
For Each Sh In wks.Shapes
MsgBox "Shapes: " & Sh.Name
Next
For Each Oj In wks.OLEObjects
MsgBox "OLE-Objects: " & Oj.Name
Next
weiter:
' Option-Buttons aus der Symboleiste Steuerelement-Toolbox
' Wert = True oder False
Buttons1 = wks.OLEObjects("Optionbutton1").Object.Value
Buttons2 = wks.OLEObjects("Optionbutton2").Object.Value
' Optionsfelder aus der Symboleiste - Formular
' Wert = 1 (gewählt) oder -4116 (Nicht gewählt)
Buttons3 = wks.Shapes("Option Button 3").ControlFormat.Value
Buttons4 = wks.Shapes("Option Button 4").ControlFormat.Value
MsgBox "Button 1 = " & Buttons1 & vbLf & \_
"Button 2 = " & Buttons2 & vbLf & \_
"Button 3 = " & Buttons3 & vbLf & \_
"Button 4 = " & Buttons4
End Sub
Gruß
Franz
