Ich habe folgenden Code um Tabellenblätter zu kopieren und wieder einzufügen. Leider ist die Reihenfolge falsch.
Er fügt ein wenn ich es 6mal kopiere 6 5 4 3 2 anstatt 2 3 4 5 6
Mein Code:
' Tabellenblätter kopieren und einfügen
Private Sub CommandButton24_Click()
Dim wks As Worksheet, Anzahl As Integer, I As Integer
Set wks = ActiveSheet
Anzahl = Val(InputBox("Wieviele Kopien?", "Tabellenblätter kopieren", "1"))
If Anzahl = 0 Then Exit Sub 'Button "Abbrechen" geklickt oder keine Zahl eingegeben
For I = 1 To Anzahl
wks.Copy Before:=ActiveWorkbook.Sheets(3)
'ActiveSheet.Name = wks.Name & I
Next
End Sub |