Hallo an Alle,

wer kann mir helfen?

c3 = Tabellenname  und Bereich |  Daten - [ d1:d100 ]

D14 = Perso-Nr.

Ich möchte diesen Hyperlink mit Vba in Spalte D einfügen.

Sub hyper()
For i = 11 To 20
Cells(i, 4).Select 

ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 4), Address:="",SubAddress:="#"&Zelle("Adresse";Index(INDIREKT(C3);Vergleich(D14;INDIREKT(C3);0));D14)

Next
End Sub

Vielen Dank im Voraus

Stefan