ich möchte ein Tabellenblatt 50 mal in die geöffnete Mappe kopieren.
Wie kann ich das mit VBA in einer Prozedur erledigen?
Viele Grüße
Werner
Sub Add50Sheets()
Dim i
For i = 1 To 50
Worksheets.Add
Next i
End Sub
Sub Blatt50()
For AZ = 2 To 50
Sheets("Blatt").Select
Sheets("Blatt").Copy After:=Sheets(1)
Sheets("Blatt (2)").Select
Sheets("Blatt (2)").Name = "Blatt " & 52 - AZ
Next AZ
End Sub
Sub Kopien()
Dim i As Integer
For i = 1 To 50
Worksheets("Blatt").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Blatt " & i
Next
End Sub