Arbeitsblatt vervielfachen
01.09.2005 13:31:11
Peter
benötige einen VBA Code um ein Arbeitsblatt 59 mal zu kopieren.
Genauer:
Habe ein Arbeitsblatt mit Namen 1
dieses soll 59 x (also Name 2 bis 60) kopiert werden (umbenennen)
NACH dem Arbeitsblatt Name 1 (Sheet-Nr. = 22)
außerdem soll nach dem jew. kopieren eines Blattes auf P1 der jew. Name (Nummer 2 bis 60) eingetragen werden.
Mir fehlt der richtige Weg um das Blatt immer an das Ende zu kopieren und
dann das kopierte Blatt zu aktivieren und umbenennen.
Habe bis jetzt folgendes (was natürlich noch nicht geht):
Sub copytab() ' Routine zum Kopieren des Arbeitsblattes 1
SheNam = "1"
Application.ScreenUpdating = False
Sheets("1").Select
For iCounter = 2 To 60
Sheets(SheNam).Select
BlattCounter =
Sheets("1").Copy After:=Sheets(22)
Sheets("1 (2)").Select
Sheets("1 (2)").Name = iCounter
Range("P1").Select
ActiveCell.FormulaR1C1 = iCounter
SheNam = SheNam + 1
Next iCounter
Application.ScreenUpdating = True
End Sub
Kann mir hier jemand helfen ?
Danke
Peter