HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Forumbeitrag
Excel-Version des Fragestellers:
365 Business
Erfahrungslevel des Fragestellers:
Kaum Excel/VBA-Kenntnisse
Ulf
04.06.2025 18:30:47
AW: Hyperlink erzeugen in Zelle mit Formel
Hi,
die Zeilen einfach mit einfachem Hochkomma STRG+# auskommentieren
'Set hyp = wks.Hyperlinks(1)

'Debug.Print hyp.Address
'Debug.Print hyp.SubAddress

oder löschen
Sie zeigen, sofern es einen händisch eingetragenen Hyperlink im Dokument gibt, dessen Aufbau zum Nachvollziehen. Wenn kein Hyperlink>ERR.
hth
Ulf
Als Antwort auf diesen Beitrag
PMH
04.06.2025 15:13:34
AW: Hyperlink erzeugen in Zelle mit Formel
Hallo Ulf,
vielen Dank.
Ich hab folgendes im Makro angepasst:
o Public Const cPräfix As String = "file:///C:\AA-PMH\06 Briefmarken\01 BRD\01 BRD.xlsm#BRD_"
...(Das ist der komplette Pfad und hinten die Excel-Datei mit dem Beginn des Zellen-Namens: BRD_,
...dahinter würde dann der Inhalt aus der Makro-Ermittlung stehen)
... wenn im aufrufenden Tabellenblatt eine 1975 steht, dann sollte der Hyperlink wie folgt aussehen:
file:///C:\AA-PMH\06 Briefmarken\01 BRD\01 BRD.xlsm#BRD_1975
Wie gesagt, die im link aufgeführte Excel-Tabelle (01 BRD.xslm) ist eine andere, als die aus der ich das Makro aufrufe

o den Suffix habe ich erstmal "ausgeblendet"
o Set wks = wb.Worksheets("Test")
... Text ist der Name des Tabellen-Blattes meiner Excel-Tabelle aus ich das Makro aufrufe

==> bei Set hyp = wks.Hyperlinks(1) debugged das Makro, was muss ich da eintragen

Ich kann an meinem Erkenntnisapparat rumarbeiten wie ich will, ich schaff's noch nicht
Folgenachrichten
Antwort auf Beitrag erstellen

Beispieldatei hochladen