Microsoft Excel

Herbers Excel/VBA-Archiv

Allgemeine Blattbezeichnung im Makro

Betrifft: Allgemeine Blattbezeichnung im Makro von: Bastian
Geschrieben am: 05.01.2005 11:04:54

Hallo Leute,
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
  


Betrifft: AW: Allgemeine Blattbezeichnung im Makro von: Michael
Geschrieben am: 05.01.2005 11:15:17

Hallo.

Ersetze einfach die namen durch Zahlen:
Sheets(Array("Auslastung", 2, 3, 4, 5, 6, 7,"Beginn")).Select

Hoffe dich richtig verstanden zu haben.

Gruß Michael


  


Betrifft: AW: Allgemeine Blattbezeichnung im Makro von: Dr.
Geschrieben am: 05.01.2005 11:15:34

for i=2 to 6
sheets(i).select
next i


  


Betrifft: AW: Allgemeine Blattbezeichnung im Makro von: Michael
Geschrieben am: 05.01.2005 11:17:31

Hi.

Sag mal, kann das sein, das dein Vorschlag dann aber jedes einzeln makiert und nicht alle gleichzeitig?

Gruß Michael


  


Betrifft: AW: Allgemeine Blattbezeichnung im Makro von: Michael
Geschrieben am: 05.01.2005 11:17:31

Hi.

Sag mal, kann das sein, das dein Vorschlag dann aber jedes einzeln makiert und nicht alle gleichzeitig?

Gruß Michael


  


Betrifft: AW: Allgemeine Blattbezeichnung im Makro von: Dr.
Geschrieben am: 05.01.2005 11:36:16

Yep, sorry, hatte den Sachverhalt nicht vernünftig gelesen.


  


Betrifft: AW: Allgemeine Blattbezeichnung im Makro von: Dr.
Geschrieben am: 05.01.2005 11:39:50

...aber mit

sheets(i).select False

sollte es funktionieren *g*


  


Betrifft: Vielen Dank für die Hilfe von: Bastian
Geschrieben am: 05.01.2005 11:39:31

Vielen Dank an Michael und Dr. für die hilfreichen Antworten.
Nun klappt alles perfekt.
Einen schönen Tag wünscht Euch Bastian