Das funktioniert auch soweit nur der Hyperlink zu dem jeweiligen Blatt funktioniert nicht.
Da kommt immer der Fehler "Objekt erforderlich" Laufzeitfehler 424.
Weiß jemand was ich falsch mache ??
Der VBA-Code sieht wie folgt aus:
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:= _
ws.Name & "!A1"
End If
Next i
End Sub
Wäre nett wenn mir jemand mal einen Tip geben könnte
Mfg.
Björn