Tabellenblatt mehrmals kopieren mit VBA
07.09.2014 17:59:07
Stefan
Hallo!
Ich benötige ein Makro mit dem ich das Arbeitsblatt mit den gleichen Formatierungen 50 mal kopieren kann. Das heißt es soll automatisch den Namen KW1, KW2, KW3 usw vergeben.
Ich habe bereits eine Vorlage gefunden, die funktioniert ansich super, nur wird es mit 1,2,3 _
fortlaufend nummeriert, und ich bräuchte es aber mit KW1, KW2 usw.
Sub test()
Dim i
For i = 2 To 51
Sheets(1).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = i - 1
Next
End Sub
Ich hoffe es kann mir jemand helfen.
Danke!