For Each wb: gibt es Begrenzung der Anzahl?
22.05.2006 12:34:02
Uschi
ich habe folgenden Code:
Sub Montag1()
Application.ScreenUpdating = False
Workbooks.Open Filename:="Y:\REP_SCH\List_WZ13Mon.csv"
Workbooks.Open Filename:="Y:\REP_SCH\List_WZ19Mon.csv"
Workbooks.Open Filename:="Y:\REP_SCH\List_WEngine.csv"
Workbooks.Open Filename:="Y:\REP_SCH\List_WPTQWAIT.csv"
Workbooks.Open Filename:="Y:\REP_SCH\List_WZ19DT.csv"
Workbooks.Open Filename:="Y:\REP_SCH\List_WZ17.csv"
For Each wb In Workbooks
ActiveWorkbook.SaveAs "C:\temp\" & Mid(ActiveWorkbook.Name, 1, _
Len(ActiveWorkbook.Name) - 4), FileFormat:=xlNormal
Cells.Select
Selection.RowHeight = 14
ActiveWorkbook.Save
ActiveWindow.Close
Next
Application.ScreenUpdating = True
Workbooks("Tagesreports.xls").Close
End Sub
Das klappt auch einwandfrei, solange ich maximal 3 Workbooks öffnen lasse. Lasse ich 4 Workbooks öffnen, bleibt das erste Workbook unbearbeitet. Woran kann das liegen?
Danke schon mal und
Gruß
Uschi