Mehrere Sheets in neue Mappe kopieren
22.02.2007 11:41:48
Julia
ich habe folgendes Problem:
Ich habe eine Mappe2, dort sind mehrere Sheets drin, diese müssen in eine andere Mappe1 kopiert werden. Das Problem ist jetzt aber das sie immer anders heißen. Ich kann also nicht schreiben Tabelle1, Tabelle2 usw.
Ich habe schon eine Schleife gefunden, aber die funktioniert bei mir nicht. Kann mir jemand helfen?
https://www.herber.de/forum/archiv/48to52/t48312.htm
Hier der Code:
Sub SeriaCopy()
Dim arrWks(1 To 15)
Dim intCounter As Integer
For intCounter = 1 To 15
arrWks(intCounter) = Worksheets(intCounter + 12).Name
Next intCounter
Application.DisplayAlerts = False
Worksheets(arrWks).Copy
Application.DisplayAlerts = True
End Sub