Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1352to1356
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Laufzeitfehler '9'

Laufzeitfehler '9'
29.03.2014 11:41:13
Dirk
Hallo Leute,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler '9'
29.03.2014 11:57:34
fcs
Hallo Dirk,
so
  Application.DisplayAlerts = False
With Workbooks("Fahrzeuge_Neuwagen.xlsm")
.Save
.SaveCopyAs Pfad & "Fahrzeuge_Neuwagen_Kopie.xlsm"
.Close
End With
Application.DisplayAlerts = True
'oder so
Application.DisplayAlerts = False
With Workbooks("Fahrzeuge_Neuwagen.xlsm")
.Save
.SaveAs Pfad & "Fahrzeuge_Neuwagen_Kopie.xlsm"
.Close
End With
Application.DisplayAlerts = True

sollte es funktionieren.
Ich empfehle mit SaveCopyAs zu arbeiten.
Gruß
Franz

AW: Laufzeitfehler '9'
29.03.2014 12:11:11
Dirk
Hallo Franz,
Tausend Dank, hat super geklappt, Wochenende ist gerettet !
Gruß
Dirk
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige