|
Und wo ist "VV"?
Gänsefüsschen fehlt: Arr1=Array("ER1", "PL1", "ER2", "PL2", "ER3, "PL3".
Public Sub test()
Dim arr, i
arr = Array("ER1", "VV", "PL1", "ER2", "PL2", "ER3", "PL3", "ER4", "PL4", "ER5", "PL5 ", "ER6", "PL6", "ER7", "PL7", "ER8", "PL8", "ER9", "PL9", "ER10", "PL10", "ER11", "PL11", "ER12", "PL12", "ER13", "PL13", "ER14", "PL14", "ER15", "PL15", "ER16", "PL16", "ER17", "PL17", "ER18", "PL18", "ER19", "PL19", "ER20", "PL20")
Application.ScreenUpdating = False 'Das "Flackern" ausstellen
For i = 1 To 40
Workbooks(arr(i)).Sheets.Copy Before:=Workbooks("ER1").Sheets(i)
Next i
For i = 1 To 40
Workbooks(arr(i)).Close SaveChanges:=False
Next i
End Sub
|