Dialog Save As
09.08.2004 21:25:49
Brian
Habe mal wieder ein kleines Problem und ich komme echt nicht dahinter was an dem Code nicht ok ist.
Folgender Code für das Speichern und Oeffnen von Arbeitsmappen habe ich hinterlegt:
Private Sub SpeichernSchaltfläche_Click()
Chdir("C:\Tarife\")
Call SpeichernDialog
End Sub
Private Sub OeffnenSchaltfläche_Click()
Chdir ("C:Tarife\")
Call OeffnenDialog
End Sub
Sub SpeichernDialog()
Application.Dialogs(xlDialogSaveAs).Show
End Sub
Sub OeffnenDialog()
Application.Dialogs(xlDialogOpen).Show
End Sub
So und jetzt das Problem, beim Speichern steht die Dialogbox immer in einem anderen Verzeichnis, nie im Verzeichnis C:\Tarife sondern in C:\Applikation (das ist da wo das Hauptmakro läuft.
Beim Oeffnen da steht die Dialogbox im richtigen Verzeichnis... Ist mir ein Rätsel...weiss jemand Rat habe ich etwas falsches im Code?
Anzeige