VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Arbeitsblatt 40 mal kopieren

Gruppe

Allgemein

Bereich

Arbeitsblatt

Thema

Arbeitsblatt 40 mal kopieren

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Arbeitsblatt