Hyperlinks werden nicht geöffnet
29.01.2014 13:37:47
Selina
Ich stehe mal wieder vor einer unlösbaren Aufgabe.
In einer Userform hab ich u.a. mehrere Textfelder.
In den Textfeldern stehen diverse Hyperlinks (teilweise auch Pfade/Links auf Dateien im Firmen-Intranet)
Hinter dem Textfeld steht dann folgender Code:
Private Sub Zielsuche_TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'######## Hyperlink Textbox1 per Doppelklick öffnen / Dokumentation öffnen
On Error GoTo Ende 'bei allfälligem Fehler soll zur Sprungmarke "Ende" gesprungen werden
'######## UserForm - Steuerung / Klassen --> Aktivierung der UserForm
Set objUserForm = New UserFormular_Steuerung
Set objUserForm.form = Me
objUserForm.WinState_ = Minimieren 'UserForm1 wird in Taskleiste minimiert
Link = Zielsuche_TextBox1.Text 'Variable Link wird mit derzeitigem Caption (=Hyperlink) abgefü _
llt
ActiveWorkbook.FollowHyperlink Link, NewWindow:=True
Ende: 'Sprungmarke "Ende"
End Sub
Dann sollte der entsprechende Hyperlink (in der Regel ein Dokument aus Intranet, oder eine Datei im Firmenweb) in einem neuen Fenster (in der entsprechenden Applikation) geöffnet. werden.
Leider aber werden mir diese Hyperlinks nie geöffnet.
woran mag das liegen ?
Bin wirklich für jeden Tip sehr dankbar
der User kann auf dem Textfeld Doppelklicken. Nun wird durch