Ich habe dieses Makro aus einer meiner Musterdateien kopiert angeglichen und ich bekomme immer den Fehler
Die Methode SaveAS für das Object Workbook ist fehlgeschlagen.
Was mache ich hier wieder falsch, in den anderen Arbeitsmappen funktioniert der Code?
Danke
josef
Sub AM_speichern()
Dim dokname As Variant
Dim dokname1 As Variant
dokname = Workbooks("Muster.xls").Worksheets("Daten").Range("H1")
dokname1 = Workbooks("Muster.xls").Worksheets("Daten").Range("I1")
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:="H:\Dok\SVAdgW\Verrechnung SU\" & dokname & " " & dokname1 & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
End Sub