Excel Formularsteuerelement Optionsfeld über VBA abfragen

  • Excel

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Dksksm.

    Excel Formularsteuerelement Optionsfeld über VBA abfragen

    Hallo,

    ich muss zugeben von Excel Programmierung gar keine Ahnung zu haben.
    Ich habe ein einfaches Worksheet mit einem Tabellenblatt.

    Hier gibt es Daten aus denen ichmir eine URL zusammenbastel, was auch funktioniert.
    Eine UserForm gibt es nicht!
    Im Tabellenblatt gibt es neben den Daten noch 2 Optionsfelder (aus Formularsteuerelement) und ein paar Button.
    ich möchte anhand der irgendwann mal getätigten Auswahl einer der Optionsfelder (OptionsfeldFF und OptionsfeldIE) auswählen können, ob der IE oder Firefox mit der URL aufgerufen werden soll.

    Ich weiß mir leider mit VBA so gar nicht zu helfen und komme nicht weiter. Alles was ich probiert habe, musste ich mir ergooglen. Der einzige Werte wo ich überhaupt ein Ergebnis zurückbekam war der über shapes wie im code ersichtlich.
    Hier mein bisheriger Code, der allerdings noch kein Ergebnis liefert, weil ich zu blöd bin den Status auszulesen.

    Quellcode

    1. Sub Webbrowser(URL As String)
    2. Dim wsh As Object
    3. Set wsh = CreateObject("WScript.Shell")
    4. Firefox = False
    5. Dim objShape As Shape, strFormControlTyp As String
    6. Dim wks As Worksheet
    7. Set wks = ActiveSheet
    8. For Each objShape In wks.Shapes
    9. If objShape.Type = msoFormControl Then
    10. Select Case objShape.FormControlType
    11. Case xlOptionButton: strFormControlTyp = "Optionsschaltfläche"
    12. If objShape.Name = "OptionsfeldFF" Then
    13. 'Hier würde ich nun gerne wissen, ob das Optionsfeld aktiv ist oder nicht.
    14. 'Firefox = Ergebnis der Abfrage (True oder False)
    15. End If
    16. Case Else
    17. strFormControlTyp = "unbekannt"
    18. End Select
    19. End If
    20. Next
    21. If Firefox = True Then
    22. wsh.Run (vbfirefox & " " & Chr(34) & URL & Chr(34))
    23. Else
    24. wsh.Run (vbinternetexplorer & " " & Chr(34) & URL & Chr(34))
    25. End If
    26. Set wsh = Nothing
    27. End Sub