Gruppe
Allgemein
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