InputBox unten obere Zeile hin kopieren
29.01.2007 13:47:14
Klaus
Kann mir da jemand die Ergänzug finden:
Dieser Code soll beim Schließen der Datei diese an anderer Stelle - Pfad zusätzlich speichern.
Das funktioniert nur nach manueller Eingabe, was etwas mühsam ist.
Wenn ich nichts in die InputBox Schreibe funktioniert der Speichervorgang nicht. Wie kann man den oberstehenden Pfad automatisch in der unteren Eingabezeile haben?
Danke im Voraus! Klaus
Private Sub Workbook_BeforeClose(Cancel As Boolean)
pfad = InputBox("D:\Eigene Dateien\Buchhaltung\")
Select Case Right(pfad, 1)
Case ""
GoTo ErrorHandler
Case Is <> "\"
pfad = pfad & "\"
End Select
On Error GoTo ErrorHandler
ActiveWorkbook.SaveCopyAs Filename:=pfad & ActiveWorkbook.Name
Exit Sub
ErrorHandler:
Select Case Err.Number
Case 1004
MsgBox ("Speichervorgang war nicht erfolgreich")
ActiveWorkbook.Close SaveChanges:=False
Case Else
End Select
End Sub
Anzeige