title image


Smiley Re: Arbeitsblätter Formate übernehmen
Hallo



Erstelle das Blatt Monat Januar und nenne es im Tabellenreiter 1 (nur 1)



Öffne den VBA-Editor



Füge in deiner Arbeitsmappe ein VBA- Modul ein

Füge in dieses VBA- Modul diesen Makrocode ein

VBA-Editor schließen und Makro "Neue_Blätter" aufrufen.



Monat 2 - 12 werden nach vorlage 1 erstellt.





Sub Neue_Blätter()

On Error Resume Next

Application.ScreenUpdating = False ' BildschirmAktualisierung AUS

For i = 1 To 11

Sheets("1").Copy After:=Sheets(1)

Next i

Sheets("1 (2)").Name = "12"

Sheets("1 (3)").Name = "11"

Sheets("1 (4)").Name = "10"

Sheets("1 (5)").Name = "9"

Sheets("1 (6)").Name = "8"

Sheets("1 (7)").Name = "7"

Sheets("1 (8)").Name = "6"

Sheets("1 (9)").Name = "5"

Sheets("1 (10)").Name = "4"

Sheets("1 (11)").Name = "3"

Sheets("1 (12)").Name = "2"

Application.ScreenUpdating = True ' BildschirmAktualisierung EIN

End Sub





Ps. kann auch für andere Zwecke verwendet werden.



MfG hddiesel
Gruß Karl .

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: