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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen