Office: Hyperlink in Userform öffnen

Janideluxe · 5. August 2018

Hallo zusammen,

ich möchte in meiner Userform über Button einen Hyperlink der in der Tabelle steht öffnen.

dazu hätte ich folgenden Code vorgeschlagen

Code:

Worksheets("Tabelle1").FollowHyperlink Address:=??, NewWindow:=True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

meine Frage nun welche adresse gebe ich dem Hyperlink damit dieser sich auch ändert wenn ich einen anderen Eintrag in meiner Listbox auswähle.

ist es möglich den Link Name (so wie er in der Zelle steht) als Caption für den Button zu verwenden?

Danke schonmal

Beispieldatei ist angehängt

:)

MisterBurns · 6. August 2018

Code:

With Worksheets("Tabelle1")
.FollowHyperlink Address:=.Range("A1").Value, NewWindow:=True
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Janideluxe · 6. August 2018

Code:

With Worksheets("Tabelle1")
.FollowHyperlink Address:=.Range("A1").Value, NewWindow:=True
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

damit bekomme ich einen Laufzeitfehler.. Zudem wird sich der Link nicht ändern wenn ich mein Eintrag in der Listbox ändere oder?

MisterBurns · 6. August 2018

Das ist korrekt, das kommt davon, wenn ich blindlings kopiere ohne nachzudenken. Richtig muss es natürlich heißen:

Code:

ActiveWorkbook.FollowHyperlink Address:="http://" & Worksheets("Tabelle1").Range("D2").Text, NewWindow:=True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich hatte deine Datei nicht angeschaut und bin davon ausgegangen, dass dir damit schon mal auf die Sprünge geholfen ist. Den Range-Teil musst du halt so anpassen, dass die jeweils gewünschte Zeile genommen wird.

Janideluxe · 6. August 2018

Den Range-Teil musst du halt so anpassen, dass die jeweils gewünschte Zeile genommen wird.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

genau das ist mein Problem.. Komm nicht drauf wie ich das machen soll

MisterBurns · 6. August 2018

Komm nicht drauf wie ich das machen soll
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie hast du dein Formular erstellt?

Code:

Private Sub CommandButton5_Click()
Dim Zeile As Integer

Zeile = ListBox1.ListIndex + 2

ActiveWorkbook.FollowHyperlink Address:="http://" & Worksheets("Tabelle1").Cells(Zeile, 4).Value, NewWindow:=True

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

HS(V) · 6. August 2018

Code:

Private Sub UserForm_Initialize()
ListBox1.List = Sheets("tabelle1").ListObjects(1).DataBodyRange.Value
End Sub

Private Sub CommandButton5_Click()
ThisWorkbook.FollowHyperlink "http://" & ListBox1.Column(3)
End Sub

Private Sub ListBox1_Click()
If ListIndex > -1 Then
For i = 1 To 3
Me("textbox" & i) = ListBox1.Column(i - 1)
Next i
End If
end sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Janideluxe · 7. August 2018

Code:

Private Sub CommandButton5_Click()
Dim Zeile As Integer

Zeile = ListBox1.ListIndex + 2

ActiveWorkbook.FollowHyperlink Address:="http://" & Worksheets("Tabelle1").Cells(Zeile, 4).Value, NewWindow:=True

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke das funktioniert soweit! hab noch ein Problem, wenn sich der Hyperlink auf eine Datei auf dem PC bezieht aber in der Zelle nur der Dateiname vorhanden ist (Hyperlink ist aber hinterlegt mit vollem Pfad) wie öffne ich dann so ein Link?

edit: habs hinbekommen

Code:

Hyperlinks(1).Address
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

war die Lösung

Office: Hyperlink in Userform öffnen

Hyperlink in Userform öffnen

Hyperlink in Userform öffnen

Hyperlink in Userform öffnen

Hyperlink in Userform öffnen

Hyperlink in Userform öffnen - Similar Threads - Hyperlink Userform öffnen

Mehrfache Auswahl mit FileDialog

in Userform Hyperlinks mit auslesen und folgen

hyperlink in Userform

UserForm Textbox als Hyperlink Excel 2003

Hyperlink in Userform einbinden

Hyperlink in Userform

Hyperlinks in Userform