habe mit Hilfe einiger netter leute hier ein inhaltsverzeichnis mit Hyperlinks erstellt.
Es geht soweit alles die betreffenden Zellen werden auch als Hyperlink angezeigt , melden aber beim draufklicken "ungültiger Verweis" obwohl es die Blätter gibt.
Was mach ich falsch ???
Hier der VBA-Code dazu:
Sub Blattlist()
Dim wks As Worksheet
Dim i As Integer
Set wks = Worksheets("Inhaltsverzeichnis")
For i = 2 To Worksheets.Count
If Worksheets(i).Name <> wks.Name Then
wks.Cells(i, 1) = Worksheets(i).Name
wks.Cells(i, 2) = Worksheets(i).Range("A10")
wks.Cells(i, 3) = Worksheets(i).Range("A26")
wks.Cells(i, 4) = Worksheets(i).Range("A2")
wks.Hyperlinks.Add Anchor:=wks.Cells(i, 1), Address:="", SubAddress:= _
Worksheets(i).Name & "!A1"
End If
Next i
End Sub
Bjoern