Hallo mere,

nachfolgendes Makro erstellt Dir in der Spalte E ab Zeile 2 bis zur Zeile 536 einen Hyperlink mit dem Verweis auf Spalte AD der gleichen Zeile.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Option Explicit

Sub Hyperlink_auf_Spalte_AD()
Dim iRow As Integer

For iRow = 2 To 536
    Cells(iRow, 5).Hyperlinks.Add Anchor:=Cells(iRow, 5), Address:="", SubAddress:= _
        "Tabelle1!AD" & iRow, TextToDisplay:="Link auf AD" & iRow
Next
End Sub

Hat Dein Tabellenblatt einen anderen Namen als Tabelle1, so musst Du in der Zeile

"Tabelle1!AD" & iRow, TextToDisplay:="Link auf AD" & iRow

den Blattnamen "Tabelle1" gegen Deinen tauschen.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hi Oliver!

Danke, funktioniert super. Hätte nicht gedacht das ich das hinbekomme. Aber es klappt!

Großes Lob an Dich!

Gruß!

mere