Hyperlink funktioniert / so halb
04.06.2021 22:14:09
Timo
Jetzt bin ich aber auf eine Herausforderung gestoßen, bei der ich nicht so richtig weiter weiß.
Und zwar möchte ich bei einem Tabellenblatt via Doppelklick den FileDialog aufrufen, eine Datei auswählen und diese Datei dann der ausgewählten Zelle als Hyperlink hinterlegen. Was bisher eigentlich auch ganz gut funktioniert. Nun haben wir bei uns in der Firma aber auch Spezialisten, die Ordner gerne mit Rauten verzieren. Und hier kommen wir zu meinem Problem. Denn der von VBA eigefügte Hyperlink funktioniert immer nur bis zu einem Ordner ohne Rauten
Wenn ich selbe Datei händisch verlinke, funktioniert alles einwandfrei.
Hier das erste Sub:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("L18:L100")) Is Nothing Then
If Target(1) = ">>>LINK
Public Hyperlink As String
Sub Hyperlink_wählen()
'Variablen erstellen
Dim Ziel As String
'Fenster öffnen um die Zieldatei zu wählen
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.InitialFileName = ThisWorkbook.Path
.Title = "Datei für den Link wählen ACHTUNG, darf keine " & "#" & " enthalten"
.InitialView = msoFileDialogViewList
If .Show = -1 Then
'kompletten Pfad und Dateinamen in "Ziel" schreiben
Ziel = .SelectedItems(1)
End If
End With
'Wenn keine Datei gewählt wurde
If Ziel = "" Then
MsgBox ("Kein Ordner gewählt!")
AddHyperlink.Hyperlink = ""
GoTo Ende
End If
AddHyperlink.Hyperlink = Ziel
Ende:
End Sub
Hier der funktionierende Link
Hier der der nicht funktioniert:
Und da kann ich mir nicht erklären, woher der Bindestrich kommt
Und hier wenn ich die Variable die den Link enthält in eine Zelle schreibe:
