Blätter verschieben, kopieren
27.04.2006 15:45:59
Hans
Ich möchte Daten aus einem Gesamtblatt in einzelne Blätter aufteilen. Dazu habe ich diese sortiert und pro Gruppe ein neues Arbeitsblatt erzeugt. Diese Blätter möchte ich jetzt als eigene Dateien in eigene Ordner speichern um dann weiter bearbeiten zu können. Mein Code läuft wunderbar bis zu der Stelle, wo das zweite Arbeitblatt verschoben werden soll. Bei sheets("L5").Move erscheint dann eine Fehlermeldung "Index ausserhalb des gültigen Bereichs". Kann mir jemand weiterhelfen?
Gruess, Hans
Sub Durchlauf()
Dim WsTabelle As Worksheet
For Each WsTabelle In Worksheets
Select Case WsTabelle.name
Case "L4"
sheets("L4").Move
ChDir "F:\Test\Ordner4"
ActiveWorkbook.SaveAs Filename:= _
"F:\Test\Ordner4\L4.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Case "L5"
sheets("L5").Move
ChDir "F:\Test\Ordner5"
ActiveWorkbook.SaveAs Filename:= _
"F:\Test\Ordner5\L5.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Case "L6"
sheets("L6").Move
ChDir "F:\Test\Ordner6"
ActiveWorkbook.SaveAs Filename:= _
"F:\Test\Ordner6\L6.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Select
Next WsTabelle
End Sub