Laufzeitfehler '9'
29.03.2014 11:41:13
Dirk
ich habe folgendes Problem :
Per VBA möchte ich eine Datei schließen und speichern
und gleichzeitig soll diese Datei dann mit anderem
Namen zusätzlich gespeichert werden.
Bekomme leider immer diesen Laufzeitfehler '9' angezeigt.
Hier mein Code, der mich zur Verzweiflung bringt :
Private Sub Image4_Click()
Dim Pfad As String
Pfad = "W:\Omni_kfz\"
Application.DisplayAlerts = False
Workbooks("Fahrzeuge_Neuwagen.xlsm").SaveAs Pfad & ("Fahrzeuge_Neuwagen_Kopie.xlsm")
'Workbooks("Fahrzeuge_Neuwagen.xlsm").Save
'Workbooks("Fahrzeuge_Neuwagen.xlsm").Close
Application.DisplayAlerts = True
Pfad = ""
Unload Me
ThisWorkbook.Save
Load userform1
With userform1
.Label8.Caption = ThisWorkbook.Sheets("config").Range("A1").Value
.Label4.Caption = ThisWorkbook.Sheets("config").Range("A2").Value
.Label6.Caption = ThisWorkbook.Sheets("config").Range("A3").Value
.Label13.Caption = ThisWorkbook.Sheets("config").Range("C1").Value
.Label12.Caption = ThisWorkbook.Sheets("config").Range("C2").Value
.Label11.Caption = ThisWorkbook.Sheets("config").Range("C3").Value
.Label19.Caption = ThisWorkbook.Sheets("config").Range("C8").Value
.Height = Application.Height
.Width = Application.Width
End With
userform1.Show
End Sub