ich möchte gern ein Blatt 50x in einer Arbeitsmappe kopieren.
Geht das?
Gruß Ralph
Sub ttt()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 50
Sheets(1).Copy after:=Sheets(Sheets.Count)
Next i
Application.ScreenUpdating = True
End Sub
Gruß