Office 2013: Tabellenblatt entsprechend der vorgegebenen Anzahl kopieren

[CKU]

Hallo Excel-Profis,

folgendes Problem lässt sich von mir nicht lösen:

Ich habe eine Mitarbeiterübersicht erstellt und würde gern für jede Woche, sprich für 52 Wochen im Jahr, ein eigenes Tabellenblatt erstellen. Als Beispiel möchte ich folgendes aufführen:

Im ersten Reiter (Jahresübersicht) wird in Zelle A1 die Anzahl der Tabellenblätter eingegeben (52). So viele Tabellenblätter sollten dann auch erstellt werden.

Ich würde dies gern über ein Makro regeln, jedoch habe ich keine Ahnung wie so etwas geht ;(

Hoffe Ihr könnt helfen!

VG
CKU

[Officer]

Hallo,

schau mal. So in der Art sollte es funktionieren

Code: Visual Basic

1. Sub Kopieren()
2.  
3. For a = 1 To Sheets(1).Range("A1").Value
4.   Sheets("Tabelle1").Copy After:=Sheets(1)
5.   Sheets(2).Name = "KW " & a
6. Next a
7.  
8. End Sub
9.  

LG Alois

[CKU]

Danke für die Antwort 

Leider habe ich keine Ahnung wie oder wo man das einfügt und wie ich es anpassen kann, SRY!!!!

Kann mir jemand Starthilfe dafür geben ? 

VG
CKU

[Officer]

Google hilft dir hier weiter, z. B. hier:
http://msdn.microsoft.com/de-de/library/office/ee814737%28v=office.14%29.aspx

Einfach mal anch VBA Editor suchen. Es gibt viele Hinweise.

Gruß
Alois