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.
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
- Sub Webbrowser(URL As String)
- Dim wsh As Object
- Set wsh = CreateObject("WScript.Shell")
- Firefox = False
- Dim objShape As Shape, strFormControlTyp As String
- Dim wks As Worksheet
- Set wks = ActiveSheet
- For Each objShape In wks.Shapes
- If objShape.Type = msoFormControl Then
- Select Case objShape.FormControlType
- Case xlOptionButton: strFormControlTyp = "Optionsschaltfläche"
- If objShape.Name = "OptionsfeldFF" Then
- 'Hier würde ich nun gerne wissen, ob das Optionsfeld aktiv ist oder nicht.
- 'Firefox = Ergebnis der Abfrage (True oder False)
- End If
- Case Else
- strFormControlTyp = "unbekannt"
- End Select
- End If
- Next
- If Firefox = True Then
- wsh.Run (vbfirefox & " " & Chr(34) & URL & Chr(34))
- Else
- wsh.Run (vbinternetexplorer & " " & Chr(34) & URL & Chr(34))
- End If
- Set wsh = Nothing
- End Sub