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
02.06.2025 16:55:20
AW: Hyperlink erzeugen in Zelle mit Formel
Hallo Ulf,
danke für das Makro.

Ich habe Worksheet und Range angepasst.
Das Makro läuft fehlerfrei durch; es werden auch nur so viele Hyperlinks erzeugt wie in Spalte A Inhalte sind
aber
o der Hyperlink soll in Spalte G erzeugt werden
o wenn in A1 ein Zellen-Inhalt vorhanden, dann Hyperlink in G1 erzeugen
o usw....

==> erzeugt wird der Hyperlink in Spalte A bei dem jeweiligen Inhalt
==> wenn ich in der Spalte auf den Hyperlink gehe (rechte Maus/Hyperlink bearbeiten), dann wird er nicht angezeigt
==> ich finde den Hyperlink "ABC_1895_xyz" (siehe Muster) nicht, die anderen auch nicht

===> muss ich was bei der Adresse anpassen ??
Beim Antworter bedanken Als gefällt mir melden Als hervorragend melden
Als Antwort auf diesen Beitrag
Ulf
02.06.2025 15:03:47
AW: Hyperlink erzeugen in Zelle mit Formel
Hi, 


Public Const cPräfix As String = "ABC_"

Public Const cSuffix As String = "_123"



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 SpalteA = wks.Range("A:A")

    For Each meineZelle In SpalteA

        If meineZelle.Value <> "" Then

            wks.Hyperlinks.Add Anchor:=meineZelle, Address:="", SubAddress:=cPräfix & meineZelle.Value & cSuffix

        End If

    Next meineZelle

End Sub

hth
Ulf
Folgenachrichten
Zum Forumthread
Antwort auf Beitrag erstellen
Beispieldatei hochladen