ich möchte gern vorhandene Tabellenblätter kopieren, indem in eine Eingabebox die Anzahl der Kopien eingegeben wird.
Danke Straßburger
Sub tt()
x = InputBox("Anzahl der Kopien")
For Each wb In ThisWorkbook.Sheets
For i = 1 To x
wb.Copy After:=Sheets(Sheets.Count)
Next i
Next
End Sub
Sub tt2()
x = InputBox("Anzahl der Kopien")
If x = "" Then Exit Sub
For Each wb In ActiveWorkbook.Sheets
For i = 1 To x
wb.Copy After:=Sheets(Sheets.Count)
Next i
Next
End Sub