Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: CKU am August 12, 2014, 10:23:25 Vormittag

Titel: Office 2013: Tabellenblatt entsprechend der vorgegebenen Anzahl kopieren
Beitrag von: CKU am August 12, 2014, 10:23:25 Vormittag
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
Titel: Antw:Office 2013: Tabellenblatt entsprechend der vorgegebenen Anzahl kopieren
Beitrag von: Officer am August 12, 2014, 13:17:18 Nachmittag
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
Titel: Antw:Office 2013: Tabellenblatt entsprechend der vorgegebenen Anzahl kopieren
Beitrag von: CKU am August 12, 2014, 13:37:49 Nachmittag
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
Titel: Antw:Office 2013: Tabellenblatt entsprechend der vorgegebenen Anzahl kopieren
Beitrag von: Officer am August 12, 2014, 13:45:12 Nachmittag
Google hilft dir hier weiter, z. B. hier:
http://msdn.microsoft.com/de-de/library/office/ee814737%28v=office.14%29.aspx (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