Hyperlinks per Macro einfügen
And
mit folgendem Code füge ich Hyperlinks auf andere *xls (001.xls-009.xls) in B1:B9 ein
Sub HLerstellen()
For i = 1 To 9
Range("B" & i).Select
'ab B1 hyperlinks auf Datei: *001,*002 usw
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"Formulare/AÜ-Formular_" & "0" & "0" & i & ".xls"
Next i
End Sub
selben Arbeitsmappe zu erstellen.
Die Namen der Tabellen stehen in D1:D9
Hyperlinks werden auch erstellt, funktionieren aber nicht.
("Die angegebene Datei konnte nicht geöffnet werden)
Sub Makro1() 'abgewandelt
For I = 1 To 9
Range("C" & I).Select
'HL erstellen in C1:C9 auf Tabellenblätter in selben xls
'(Namen wie in D1:D9)
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Range("D" & I).Value & "!" & "A1"
Next I
End Sub
ich tippe auf ActiveSheet.Hyperlinks.Add Anchor:=
finde aber selbst keine Lösung
Gruß Andreas
Anzeige