aus Zellen-Name Hyperlink erstellen

21.05.2025 13:45:40

PMH

Ich möchte aus einem Zellen-Name einen Hyperlink erstellen (ergänzt um einen Präfix) und diesen ergänzten Hyperlink in dieser Zelle hinterlegen.
Dies für jede Zelle der Spalte A (im Bereich A5 bis A1000).
Danach ist es mein Ziel mittels Mouse-Klick auf diese Zelle in eine andere Zelle in eine andere Excel-Tabelle zuspringen.
In dem u.a. Makro bekomme ich den Hyperlink-Bezug/-Eintrag nicht hin

Sub Aus_Zellen_Eintrag_Hyperlink_erstellen()
Dim Zelle As Range
Dim A As String ' für den Präfix vor dem Hyperlink
Dim H As Hyperlink ' ??????

A = "01 xyz.xlsm#" ' würde ich dann nach Bedarf anpassen

' Das Makro soll die komplette Spalte A Zelle für Zelle in dem Bereich A5 bis A1000 durchlaufen
' dabei wird der Zellen-Eintrag ausgelesen, der Präfix davorgehängt
' und nun beides als Hyperlink in der Zelle eintragen
'
For Each Zelle In Union(Range("A5:A1000"), ????????????????
?????????????????????????????? A & Zelle.Text, Zelle
????????????????????????????
Next

End Sub

AW: aus Zellen-Name Hyperlink erstellen

21.05.2025 14:55:49

UweD

Hallo

Warum per VBA?

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
5	Dein Text	Dein Text
6	USW	USW

Zelle	Formel
B5	=HYPERLINK("01 xyz.xlsm#"&A5;A5)

LG UweD

AW: aus Zellen-Name Hyperlink erstellen

21.05.2025 23:17:45

Uduuh

Hallo,
was hat das mit Zellen-Namen zu tun?

Mein Tipp:
Rekorder anwerfen, in eine Zelle einen HL einfügen, Rekorder stoppen und den aufgezeichneten Code überarbeiten.

Gruß aus'm Pott
Udo

AW: aus Zellen-Name Hyperlink erstellen

21.05.2025 18:06:40

PMH

Hallo UweD,
ich möchte den Hyperlink nicht in die 1000 Zellen per Hand eintragen, sondern:
der Hyperlink soll aus dem Zellen-Eintrag mit einem Präfix generiert werden und das Zelle für Zelle der Spalte A, sofern dort ein Zellen-Eintrag steht.
Beispiel: Zellen-Eintrag in Zelle A5 = 1773, Präfix = 01 xyz.xlsm# (diesen würde ich im Makro anpassen je nach dem)
dann soll anschließen in der Zelle A5 die Hyperlink-Adresse "01 xyz.xlsm#1773" stehen
Und dies Zelle für Zelle solange dort ein Zellen-Eintrag steht. Der Zellen-Eintrag ist immer eindeutig.

AW: aus Zellen-Name Hyperlink erstellen

21.05.2025 18:38:56

UweD

Hallo

Nicht von Hand. Das ist eine Formel, die du bis Zeile 6000 runterkopierst

Du sprachst eben davon, dass der Link in Spalte H erstellt werden soll; jetzt soll er aus A gelesen und in A zurück. Das geht nur per VBA

Hier mal noch den Präfix aus einer Zelle geholt, den du dann anpassen kannst

Arbeitsblatt mit dem Namen 'Tabelle2'

A

B

C

D

E

F

G

H

I

J

K

L

1

Präfix:

01 xyz.xlsm#

2

3

4

5

1773

01 xyz.xlsm#1773

6

2202

01 xyz.xlsm#2202

7

22

01 xyz.xlsm#22

8

554

01 xyz.xlsm#554

9

sd3

01 xyz.xlsm#sd3

10

DDD

01 xyz.xlsm#DDD

Zelle	Formel
H5	=HYPERLINK($L$1&A5)

LG UweD

AW: aus Zellen-Name Hyperlink erstellen

21.05.2025 19:58:19

PMH

Die Excel-Tabelle hat unten skizzierten Aufbau. Nicht in jeder Zelle der Spalte A steht einen Zellen-Inhalt.
Es soll nur (hier im skizzierten Beispiel) in den Zellen A1, A4, A9, .... ein Hyperlink mit dem Präfix erstellt werden.
Wie soll das mit runterkopieren funktionieren, dann würde doch in jeder Zelle ein Hyperlink (und in vielen Fällen ohne Bezug, da leer) stehen.

Die Idee in Deinem Beispiel ist super, funktioniert aber doch nur wenn keine "Leerzeilen" vorhanden sind oder ? oder ich hab's an den Augen und dann "Asche auf mein Haupt"

Die Excel-Tab (weit über 1000 Zeilen) hat folgenden Aufbau:
-----A-----B-----C-----D
1--1773
2
3
4--1800
5
6
7
8--1879
9--1891
....

AW: aus Zellen-Name Hyperlink erstellen

22.05.2025 10:24:47

UweD

Hallo

Wie wäre das?

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E	F	G	H	I	J	K	L
1												01 xyz.xlsm#
2
3
4
5	1773							01 xyz.xlsm#1773
6	1800							01 xyz.xlsm#1800
7
8
9	1979							01 xyz.xlsm#1979
10
11	1200							01 xyz.xlsm#1200
12
13

Zelle	Formel
H5	=WENN(A5>"";HYPERLINK($L$1&A5);"")

LG UweD

AW: aus Zellen-Name Hyperlink erstellen

21.05.2025 22:00:10

PMH

Hallo,
wenn ich Deinen Vorschlag durchziehe, dann steht der Hyperlink als Zellen-Eintrag drin und der alter Wert wurde überschrieben. Jede Zeile hat jetzt einen Zellen-Eintrag mit dem Hyperlink, obwohl dort kein Zelleneintrag drin steht.
Das will ich aber nicht.
Der bisherige Zellen-Wert in A5 etc. soll erhalten bleiben; hinterlegt mit einem "link" (Hyperlink).

Wenn ich "zu Fuss" einen Link auf A5 erstelle, dann bleibt der Zellen-Inhalt erhalten, er wird "unterstrichen" angezeigt als Info, dass dort ein Hyperlink hinterlegt ist.

Dies möchte ich mit dem Makro erreichen
Das Makro soll nur dann einen Hyperlink erstellen, wenn in den Zellen der Spalte A5 ein Zellen-Text vorhanden ist.

AW: aus Zellen-Name Hyperlink erstellen

22.05.2025 11:09:36

UweD

Hier ein Lösung per VBA

ob der LInk dann zur Zielzelle führt, mag ich nicht sagen, da ich die Dateien nicht kenne.

Sub Aus_Zellen_Eintrag_Hyperlink_erstellen()

    Dim Zelle As Range

    Dim PF As String ' für den Präfix vor dem Hyperlink

    Dim Sp As Integer

    

    PF = InputBox("Präfix?", , "01 xyz.xlsm#")

    Sp = 1 'Der Hyperlink soll in A geprüft und gesetzt werden

    

    With ThisWorkbook.ActiveSheet

        'Reset

        .Columns(Sp).Hyperlinks.Delete

    

        If WorksheetFunction.CountA(.Columns(Sp)) > 0 Then 'Prüfen, ob Einträge vorhanden sind

            'Hyperlink setzen

            For Each Zelle In .Columns(Sp).SpecialCells(xlCellTypeConstants, 3) 'Nur Zellen mit Inhalt betrachten

                .Hyperlinks.Add Anchor:=Zelle, Address:=PF & Zelle.Value, TextToDisplay:=Zelle.Value

            Next

        End If

    End With

End Sub

LG UweD

AW: aus Zellen-Name Hyperlink erstellen

22.05.2025 14:09:48

PMH

Hallo UweD,
danke für das VBA, ich denke das ist eigentlich das was ich haben möchte.

Ich hab' das Makro laufen lassen.
Bei der InputBox habe ich "01 BRD.xlsm#" eingegeben.
Das Makro debugged bei der Zeile (bzw. diese ist gelb hinterlegt):
.Hyperlinks.Add Anchor:=Zelle, Address:=PF & Zelle.Value, TextToDisplay:=Zelle.Value

Zur Info vor Ablauf des Makros steht in meiner Excel-Tabelle in "A2" der Eintrag: 1834.
A1 ist leer, genauso wie A3 bis A6, in A7 steht wieder ein numerischer Wert, usw. einige Werte sind leer, dann wieder numerischer Wert...........

AW: aus Zellen-Name Hyperlink erstellen

22.05.2025 14:38:40

UweD

Hi

So wie ich das Verstehe. willst du in einen benannten Bereich einer anderen Datei wechseln.

Meiner Meinung nach müssen diese Benannten Bereiche aber mit einem Buchstaben oder _ beginnen.

Ebenso:

beim Probieren musste ich bei mir immer den kompletten Pfad der Datei mit angeben.
Auch wenn die Zieldatei schon geöffnet ist.

Versuch doch mal , in der Zelle _1222 und auch mit Pfad

Sub Aus_Zellen_Eintrag_Hyperlink_erstellen()

    Dim Zelle As Range

    Dim PF As String ' für den Präfix vor dem Hyperlink

    Dim Pfad As String, Sp As Integer

    

    Pfad = "E:\Excel\Temp\" 'mit \ am Ende

    Sp = 1 'Der Hyperlink soll in A geprüft und gesetzt werden"

    

    PF = InputBox("Präfix?", , "01 xyz.xlsm#")

    

    With ThisWorkbook.ActiveSheet

        'Reset

        .Columns(Sp).Hyperlinks.Delete

    

        If WorksheetFunction.CountA(.Columns(Sp)) > 0 Then 'Prüfen, ob Einträge vorhanden sind

            'Hyperlink setzen

            For Each Zelle In .Columns(Sp).SpecialCells(xlCellTypeConstants, 3) 'Nur Zellen mit Inhalt betrachten

                .Hyperlinks.Add Anchor:=Zelle, Address:=Pfad & PF & Zelle.Value, TextToDisplay:=Zelle.Value

            Next

        End If

    End With

End Sub

LG UweD

AW: aus Zellen-Name Hyperlink erstellen

22.05.2025 15:21:35

PMH

Hallo,
unverändert nach Eingabe des kompletten Pfades, debugg an gleicher Stelle

Wenn ich "zu Fuß" bei einer Zelle einen Link setze (rechte Maus und link anklicken) , dann steht dort als Link z.B.:
01%20BRD.xlsm#BRD_1834

auch wenn ich beim Präfix "%20" explizit eingebe, dann debuggt das Makro

AW: aus Zellen-Name Hyperlink erstellen

22.05.2025 15:57:34

UweD

Hallo

Was steht dann jetzt genau in der Zelle?

a) nur 1834
b) oder wie jetzt in deinem händischen Beispiel BRD_1834

a) kann nicht gehen, da du in Excel keine Zellen so benennen kannst
b) gibt es diesen benannten Bereich auch in der Zieldatei?

Bei mir klappt es mit Pfad und richtig benannten Bereich perfekt.

LG UweD

AW: aus Zellen-Name Hyperlink erstellen

22.05.2025 16:50:58

PMH

Hallo,
in der Zelle (Zellen-Inhalt) steht: 1834
Der Zelle habe ich einen Namen vergeben: BRD_1834 (damit ich aus anderen Tabellen dahin verzweigen kann.

Jetzt soll noch mit meiner Anfrage ein Link auf diese Zelle vergeben werden/hinterlegt werden, damit ich aus dieser Zelle in eine andere Zelle springen kann.

AW: aus Zellen-Name Hyperlink erstellen

22.05.2025 17:41:09

UweD

Hallo

Dann musst du den Präfix eben so angeben "01 xyz.xlsm#BRD_"

LG UweD

AW: aus Zellen-Name Hyperlink erstellen

22.05.2025 18:40:52

PMH

Hallo,
egal was ich eingebe: den kompletten Pfad oder den Präfix eingebe, das Macro debugged immer an der gleichen Stelle

ich denke, ich bin zu blöd dafür
ich denke, ich mach den link händisch, es ist zwar eine irre Arbeit, aber es funktioniert

wenn ich es händisch mache, dann sieht die Zelle wie folgt aus:
o Zellen-Inhalt: 1834 == unverändert
o Zellen-Name: BRD_1834 == unverändert
o Hyperlink: (zu einer ganz anderen Excel-Tabelle/Tabellenblatt): 01%20BRD.xlsm#BRD_1834
==> mein Ziel war es per Makro diesen Hyperlink zu erzeugen; aus Zellen-Inhalt und einem Präfix und beide zusammengesetzt als Hyperlink dieser Zelle zuzuordnen:
o 01 BRD.xlsm#BRD_ als Präfix festlegen (entweder fix im Macro oder per Box erfragen)
o 1834 aus dem Zellen-Inhalt zu generieren

AW: aus Zellen-Name Hyperlink erstellen

22.05.2025 19:24:56

PMH

und ich geb' doch nicht auf. Ich habe das Makro von Dir angepasst:
Im wesentlichen:
o ich nutze den Pfad als Präfix
o "TextToDisplay:=Zelle.Value" entfernt, denn dort kommt es zum debugg
o das Makro läuft durch, ändert aber nur den ersten Eintrag und dies mit dem funktionierenden Hyperlink wie erwünscht
o was muss noch geändert/angepasst werden, damit die Spalte komplett durchlaufen wird (z.B. Ranch A1 bis A1000) ?

Dim Zelle As Range
Dim Praef As String ' für den Präfix vor dem Hyperlink, brauch ich nicht mehr, da alles im Pfad steht
Dim Pfad As String, Sp As Integer

Pfad = "C:\AA-PMH\06 Briefmarken\01 BRD\01 BRD.xlsm#BRD_"
Sp = 1 'Der Hyperlink soll in A geprüft und gesetzt werden"

With ThisWorkbook.ActiveSheet
'Reset
.Columns(Sp).Hyperlinks.Delete

If WorksheetFunction.CountA(.Columns(Sp)) > 0 Then 'Prüfen, ob Einträge vorhanden sind
For Each Zelle In .Columns(Sp).SpecialCells(xlCellTypeConstants, 3) 'Nur Zellen mit Inhalt betrachten
.Hyperlinks.Add Anchor:=Zelle, Address:=Pfad & Zelle.Value
Next
End If
End With

AW: aus Zellen-Name Hyperlink erstellen

22.05.2025 19:42:29

UweD

Hallo

*** Während des Schreibens gerade noch was aufgefallen...
Es kann sein, dass die Zahlen als Text interpretiert werden müssen
Der Pfad kann weggelassen werden, merkt sich Excel scheinbar
***

1) Du bist in Deiner Datei, die z.B. Master.xlsm heißt
2) Es gibt eine andere Datei mit dem Namen 01 xyz.xlsm. Die kann offen oder geschlossen sein

in 1) liegt das Makro und hier hast du in Spalte A Zahlenfolgen drinstehen

1834
1835
...
hier startest du auch das Makro

in 2) NICHT IN 1) sind an bestimmten Stellen Zellen /Zellbereiche mit Namen benannt
Die heißen dann BRD_1834 und BRD_1835 usw

Ein Hyperlink in einer Zelle in 1) ist wie folgt aufgebaut

Dateiname: "01 xyz.xlsm"
Trennzeichen: #
Zellbereich: BRD_1834

Der Hyperlink heißt dann später "01 xyz.xlsm#BRD_1834"

Also so, leicht angepasst...



Sub Aus_Zellen_Eintrag_Hyperlink_erstellen()

    Dim Zelle As Range

    Dim PF As String ' für den Präfix vor dem Hyperlink

    Dim Pfad As String, Sp As Integer, Ziel As String

    

    'Pfad = "E:\Excel\Temp\" 'mit \ am Ende ***** kann ggf weggelassen werden

    Sp = 1 'Der Hyperlink soll in A geprüft und gesetzt werden"

    

    PF = InputBox("Präfix?", , "01 xyz.xlsm#BRD_")

    

    With ThisWorkbook.ActiveSheet

        'Reset

        .Columns(Sp).Hyperlinks.Delete

    

        If WorksheetFunction.CountA(.Columns(Sp)) > 0 Then 'Prüfen, ob Einträge vorhanden sind

            'Hyperlink setzen

            For Each Zelle In .Columns(Sp).SpecialCells(xlCellTypeConstants, 3) 'Nur Zellen mit Inhalt betrachten

                Ziel = Zelle.Value

                .Hyperlinks.Add Anchor:=Zelle, Address:=PF & Ziel, TextToDisplay:=Ziel

            Next

        End If

    End With

End Sub

LG UweD

AW: aus Zellen-Name Hyperlink erstellen

22.05.2025 20:45:23

PMH

Hallo UweD,
das Makro läuft fehlerfrei durch. Ich hab' mit "F8" in den Einzelschritte getestet.

Nur ändert das Makro nur den ersten Eintrag. Nach dem "Next" geht das Makro direkt auf "End If"

Wie kann ich die komplette Spalte A bearbeiten. Mit einer Angabe des Bereich: A2:A1000 oder in dem ich den Bereich vorher in dem Tabelle von/bis markiere ?

AW: aus Zellen-Name Hyperlink erstellen

22.05.2025 21:04:37

daniel

was genau steht in den Zellen?
ein von Hand eingebener Festwert oder stehen da Formeln oder kommt ggf sogar beides vor?

die Schleife:
For Each Zelle In .Columns(Sp).SpecialCells(xlCellTypeConstants, 3)
läuft nur über Zellen mit von Hand eingebenen konstanten Wert und ignoriert alle Zellen, die Formeln enthalten.
dafür steht das xlCelltypeConstants.

kannst du nicht mal eine Beispieldatei hochladen und so zeigen, was du tatsächlich vorliegen hast?

AW: aus Zellen-Name Hyperlink erstellen

22.05.2025 21:14:52

PMH

in den Zellen stehen keine Formeln
A1 ist leer, A2 hat Zellen-Eintrag 1834
A3 bis A6 ist leer, A7 hat wieder einen Eintrag
A7 + A9 sind leer, A10 hat wieder einen Eintrag
.... dies zieht sich über das ganze Tabellen in der Spalte A

Und wie gesagt das Makro läuft durch, ignoriert A1, da kein Inhalt, in A2 wird ein richtigen Hyperlink hinterlegt,
aber dann endet das Makro

AW: aus Zellen-Name Hyperlink erstellen

23.05.2025 11:25:20

UweD

Hallo

Wie Daniel schon geschrieben hat. Ohne Musterdatei ist das alles nur Raten.

Lade bitte deine Musterdatei hoch. am Besten Beide.

LG UweD

AW: aus Zellen-Name Hyperlink erstellen

23.05.2025 13:15:22

PMH

Hallo zusammen,
das Makro läuft jetzt fehlerfrei durch. In A3 stand eine Formel, die aber kein Ergebnis (also auch keinen Zelleninhalt angezeigt hat). Mein Fehler, meine schlechten "Augen". Deshalb stoppte das Makro hier.
Danke nochmal für die Unterstützung.

Jetzt wurde mit der Lösung noch eine ähnliche Anforderung von mir erweckt.
mit dem Zellen-Inhalt der Spalte A einen Hyperlink in Spalte G erzeugen, obwohl in Spalte G eine Formel hinterlegt ist
Beispiel:
Zelle A3 mit Zellen-Inhalt = 1834 führt zu einem Hyperlink in G3 (Präfix1834)
Zelle A7 mit Zellen-Inhalt = 1835 führt zu einem Hyperlink in G7 (Präfix1835)
usw.
Geht das ?
Was müsste in dem letzten Makro angepasst werden

aus Zellen-Name Hyperlink erstellen

Forumthread: aus Zellen-Name Hyperlink erstellen

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

aus Zellen-Name Hyperlink erstellen

Forumthread: aus Zellen-Name Hyperlink erstellen

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread