Bitte helfen.

Sub Tabellenkopieren()
Dim wks As Worksheet, Anzahl As Integer, I As Integer
Set wks = Sheets("T")
Anzahl = Val(InputBox("Wieviele Spieler inkl. diesem Blatt ? ", "Tabellenblätter kopieren", "1"))
If Anzahl = 0 Then Exit 

Sub 'Button "Abbrechen" geklickt oder keine Zahl eingegeben
For I = 1 To Anzahl
wks.Copy After:=Sheets("Spielresultate eingeben")
ActiveSheet.Name = wks.Name & I
Next
End Sub


Läuft nicht richtig. die Tabelle wird einmal kopiert und es kommt die Fehlermeldung das er den Namen nur einer Tabelle geben kann.

Die Tabellen sollten aber wie folgt Bezeichnet sein: T1 , T2 , T3 usw.

Kann jemand helfen,wäre sehr dankbar.

Gruss Haegi