Sub kopie()
Dim i%, ws As Worksheet
Set ws = ActiveSheet
For i = 10 To 1 Step -1
ws.Copy After:=ws
ActiveSheet.Name = ws.Name & i
Next i
End Sub
Könnt ihr mir weiterhelfen? Danke schon mal!
Sub kopie()
Dim i As Long, ws As Worksheet
Set ws = ActiveSheet
For i = Application.InputBox(Prompt:="Wieviele Blätter?", Type:=1) To 1 Step -1
ws.Copy After:=ws
ActiveSheet.Name = ws.Name & Format(i, "00")
Next i
End SubGruß, Uwe