Hallo zusammen,
ich komme gerade bei einem Code nicht weiter:
Dim Master_Abnahmeprotokoll As Workbook
Set Master_Abnahmeprotokoll = Workbooks.Open("C:\Users\phill\Desktop\Test\Master_Abnahmeprotokoll.xlsx")
With ThisWorkbook.Sheets("Abnahmeprotokollen")
.Cells(4, 2).Copy
Master_Abnahmeprotokoll.Sheets("Abnahmeprotokoll").Cells(4, 2).PasteSpecial Paste:=xlPasteValues
End With
Master_Abnahmeprotokoll = Application.GetSaveAsFilename(InitialFileName:=Format(Now, "YYYYMMDD") & "_" & Cells(3, 2).Value & "_" & Cells(4, 2) & ".xlsx", fileFilter:="Excel-Arbeitsmappe, *.xlsx")
If Master_Abnahmeprotokoll = False Then Exit Sub
ActiveWorkbook.SaveAs Master_Abnahmeprotokoll
ActiveWorkbook.Saved = True
Die Daten werden wie geplant in die neue Arbeitsmappe kopiert. Nun sollen diese Mappe gleich gespeichert werden bzw. der User soll die Chance haben den Speicherpfad zu definieren. Die Maske wird geöffnet und der Name der Datei steht auch in den Zeilen. Jedoch kommt sobald ich auf speichern drücke der Laufzeitfehler 438 "Objekt unterstützt Eigenschaft oder Methode nicht".
Habe ihr eine Idee warum und wie man den Fehler beheben kann?