Office: gleichzeitig mehrere Arbeitsblätter einfügen/kopieren

Hallo,

ich baue eine Datei in der ich ca. 150 mal das gleiche Arbeitsblatt brauche.
Kann man das schneller machen als immer wieder aufs neue "kopieren, ans Ende stellen" durchzuführen?
Grüße Jürgen

 

Hi Jürgen,

das kannst du mit folgendem Makro machen:

Code:

Sub TabKopieren()
   Dim intAnzahl As Integer
   Application.ScreenUpdating = False
   With Worksheets("Vorgabe")
      For intAnzahl = 1 To 150
         .Copy after:=Worksheets(Worksheets.Count)
      Next intAnzahl
   End With
   Application.ScreenUpdating = True
End Sub

Bis später,
Karin

 

Hallo Karin,

vielen herzlichen Dank. Du weißt selber, wie viel Arbeit Du mir damit abgenommen hast.

Grüße
Jürgen