Abfrage Anzahl Kopien von Tabellenblättern
17.07.2024 13:53:13
I.I.B.
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!
Anzeige