Guten Tag,

ich habe ein längeres Macro geschrieben das recht am Anfang eine Kopie der Datei erstellen soll und in dieser weiterarbeiten soll.<br>
Der code hat auch schon funktioniert, jedoch bekomme ich nun den Laufzeitfehler 1004 mit der Meldung "die methode save as für das objekt _workbook ist fehlgeschlagen".<br>
<br>
Das seltsame: Er speichert die Datei genau wie er soll und auch wo er soll. Aber durch den Fehler bricht das Macro ab. Der Pfad liegt auf einen gesynched OneDrive (MS Teams) Ordner.<br>
Wenn ich den Code auf C:\temp anpasse funktioniert er ebenfalls.<br>
Daher liegt nahe, dass das Problem in der Speicherzeit liegt, da es länger dauert es in den One Drive Ordner zu speichern.<br>
Gibt es Befehl den ich einbauen kann der vorgibt "warte bis Speichern erfolgreich bestätigt wurde"?<br>
Oder hat jemand anders eine Idee, woran es liegen könnte?<br>
Der ganze Code wäre zu lange, daher gebe ich nur den Part des Abspeicherns an.<br>


RFC_DIR = "C:\Users\" + VBA.Environ("Username") + "\00_RFC\" + Range("AH3").Text + "_" + Range("A3").Value

    If Dir(RFC_DIR, vbDirectory) = "" Then
        MkDir RFC_DIR
        MkDir RFC_DIR + "\Freigabe"
'        ChDir RFC_DIR
'        ActiveWorkbook.SaveAs Range("A3").Text
        ActiveWorkbook.SaveAs RFC_DIR & "\" & Range("A3").Value
        Range("AH1").Value = 1
        Shell "explorer.exe /e, " & RFC_DIR, vbMaximizedFocus
        Range("B1").Value = Application.ActiveWorkbook.Path
        Range("O4").Value = RFC_DIR
    Else: MsgBox "Ordner existiert bereits oder RFC nicht eingetragen"
    End If
Else: MsgBox "Befehl bereits ausgeführt. Für eine neue Auswertung bitte wieder in daas Tool zurückgehen. Wenn nur der Ordner neu geöffnet werden soll, klick auf Ordner öffnen"

End If