Sheets aus allen Workbooks kopieren
21.07.2006 16:04:52
stefan
ich habe da ein kleines Problem. Aus allen offenen Workbooks sollen sämtliche Sheets in eine Excel-Datei kopiert werden. Solange ich nur ein Workbook offen habe, werden alle Sheets kopiert. Wenn ich nun aber "for each mappe in workbooks" schreibe, wird zwar die Schleife entsprechend der Anzahl der offenen Workbooks durchlaufen, jedoch kommt da nichts mehr brauchbares raus. Hat jemand vielleicht ein paar Ideen?
Sub CopyAll()
Dim Wb As Workbook, NewWb As Workbook
Dim Ws As Worksheet
Dim L As Long
Dim mappe As Workbook
For Each mappe In Workbooks
Set Wb = ActiveWorkbook
Set NewWb = Workbooks("Test.xls")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For L = NewWb.Sheets.Count To 2 Step -1
NewWb.Sheets(L).Delete
Next L
For Each Ws In Wb.Worksheets
Ws.copy after:=NewWb.Sheets(NewWb.Sheets.Count)
Next
NewWb.Sheets(1).Delete
NewWb.Sheets(1).Name = Wb.Sheets(1).Name
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Next mappe
End Sub
Vielen Dank im Voraus!!
Stefan
Anzeige