Warum listet Excel trotzdem auf?
28.06.2007 06:14:00
Markus
ich möchte eine Liste aller Tabellenblätter mit Hyperlinks haben.
Das funktioniert, ausser ..
dass ich einige Blätter NICHT auflisten möchte. (z.B. KST1 oder Serien_Blätter)
Danke für Hilfe
Markus
Sub Tabellenliste()
Dim wks As Worksheet
Dim Zeile As Long
Dim xlsortNorMal As String
'nach alter Liste suchen und löschen
For Each wks In ThisWorkbook.Worksheets
If wks.Name = "Tabellenliste" Then
Application.DisplayAlerts = False
wks.Delete
Application.DisplayAlerts = True
End If
Next wks
Worksheets.Add
ActiveSheet.Name = "Tabellenliste"
ActiveSheet.Move before:=Worksheets(1)
Cells(2, 2).Value = "Enthaltene Blätter"
Zeile = 4
'alle Tabellen eintragen
For Each wks In ThisWorkbook.Worksheets
'mit Hyperlink
If Not wks.Name = "Tabellenliste" Or Not wks.Name = "Serien_Blaetter" Or Not wks.Name = "KST1" _
_
Then
With ThisWorkbook.Worksheets("Tabellenliste").Cells(Zeile, 2)
.Hyperlinks.Add Cells(Zeile, 2), Address:="", SubAddress:=wks.Name ' & "!A1"
End With
Else
End If
Zeile = Zeile + 1
Next wks
End Sub