Ich erzeuge mit nachfolgendem Makro eine neue Mappe mit 15 Seiten, welchen gleich ein Name vergeben wird, anschließend wird diese Mappe sieben oder acht mal mit verschiedenen Namen in ein Laufwerk gespeichert, wobei der Name der jeweiligen Datei aus der Datei "Schalter Gesamt" Blatt"Datei" genommen wird.
Zuerst funktionierte alles und auf einmal bekomme ich einen Laufzeitfehler 9. "Index außerhalb des gültigen Bereichs"
Bitte kann mir jemand sagen, wo hier der Fehler liegt?
Danke
Josef
Sub MappenSpeichern()
Dim dokname
Dim dokname1
Workbooks.Add
Sheets("Tabelle1").Select
Sheets.Add
Sheets("Tabelle4").Select
Sheets.Add
Sheets("Tabelle5").Select
Sheets.Add
Sheets("Tabelle6").Select
Sheets.Add
Sheets("Tabelle7").Select
Sheets.Add
Sheets("Tabelle8").Select
Sheets.Add
Sheets("Tabelle9").Select
Sheets.Add
Sheets("Tabelle10").Select
Sheets.Add
Sheets("Tabelle11").Select
Sheets.Add
Sheets("Tabelle12").Select
Sheets.Add
Sheets("Tabelle13").Select
Sheets.Add
Sheets("Tabelle14").Select
Sheets.Add
Sheets("Tabelle15").Select
Sheets("Tabelle15").Name = "DB 01"
Sheets("Tabelle14").Select
Sheets("Tabelle14").Name = "DB 02"
Sheets("Tabelle13").Select
Sheets("Tabelle13").Name = "DB 03"
Sheets("Tabelle12").Select
Sheets("Tabelle12").Name = "DB 04"
Sheets("Tabelle11").Select
Sheets("Tabelle11").Name = "DB 05"
Sheets("Tabelle10").Select
Sheets("Tabelle10").Name = "DB 06"
Sheets("Tabelle9").Select
Sheets("Tabelle9").Name = "DB 07"
Sheets("Tabelle8").Select
Sheets("Tabelle8").Name = "DB 08"
Sheets("Tabelle7").Select
Sheets("Tabelle7").Name = "FDB 09"
Sheets("Tabelle6").Select
Sheets("Tabelle6").Name = "DB 10"
Sheets("Tabelle5").Select
Sheets("Tabelle5").Name = "DB 11"
Sheets("Tabelle4").Select
Sheets("Tabelle4").Name = "DB 12"
Sheets("Tabelle1").Select
Sheets("Tabelle1").Name = "Datum"
Sheets("Tabelle2").Select
Sheets("Tabelle2").Name = "Datenstand Gesamt"
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Tabelle3").Select
Sheets("Tabelle3").Name = "Daten"
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("DB 01").Select
ChDir "T:\SVAdgW\KV Schalter"
dokname = Workbooks("H:\Arbeit\Schalter Gesamt.xls").Worksheets("Daten").Range("E1").Value
dokname1 = Workbooks("H:\Arbeit\Schalter Gesamt.xls").Worksheets("Daten").Range("F1").Value
dokname2 = Workbooks("H:\Arbeit\Schalter Gesamt.xls").Worksheets("Daten").Range("E2").Value
dokname3 = Workbooks("H:\Arbeit\Schalter Gesamt.xls").Worksheets("Daten").Range("E3").Value
dokname4 = Workbooks("H:\Arbeit\Schalter Gesamt.xls").Worksheets("Daten").Range("E4").Value
dokname5 = Workbooks("H:\Arbeit\Schalter Gesamt.xls").Worksheets("Daten").Range("E5").Value
dokname6 = Workbooks("H:\Arbeit\Schalter Gesamt.xls").Worksheets("Daten").Range("E6").Value
dokname7 = Workbooks("H:\Arbeit\Schalter Gesamt.xls").Worksheets("Daten").Range("E7").Value
ThisWorkbook.SaveAs FileName:="T:\SVAdgW\KV Schalter\" & dokname & " " & dokname1 & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ThisWorkbook.SaveAs FileName:="T:\SVAdgW\KV Schalter\" & dokname2 & " " & dokname1 & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ThisWorkbook.SaveAs FileName:="T:\SVAdgW\KV Schalter\" & dokname3 & " " & dokname1 & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ThisWorkbook.SaveAs FileName:="T:\SVAdgW\KV Schalter\" & dokname4 & " " & dokname1 & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ThisWorkbook.SaveAs FileName:="T:\SVAdgW\KV Schalter\" & dokname5 & " " & dokname1 & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ThisWorkbook.SaveAs FileName:="T:\SVAdgW\KV Schalter\" & dokname6 & " " & dokname1 & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ThisWorkbook.SaveAs FileName:="T:\SVAdgW\KV Schalter\" & dokname7 & " " & dokname1 & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
'ActiveWindow.Close
Range("A1").Select
End Sub