Hyperlink erzeugen in Zelle mit Formel

PMH · 2025-05-31T18:31:01+02:00

Ich möchte ein Tabellenblatt durchlaufen. Immer wenn in der Spalte A eine Zelle einen Wert hat (z.B. 1733), dann soll mit diesem Zellen-Wert ein Hyperlink in einer anderen Spalte dieses Tabellenblattes auf gleicher Höhe erzeugt werden. Beispiel Ausgangssituation (Spalte A, Zellen sind nicht immer belegt; wenn in A11 Inhalt vorhanden, dann in G11 Hyperlink hinterlegen): wenn in Spalte A eine Zelle gefüllt ist, z.B. Zelle A11 mit Zellen-Inhalt 1733 dann soll rechts davon in Spalte G, Zelle G11 ein Hyperlink hinterlegt werden (mit Präfix, Zellenwert 1733, Suffix) ............... wenn in Spalte A eine Zelle gefüllt ist, z.B. Zelle A27 mit Zellen-Inhalt 1845 dann soll rechts davon in Spalte G, Zelle G27 ein Hyperlink hinterlegt werden (mit Präfix, Zellenwert 1845, Suffix) usw. Problem: die Zellen-Inhalte in der Spalte G sind mit einer Formel hinterlegt und der Inhalt soll erhalten bleiben Den Präfix und den Suffix würde ich in dem Makro setzen

Hier das vereinfachte Muster zu der u.a. Anforderung:
https://www.herber.de/bbs/user/177637.xlsm

Ausgangssituation:
o Tabellenblatt > 1000 Zeilen (viele, viele Tabellenblätter würde ich dann nach und nach mit dem Makro bearbeiten)
o die Spalte A mit dem Zellen-Eintrag ist ausschlaggebend (aber nicht jede Zelle in der Spalte A hat einen Eintrag)
o wenn aber ein Eintrag vorhanden ist, dann soll auf "gleicher Zeilenhöhe" in Spalte G einen Hyperlink hinterlegen

Hier im Muster:
Zelle A1 (Zelleninhalt: 1895), Zelle G1 (mit Inhalt 4 ermittelt per Formel)
Zelle A11 (Zelleninhalt: 1897), Zelle G11 (mit Inhalt 4 ermittelt per Formel)
usw....

Anforderung:
o Tabellenblatt durchlaufen bis letzter Eintrag bearbeitet
o wenn Zelle in Spalte A einen Wert hat (hier im Muster Zelle A1 = 1895),
dann soll damit ein Hyperlink in Spalte G (hier im Muster G1) erzeugt werden
(Hyperlink mit Präfix + Suffix; hier im Musterbeispiel sieht er dann wie folgt aus: "ABC_1895_xyz"

o der bisher erzeugte Wert in G (ermittelt durch eine Formel) hier im Beispiel = 4 muss erhalten bleiben
o Präfix + Suffix würden im Makro (jeweils) editiert/angepasst

==> bisherige Aussage: einen Hyperlink per Makro in einer Zelle hinterlegen, deren Wert per Formel ermittelt wurde, geht nicht
==> wenn ich den Hyperlink "zu Fuss" bei der Spalte (mit Spalten-Inhalt [per Formel ermittelt] + Spalten-Name) vornehme, dann geht dies ohne Probleme. Das Feld hat eine Formel, der daraus errechnete Wert (Feld-Inhalt 4) wird angezeigt. Die Zelle hat einen von mir vergebenen Namen und ist mit dem von mir vergebenen Hyperlink hinterlegt.

Bitte nochmal prüfen, ob meine "zu Fuss"-Vorgehensweise nicht doch per Makro erstellt werden kann, was meine Arbeit bei Tausenden Zellen in vielen Tabellenblättern und Excel-Tabellen erheblich erleichtern würde

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

Hyperlink erzeugen in Zelle mit Formel

Forumthread: Hyperlink erzeugen in Zelle mit Formel

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Hyperlink erzeugen in Zelle mit Formel

Forumthread: Hyperlink erzeugen in Zelle mit Formel

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread