ich habe 2 Tabellenblätter A und B,
In A sind in der Spalte A die Zahlen 1-80,
in B sind in der Zeile 3 die Zahlen 1-80
Weiterhin gibt es 80 Tabellenblätter, die mit 1-80 benannt sind.
Wenn ich jetzt über Einfügen/Hyperlink z.B. eine Zelle mit Inhalt 1 auf das entsprechende Tabellenblatt verweise, ist alles paletti:-)
Gegenüber der HYPERLINK-Funktion ist hier der Vorteil, dass die Zelle ihren Zellwert behält.
Wenn ich jetzt aber per VBA
'ActiveSheet.Hyperlinks.Add anchor:=ActiveSheet.Range("A5"), _
Address:="file:///D:\Temp\ImportCSV\Auswertung.xlsm - 1!A1"
den Hyperlink setze, kommt eine Fehlermeldung 'Datei konnte nicht geöffnet werden".
Ich habe in der Zelle mit der 2 einmal den Hyperlink mit /Eingügen/Hyperlink erstellt. Der Hoovertext ist bei beiden Versionen derselbe.
mit 'MsgBox (Range("A5").Hyperlinks(1).Address)' lässt sich auch der per VBA erzeugte Hyperlink auslesen, der andere nicht.
Ich habe natürlich keine Lust, 2 x 80 Hyperlinks manuell über 'Einfügen' zu erzeugen:-)
Mein Makro müsste also so aussehen (einfachhalthalber mit Start in A1 für Tab A):
for i = 1 to 80
cells(i,1).hyperlink = "D:\Temp\ImportCSV\Auswertung.xlsm - " & i & "!A1"
Next
Gibt es da eine Lösung?
Gruß und danke,
Jens