Excel und VBA - Die Excel-FAQ

Arbeitsblatt 40 mal kopieren
Produkte
Service
Sonstiges
RSS

Screenshots zu den Aufrufoberflächen der Excel-Materialien

Excel-Grundwerk (Beispiel-Arbeitsmappen) Excel-Tutorial Excel-Dialoge Excel-Forums-Archiv Excel-Grundlagen (Einführung) VBA-Grundlagen (Einführung) Zur Bestellseite

Arbeitsblatt 40 mal kopieren

Problem: Wie kann ich das aktive Arbeitsblatt 40 mal in die gleiche Arbeitsmappe kopieren?


StandardModule: basMain

Sub Copy40()
   Dim wks As Worksheet
   Dim iCounter As Integer
   Application.ScreenUpdating = False
   Set wks = ActiveSheet
   For iCounter = 1 To 40
      wks.Copy after:=Worksheets(Worksheets.Count)
      ActiveSheet.Name = iCounter
   Next iCounter
   Worksheets(1).Select
   Application.ScreenUpdating = True
End Sub