Sepp hatte mir einen perfekt funktionierenden Code gebastelt, aber die Kollegen haben den Dateiaufbau ohne Rückfrage geändert.
Code bisher (Auszug):
With objIndex
.Cells.Clear
.Range("B1") = "Phasenblätter"
.Range("D1") = "Einzelblätter"
.Rows(1).Font.Bold = True
For Each objSh In ThisWorkbook.Worksheets
If objSh.Name "Index" Then
If IsNumeric(Evaluate(objSh.Name)) Then
'ändern auf "beginnt mit Zahl"
.Hyperlinks.Add Anchor:=.Cells(lngE, 4), Address:="", _
SubAddress:="'" & objSh.Name & "'!A1", TextToDisplay:=objSh.Name, _
ScreenTip:="Klicken Sie um zur Tabelle zu gelangen"
lngE = lngE + 1
Else
.Hyperlinks.Add Anchor:=.Cells(lngP, 2), Address:="", _
SubAddress:="'" & objSh.Name & "'!A1", TextToDisplay:=objSh.Name, _
ScreenTip:="Klicken Sie um zur Tabelle zu gelangen"
lngP = lngP + 1
End If
End If
Next
"If IsNumeric Evaluate(objSh.Name)) Then" habe ich versucht zu ändern auf
"If IsLike "#*"(Evaluate(objSh.Name)) Then"
aber bei "#*" kam die Meldung (so ungefähr) "Fehler bei Kompilierung (Then erwartet)"
Das Problem ist, dass ich plötzlich 70 neue Tabellenblätter habe, die keinen numerischen Namen mehr haben (z.B. 12345-56768) sondern jetzt 12345-56768(Z). Diese Blätter sollen aber genau gleich behandelt werden.
Zur Verdeutlichung eine Mustertabelle
https://www.herber.de/bbs/user/101208.xlsm
Vermutlich eine kleine Sache für Euch -für mich ein Berg.
Vielen Dank im Voraus.
Margarete