Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Arbeitsblatt 40 mal kopieren

Gruppe

Arbeitsblatt

Problem

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

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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