Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro (Auto Speichern) funktioniert nicht mehr

Makro (Auto Speichern) funktioniert nicht mehr
24.10.2018 10:14:19
Walter
Liebe Community,
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.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro (Auto Speichern) funktioniert nicht mehr
24.10.2018 11:07:54
Daniel
HI
wenn es beim VLookUp hängt, dann steht der Name des jeweiligen Sheets nicht in der Liste auf dem Blatt "SaveAs_List", oder der Name ist falsch geschrieben.
Dh du müsstest hier die Liste überprüfen und auf den neuesten Stand bringen.
Gruß Daniel
AW: Makro (Auto Speichern) funktioniert nicht mehr
24.10.2018 11:09:55
Walter
Danke Daniel für den Input. Jedoch hat sich der Name des darauffolgenden Sheets nicht geändert.
Und in der Liste sind diese auch angeführt. (hab auch schon überprüft ob irgendwo Leerzeichen drinnen sind...)
Anzeige

330 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige