Problem bei For Next Schleife
10.12.2006 15:24:31
Christian
Ich habe hier eine For Next Schleife um Tabellenblätter aus einer anderen in die Aktive zu kopieren. Es werden alle Tabellenblätter aus der anderen Mappe kopiert aber die Reihenfolge der Blätter stimmt nicht.Die Sschleife fängt mit dem letzten Tabellenblatt der anderen Arbeitsmappe an und fügt es in die aktuelle Mappe als erstes ein.
Gibt es eine Möglichkeit die Richtung der Schleife zu ändern?
Hier der Code:
Sub BlattKo()
Dim ws As Worksheet
strpath = "Christian.xls"
ChDir "C:\"
Workbooks.Open strpath
For Each ws In Worksheets
ws.Copy Before:=Workbooks("Mappe1.xls").Sheets(1)
Next ws
With Workbooks(strpath)
.Close
End With
End Sub
Anzeige