Pfad beim Speichern ändern
29.01.2008 08:23:22
joko0803
ich hab hier ein Problem bei Speichern von Dateien per Makro.
Folgendes Makro läuft sehr gut, wenn ich eine neue Datei speichern möchte.
War die Datei allerdings schon ein mal irgendwo gespeichert kann ich den neuen Speicherort nicht einstellen.
Das Makro ist in eine UserForm eingebunden in der ich den Speicherpfad bestimme.
Ich hoffe ich habe es einigermaßen verständlich formuliert.
Ich würde mich freuen wenn jemand eine Lösung anbieten könnte.
Hier nun der Code:
Private Sub CommandButton2_Speichern_Click()
Checkpath
Application.Dialogs(xlDialogSaveAs).Show
UserFormÖffnenSpeichern.Hide
End Sub
Private Sub OptionButton1_Excelwrk_Click()
Pfad = 1
End Sub
Private Sub OptionButton2_Ergebnis_Click()
Pfad = 2
End Sub
Private Sub OptionButton3_Bilanz1_Click()
Pfad = 3
End Sub
Sub Checkpath()
Select Case Pfad
Case 1
ChDrive "L"
ChDir ("L:\Geschäftsberichte\2007")
Case 2
ChDrive ("N")
ChDir ("N:\HB_Bilan\Excelwrk\Ergebnis")
Case 3
ChDrive ("N")
ChDir ("N:\HB_Bilan\Excelwrk\Bilanz")
End Select
End Sub
Private Sub UserForm_Initialize()
'Beim Laden des Dialogsfeld soll die Funktion Summe schon markiert sein
OptionButton1_Excelwrk.Value = True
Pfad = 1
End Sub
Schon mal herzlichen Dank
John