Hyperlink erstellen
06.11.2020 09:13:33
Manfred
mit dem kleinen Makro würde ich gerne einen Hyperlink zu einem Ordner erstellen.
zur Überprüfung ob der Hyperlink funktioniert schreibe ich ihn in die Zelle A2 im aktiven Blatt.
Später wird diese Anweisung auskommentiert.
Den Hyperlink will ich später in ein anders Makro einbauen.
Der Pfad zum späteren Ordner hat jedoch leere Stellen in den Ordnernamen.
Ich habe mindestens 20 Möglichkeiten ausprobiert und bekomme es nicht hin.
Ich glaube ich habe einen Denkfehler mit der SELECTION den ich nicht erkennen kann.
Die SELECTION schreibt den Hyperlink in eine X-beliebige Zelle, was nicht dein darf.
Kann mir bitte jemand helfen ?
Sub Hyperlink_erstellen()
Dim Link As String
Link = "C:\temp\"
Link = Chr(34) & Link & Chr(34)
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Link, TextToDisplay:=Link
ActiveSheet.Range("A2").Value = Link
End Sub
Manfred