AW: InputBox: Hyperlink einfügen
27.02.2015 09:09:19
Propman
Hallo und Guten Morgen,
ich bin jetzt so weit:
Ich habe ein UserForm gebaut mit "Link öffnen" (LinkOpen) und "Link löschen" (LinkDelete).
Wenn ich auf die leere Zelle (Zum_Projekt // ist Zelle N3) klicke, dann soll eine InputBox aufgehen (klappt schon). Da rein kann ich meinen Link kopieren, dieser wird dann in N3 geschrieben und als "Zum Projekt" angezeigt
Nun steht in N3 "Zum Projekt", wunderbar. Klicke ich jetzt da drauf, soll aber nicht der Link geöffnet werden, sondern das von mir gebaute UserForm mit den Buttons "Link öffnen" und "Link löschen".
Was nicht klappt:
Klicke ich nun auf N3 kommt bei mir:
"Die angegebene Datei konnte nicht geöffnet werden."
An dieser Stelle möchte ich den Link aber noch nicht öffnen, sondern ja nur das UserForm. Wenn ich die Fehlermeldung wegklicke kommt das UserForm auch mit den 2 Buttons. Der Button "Link löschen" funktioniert auch, ich habe dazu folgenden Code auf den Button gelegt:
Private Sub LinkDelete_Click()
Range("$N$3").Value = ""
Unload Me
End Sub
Was ich nicht weiss ist, wie ich nun den Link (der ja wegen der Fehlermeldung eh noch nicht funktioniert) an den anderen Button (LinkOpen) übergebe und von dort aus auslösen kann.
So sieht mein Code aktuell aus:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = [Zum_Projekt].Address Then
Dim sTxt As String _
'Das wird der Hyperlink
Dim LinkName As Variant _
'Das wird der angezeigte Name des Hyperlinks
If Not Intersect(Target, [Zum_Projekt]) Is Nothing And Range("Zum_Projekt"). _
Hyperlinks.Count = 1 Then 'Wenn in Zelle ein Hyperlink vorhanden ist, dann...
HarvestSelect.Show _
'...öffne das UserForm
ElseIf Not Intersect(Target, [Zum_Projekt]) Is Nothing And Range(" _
Zum_Projekt").Hyperlinks.Count = 0 Then 'Wenn in Zelle kein Hyperlink vorhanden, dann...
sTxt = Application.InputBox("Bitte Harvest Projektlink einfügen:", "Harvest", "http://www.") '.. _
.öffne Inputbox
LinkName = "Zum Projekt"
End If
If sTxt = "" Then GoTo Abbruch _
'Wenn Cancel gedrückt wird oder kein Text eingegeben wird, dann...
Hyperlinks.Add Anchor:=Range("Zum_Projekt"), Address:=sTxt, _
ScreenTip:=sTxt, TextToDisplay:=LinkName 'Einfügen des Hyperlinks in die Zelle
Abbruch: Cancel = True _
'...InputBox Eingabe abbrechen
Else
End If
End Sub
Ich danke wie immer für Hilfe :D
LG Propman