HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Zum Forum Zum Forum Zum Forumthread Zum Forumthread Zum Archivthread Zum Archivthread Registrierung Registrierung Beispieldatei hochladen Beispieldatei hochladen
Forumbeitrag
Excel-Version des Fragestellers:
365 Business
Erfahrungslevel des Fragestellers:
Kaum Excel/VBA-Kenntnisse
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
Beim Antworter bedanken Als gefällt mir melden Als hervorragend melden
Als Antwort auf diesen Beitrag
Ulf
04.06.2025 13:32:42
AW: Hyperlink erzeugen in Zelle mit Formel
Hi,
für externe Links sieht das Ganze ~ so aus und bitte mal den Erkenntnisapparat auf höchste Stufe stellen:-) 
Option Explicit



'Aufbau "file:///" & Vollständiger Pfad zur Datei

'Public Const cPräfix As String = "file:///C:\Users\xx\Documents\herber\"

Public Const cPräfix As String = "file:///C:\Users\xx\Documents\"



'Aufbau "#" & Name oder Zelle

'Public Const cSuffix As String = "#Ziel"

'Public Const cSuffix As String = "#Sprungziel"

Public Const cSuffix As String = "A50"



Public Sub machHyperlinks()

    Dim wb As Workbook

    Dim wks As Worksheet

    Dim SpalteA As Range

    Dim meineZelle As Range

    Dim hyp As Hyperlink

    Set wb = ThisWorkbook 'ggf. ANPASSEN

    Set wks = wb.Worksheets(1) 'ANPASSEN

    Set hyp = wks.Hyperlinks(1)

    Debug.Print hyp.Address

    Debug.Print hyp.SubAddress

    'In der Zelle aus Spalte A steht folglich der Dateiname

    Set SpalteA = wks.Range("A:A")

    For Each meineZelle In SpalteA

        If meineZelle.Value <> "" Then

            'Interne Links Address=leer, SubAdddress=Name oder Zelle

            'wks.Hyperlinks.Add Anchor:=meineZelle.Offset(0, 7), Address:="", SubAddress:=cPräfix & meineZelle.Value & cSuffix

            

            'Externe Links Address=Datei, SubAdddress=Name oder Zelle

            wks.Hyperlinks.Add Anchor:=meineZelle.Offset(0, 7), Address:=cPräfix & meineZelle.Value & ".xlsm", SubAddress:=cSuffix

        End If

    Next meineZelle

End Sub

hth
Ulf
Folgenachrichten
Zum Forumthread
Antwort auf Beitrag erstellen
Beispieldatei hochladen