Allgemeine Blattbezeichnung im Makro
05.01.2005 11:04:54
Bastian
das unten stehende Makro (mit dem Recorder aufgenommen) friert alle Tabellenblätter ein.
Sub Makro4()
ActiveSheet.Unprotect
Sheets(Array("Auslastung", "Januar", "Februar", "März", "April", "Mai", "Juni",_
"Beginn")).Select
Sheets("Auslastung").Activate
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
Sheets("Auslastung").Select
' Schutz aktivieren
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True
End Sub
In der Zeile
Sheets(Array("Auslastung", "Januar", "Februar", "März", "April", "Mai", "Juni",_
"Beginn")).Select
werden die Namen der zum Einfrieren ausgewählten Tabellenblätter benannt.
Da sich die Tabellenblattnamen jedoch in Anpassung zum aktuellen Monat ändern, wäre es schön, wenn sich die Auswahl des 2. Tabellenblatts bis zum 6. Tabellenblatt im Makro allgemein bezeichnen ließe und nicht mit dem Tabellenblattnamen.
Kann mir jemand dabei helfen.
Viel Grüße von Bastian