Selektion von Tabellenblättern nach Inhalt
25.04.2006 10:31:35
Tabellenblättern
habe folgendes Problem: ich habe eine Tabellenvorlage mit 31 Blättern um darin meine Kassenabschlüsse zu verwalten. Nun möchte ich gerne ein Makro schreiben, das mir monatsabhängig die richtige Anzahl von Blättern selektiert und dann die Sonntage/Feiertage wieder deselektiert. Danach möchte ich ggf noch manuelle Selektionen/Deselektionen vornehmen (Verkaufsoffene Sonntage usw.) um es dann auszudrucken.
Mit der Selektion bin ich schon so weit:
Sub Selektieren()
Dim wks As Worksheet
Application.ScreenUpdating = False
Worksheets(1).Activate
For Each wks In Worksheets
Sheets(wks.Name).Select Replace:=False
Next wks
Application.ScreenUpdating = True
End Sub
Falls mir da jemand helfen könnte?:)
Danke schon mal im Vorraus.
Kolja