ich habe eine Datei, wo ich anhand einer Liste via Makro etliche Worksheets generiere, die den selben Namen haben wie die Zellen in der Liste
Zelle A1 = 1; Worksheet 1 = 1
Zelle A2 = 5; Worksheet 2 = 5
...
Ich möchte In der Liste, woraus ich die Worksheets generiert habe jeweils einen Hyperlink zu dem gleichnamigen Wokscheet haben. D.h. wenn man das Beispiel von oben nimmt, muss Zelle A1 zu dem Workshhet mit dem Namen 1 und Zelle A2 zu dem Worksheet mit dem Namen 5 verlinkt werden.
Ich habe schon recht viel gesucht, und finde leider nur Makros, die eine Art "Inhaltsverzeichnis" generieren.
Sub CreateLinksToAllSheets()
Dim sh As Worksheet
Dim cell As Range
For Each sh In ActiveWorkbook.Worksheets
If ActiveSheet.Name sh.Name Then
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'" & sh.Name & "'" & "!A1", TextToDisplay:=sh.Name
ActiveCell.Offset(1, 0).Select
End If
Next sh
End Sub
Weil in der Liste in Spalte B-J noch etliche weitere Daten stehen, und ich ide Zahlen aus Spalte A für S-Verweise benötige, ist die "Inhaltsverzeichnis" Variante nicht möglich.
Vielen Dank schon mal
Christina