Ausgeblendete Tabellen sollen nicht auf Index
02.03.2009 14:17:11
Pascal
Mal wieder brauche ich die Hilfe von erfahrenen VBA - Profis:
Mittels dem untenstehenden Code erstelle ich in einer grossen Excel-Arbeitsmappe (mit unzähligen Tabellenblättern) ein Indexverzeichnis mit allen Register/Tabellenblättern, welche in der Arbeitsmappe vorhanden sind:
Diesen Code hatte ich übrigens mal netterweise hier im Forum erhalten.
Private Sub CommandButton27_Click()
Dim AnzWS As Long
AnzahlRegister = Sheets.Count
For i = 1 To AnzahlRegister - 1
X = i
For Zähler = i + 1 To AnzahlRegister
If UCase$(Sheets(Zähler).Name) i Then Sheets(X).Move Sheets(i)
Next i
Sheets("Voll_Index").Select
For AnzWS = 1 To ActiveWorkbook.Worksheets.Count
With ActiveSheet
.Hyperlinks.Add Anchor:=.Cells(AnzWS, 1), Address:="", SubAddress:= _
Sheets(AnzWS).Name & "!A1"
.Cells(AnzWS, 1) = Sheets(AnzWS).Name
End With
Next AnzWS
End Sub
Dieser Code soll nun so angepasst werden, dass alle ausgeblendeten Tabellenblätter auch nicht im Indexverzeichnis aufgeführt werden.
Geht das irgendwie ?
Währe Super, wenn mir jemand verraten könnte wie ich den obenstehenden Code entsprechend anpassen müsste.
Im voraus HERZLICHEN DANK !
Anzeige