ich bin leicht verzweifelt. Habe für das automatische Speichern seit geraumer Zeit ein kleines Makro, welches einwandfrei funktioniert hat.
Seit neuestem bekomme ich jedoch immer nach dem Speichern des ersten Blattes in eine eigene Datei einen Laufzeitfehler '1004' - Anwendungs- oder Objektdefinierter Fehler, manchmal auch einfach nur einen Fehler 400.
Ich komme leider nicht hinter den Fehler.
Hier der Code:
Dim i As Integer
Dim SaveAsName As String
Dim SaveAsPW As String
Public Sub AlleTabs_alsDatei()
For i = 6 To ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
SaveAsName = WorksheetFunction.VLookup(Sheets(i).Name, Sheets("SaveAs_List").Range("A1:C22") _
, 2, False)
SaveAsPW = WorksheetFunction.VLookup(Sheets(i).Name, Sheets("SaveAs_List").Range("A1:C22"), _
3, False)
Sheets(i).Copy
ActiveWorkbook.SaveAs SaveAsName & "_Datei_GJ_Q", , SaveAsPW
ActiveWorkbook.Close
Application.ScreenUpdating = True
Next
End Sub
Mit i=6 läuft es durch einwandfrei. Dann wird i auf 7 gesetzt und es hängt offensichtlich beim VLookup. (Es ist aber auch egal ob ich dann i auf 8, 9, ... setze. Dann hängt es immer gleich beim VLookup)Herzlichen Dank im Voraus für sämtlichen Input!
MFG
W.B.