Inhaltsverzeichnis wird nicht mehr dynamisch mit Blattnamen incl. Hyperlink befüllt
Hallo wieder mal,
ich hab seit heute ein Problem:
Bislang funktionierte das nachfolgende Makro einwandfrei.
Er befüllte die Tabelle meines Arbeitsblatts ab Zelle "D13" nach unten hin dynamisch mit sämtlichen Blattnamen. Die Zellen führten einen Link zum jeweiligen Blatt mittels Hyperlink automatisch aus:
'Blatt Navigation neu befüllen
Sub Navigation()
Dim lngRow As Long
Dim wks As Worksheet
lngRow = 12
With Worksheets("Navigation")
.Range("d13:d50").ClearContents
For Each wks In Worksheets
If wks.Name <> .Name Then
lngRow = lngRow + 1
.Hyperlinks.Add .Cells(lngRow, 4), "", "'" & wks.Name & "'!A1", , wks.Name
'Hier stoppt der Debugger mit Fehlermeldung: "Laufzeitfehler '1004': Anwendungs- oder ojektdefinierter Fehler"
End If
Next
End With
Sheets("Navigation").Select
Worksheets("Navigation").Range("D13").Activate
End Sub
Gleichzeitig wurde bereits mein Tabellenblatt "Navigation" aufgerufen, aber ohne die dynamischen Blattnamen.
Wer findet bitte den Fehler?
Danke Bernie
ich hab seit heute ein Problem:
Bislang funktionierte das nachfolgende Makro einwandfrei.
Er befüllte die Tabelle meines Arbeitsblatts ab Zelle "D13" nach unten hin dynamisch mit sämtlichen Blattnamen. Die Zellen führten einen Link zum jeweiligen Blatt mittels Hyperlink automatisch aus:
'Blatt Navigation neu befüllen
Sub Navigation()
Dim lngRow As Long
Dim wks As Worksheet
lngRow = 12
With Worksheets("Navigation")
.Range("d13:d50").ClearContents
For Each wks In Worksheets
If wks.Name <> .Name Then
lngRow = lngRow + 1
.Hyperlinks.Add .Cells(lngRow, 4), "", "'" & wks.Name & "'!A1", , wks.Name
'Hier stoppt der Debugger mit Fehlermeldung: "Laufzeitfehler '1004': Anwendungs- oder ojektdefinierter Fehler"
End If
Next
End With
Sheets("Navigation").Select
Worksheets("Navigation").Range("D13").Activate
End Sub
Gleichzeitig wurde bereits mein Tabellenblatt "Navigation" aufgerufen, aber ohne die dynamischen Blattnamen.
Wer findet bitte den Fehler?
Danke Bernie
