Ich habe von einem (nicht mehr greifbaren) Kollegen ein Makro zum Auslesen von DateiInformationen aus einem fest definiertem Laufwerk übernommen. Die Ausleseergebnsse werden in Form einer Excel-Tabelle dargestellt.
Frage: Der ausgelesene Titel soll nun als Hyperlink dargestllt werden. Kann/Will mir einer einen Tipp geben?
Nachstehend ein Vorschlag eines Hyperlinkmakros, das aber nicht funktioniert.
Vorab schon mal: DANKE!!!!
strf1 = "='"
strf1 = strf1 & strp & "["
strf1 = strf1 & arrf(intc) & "]"

Filename$ = strf1 ' --- HYPERLINK Filneamezuordnung ---

strf1 = strf1 & "Wertetabelle'!"
strt1 = Right(strf1, Len(strf1) - 1)
strf1 = strf1 & "C4" 'Projektname

'Hyperlink Anfang
rng.Offset(0, 0).Formula = "=HYPERLINK(" & Filename$ & "," & strf1 & ")"
'Hyperlink Ende

strf2 = "='"
strf2 = strf2 & strp & "["
strf2 = strf2 & arrf(intc) & "]"
strf2 = strf2 & "Wertetabelle'!"
strt2 = Right(strf2, Len(strf2) - 1)
strf2 = strf2 & "D4" 'Daten Zelle D4
rng.Offset(0, 1).Formula = strf2

strf3 = "='"
strf3 = strf3 & strp & "["
strf3 = strf3 & arrf(intc) & "]"
strf3 = strf3 & "Wertetabelle'!"
strt3 = Right(strf3, Len(strf3) - 1)
strf3 = strf3 & "E4" 'Daten Zelle E4
rng.Offset(0, 2).Formula = strf3
'usw.