Datei speichern
14.02.2006 17:23:51
F Zap
hier im Forum habe ich diesen Code
zum speichern gefunden, und habe da noch ein Problem mit.
Falls schon eine Datei mit dem selben
Namen existiert, kommt eine MsgBox die mich darauf hinweist.
Diese kann ich mit Yes, No und Cancel bestätigen.
Bei bestätigen mit No oder Cancel kommt eine Fehlermeldung.
Wie muß der Code verändert werden, damit er
funktioniert ???
Private Sub CommandButton1_Click()
Dim pfad$, fname$
pfad = Range("A1")
fname = Range("a2")
ActiveWorkbook.SaveAs pfad & fname
End Sub
Mit freundlichen Grüssen Frank
Anzeige