Hyperlink über Steuerelement

[patrick123]

Hallo Leute, ich komme nicht weiter und zwar habe ich versucht über ein Steuerelement eine Liste zu erstellen um Ausgaben gefiltert darzustellen.

Soweit so gut, dass einzige was ich nicht hinbekomme ist eine Hyperlink zu setzen, ich hoffe mir kann jemand helfen.

Ich möchte also im 3. Menü wo "http://www.google.de" steht, dass ich auf dort drauf klicken kann und dann verlinkt werde.

Falls jemand weiss wie ich das so, oder so ähnlich bewerkstelligen könnte, wäre ich Ihm sehr dankbar.

Hier mal zur Veranschaulichung ein des Problems:

Gruß Patrick

[Officer]

Hi,

mit dem folgenden VBA Code sollte es funktionieren:

Code: Visual Basic

1. Private Sub ListBox1_Change()
2. link = Sheets(1).ListBox1.Value
3. Set wshshell = CreateObject("WScript.Shell")
4. wshshell.Run link
5. End Sub
6.  

Diesen Code bitte in das entsprechende Sheet eintragen, auf der sich die Listbox befindet. Vielleicht muss auch der Listbox-Name noch geändert werden.

Gruß

Officer

[patrick123]

Nicht so schnell 

wie schaffe ich das?

Bin kompletter Anfänger, habe gerade den EM eingeschaltet und es dann als Makro definiert, aber passiert nichts.

[admin]

Hallo Patrick,

ich habe die Beispieldatei beigefügt. Dort findest Du im VBA-Editor (Aufruf mit Alt + F11) den VBA-Code im Code-Modul "Tabelle1".
Der Code muss in dieses Modul, damit das Klick-Ereignis auf die ListBox abgefangen werden kann.

Ich denke, die Beispieldatei sollte dir weiterhelfen.

Gruß

Officer

[patrick123]

Ohja vielen dank, das hat schon einmal funktioniert!

Aber wie übertrage ich das nun in mein Projekt, muss ich den Code, nachdem ich ihn
eingefügt habe noch irgendwie abspeichern oder so etwas?


Danke für eure Hilfe!

[Officer]

Hallo Patrick,

wenn du den code in deine Excel-Datei eingefügt hast und er funktioniert, genügt es, wenn Du die Excel-Datei abspeicherst. Damit wird der VBA-Code ebenfalls mit gespeichert. Achte aber darauf, dass Du ab Excel 2007 die Datei als xlsm-Datei abspeicherst, da in einer xlsx-Datei kein VBA-Code aus Sicherheitsgründen gespeichert werden kann.

Gruß

Officer