Hallo zusammen,
mein Vorgesetzter kam heute mit einer Aufgabe auf mich zu und meinte ich soll mich mal daran ausprobieren, da die Person, die es entwickelt, hat nicht mehr bei uns beschäftigt ist. Nach langem ausprobieren habe ich mich jetzt entschlossen mal hier im Forum nachzufragen. Bei uns im Betrieb wird zu Erstellung von Arbeitsverträgen eine Excel Datei verwendet. Dort geben die zuständigen Sachbearbeiter die nötigen Informationen in eine UserForm ein und generieren durch Verknüpfungen zu Word dann den Arbeitsvertrag. Nun soll jeder erstellte Arbeitsvertrag noch in einem Ordner gespeichert werden (der Ordner trägt den Namen des Erstellers), dabei erfolgt alles über Excel. Unten seht ihr beispielhaft mal ein Teil vom Code für, bei dem mir der Fehler angezeigt wird, dabei erhalte ich beim Speichervorgang immer folgende Fehlermeldung: Laufzeitfehler 5152.
Code:
    If Worksheets("Übersicht").Range("E121").Value = "Max Mustermann" Then
        Word.Documents.Open D5
        Doc5.SaveAs Filename:=Ziel1 & "\" & "AV Praktikant" & "_" & Worksheets("Übersicht").Range("C121").Value & "_" & Worksheets("Übersicht").Range("B121").Value & "_" & Worksheets("Übersicht").Range("D121").Value & ".docx"
        Doc5.Close savechanges:=False
    End If
Vielen Dank für eure Unterstützung. LG