Office-Fragen.de

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

Hola,
https://office-fragen.de/thread-13.html
bitte nachholen.
Danke.
Gruß,
steve1da

Morgen!

Ich versteh den Hinweis nicht. Mit welchem Beitrag soll ich denn verlinken?

Bernie

Mit deinem Beitrag im herber-Forum, und umgekehrt.

Und wo finde ich diese Crosspoint Möglichkeit?

Dein Hinweis darauf ist nämlich sehr hilfreich. Damit ich mehr User erreiche.

Und wie muss der Hinweis auf das Crosspointing aussehen?

Bernie

Du verlinkst einfach auf deinen Thread im herber Forum mit dem Hinweis, dass du dort auch gepostet hast.
Und dort machst du das gleiche zu diesem Thread hier.

Dafür finde ich keinen Button

So???

Siehe auch den gleichen Thread im herber Forum

https://www.herber.de/forum/messages/1924793.html

Alles zurück.

Funktioniert jetzt wieder.

Ich hatte den Blattschutz bei der Navigation falsch gesetzt. Bedingungen geändert und es läuft.

Ist mir wohl gestern versehentlich passiert.

Gruß Bernie