Schleife für Monatsblätter
26.11.2003 12:27:19
peter
Wie kann ich flgendes Makro erweitern.
Der code soll in allen Tabellenblättern mit Monatsnamen ausgeführt werden.
Also die Blätter heisen JAnuar, Februar usw.
Sub neuesjahr()
Sheets("Januar").Select
ActiveSheet.Unprotect
Range("B6:AF29").Select
Selection.ClearContents
Selection.ClearComments
Range("B6").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Danke schon mal für jede Hilfe
Gruss
Peter