Dim newbook As Workbook
Dim Arbeitspfad, FName As Variant
Dim D1, Zeitum As String
...
FName = D1 + Zeitum + ".xls"
Set newbook = Workbooks.Add
With newbook
.Title = "Delta von Vergleich"
.Subject = "Delta von Vergleich Datei 1 & 2"
.SaveAs Filename:=Arbeitspfad + FName
.Close
End With
Bei der Zeile bekomme ich immer den Laufzeitfehler '1004'.
Irgendwie habe ich keine Ahnung mehr woran dies liegen kann.
Kann mir da jemand weiter helfen?
Danke
Gruß Corben