Mehrfachauswahl von Sheets, bestimmtes anzeigen
11.02.2009 17:32:00
Sheets,
Ich habe eine Datei mit vielen Sheets, unter anderen gibt es Tabellennamen 0100 - 1231 und andere mit einem alpanumerischen Namen versehene Tabellen.
Nun möchte ich mit untenstehendem Makro alle mit Ziffern benannten Tabellen
einblenden und diese alle selektionieren,
wobei die Tabelle, die vor dem Ausführen dieses Makros angezeigt wurde weiter angezeigt werden soll. Falls die Tabelle, die vor dem Ausführen dieses Makros angezeigt wurde einen alphanumerischen Namen hat, soll anstelle dieser die Tabelle "0100" angezeigt werden.
Das Einblenden der Tabellen schaffe ich, jedoch nicht, dass alle selektiert und die Gewünschte angezeigt wird.
Wer kann mir helfen?
Danke für eine Antwort.
Gruss, Peter
Sub Tagestabellen()
Dim wks As Worksheet
Application.ScreenUpdating = False
ThisWorkbook.Activate
For Each wks In Worksheets
wks.Visible = True
Next wks
For Each wks In Worksheets
Select Case wks.Name
Case 1001 To 1231
wks.Visible = True
Case Else
wks.Visible = False
End Select
Next wks
Application.ScreenUpdating = True
End Sub