Clever-Excel-Forum

Habe ich gefunden. muss ich in dem sich öffnenden Fenster etwas einstellen?

... nein. Wie gesagt, setze einen Haltepunkt in die Zeile (geht mit F9), starte den Code und wenn er dort anhält noch 1x F8 drücken.

Hallo,

ersetze mal

Datei = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\")) & "Import.xlsx"

durch

Datei = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, Application.PathSeparator)) & "Import.xlsx"

Gruß Uwe

Okey cool jetzt funktioniert es.
Mit dem alten Office ist jetzt alles super und es gibt keinerlei Probleme.
Mit dem neuen Office kommt aber noch eine Fehlermeldung beim schließen der Datei. An sich nicht weiter tragisch, da es aber andere Mitarbeiter nutzen müssen währ es cool wenn es keine Meldungen gibt.

Hallo,

vielleicht klappt es so:

  'Datei ohne Dialog speichern

  ActiveWorkbook.Save

  Workbooks("Import vorbereiten.xlsm").Save

  Application.Quit

End Sub

Gruß Uwe

Perfekt, Ich danke euch beiden Ihr habt mir sehr geholfen :)
Jetzt kann ich es rausgeben ^^