Hallo
Ich möchte beim Speichern gerade den richtigen Pfad und Dateinamen zuweisen. Wichtig ist mir, dass nicht automatisch einfach gespeichert wird und kein Dialogfeld aufgeht.
Für den Dateinamen habe ich eine Lösung der Pfad funktioniert leider nicht.
Hätte jemand eine Idee ?
Private Sub Workbook_Open()
Dim path As String
Dim filename As String
path = „c:\windows“
filename = „Mo“ & " " & Format(Date, „mmmm yyyy“)
Application.GetSaveAsFilename path & filename
End Sub
Danke
Lanzma
Hallo Lanzma,
Ich möchte beim Speichern gerade den richtigen Pfad und
Dateinamen zuweisen. Wichtig ist mir, dass nicht automatisch
einfach gespeichert wird und kein Dialogfeld aufgeht.
? Es soll nicht gespeichert werden und kein Dialogfeld aufgehen?
Was soll denn geschehen?
GetSaveAsFilename ist doch ein Dialogfeld, wo du einen dateinamen festlegst.
Was du aber gar nicht brauchst, da du Pfad und Dateinamen schon vorher kennst.
Dir reicht SaveAs.
Und wenn schon, man benutzt es so:
MyFilename = Application.GetSaveAsFilename
Gruß
Reinhard
Hi Reinhard
Danke für Deine Antwort.
? Es soll nicht gespeichert werden und kein Dialogfeld
aufgehen?
Was soll denn geschehen?
Es soll einfach kein AutoSave sein.
Nur wenn ich speichern möchte, also auf speichern unter gehe… und dann soll der richtige Pfad mit richtigem Dateinamen da stehen.
War das jetzt verständlich ? 
Gruss
Lanzma
Es soll einfach kein AutoSave sein.
Nur wenn ich speichern möchte, also auf speichern unter gehe…
und dann soll der richtige Pfad mit richtigem Dateinamen da
stehen.
War das jetzt verständlich ?
Hallo Lanzma,
schon eher
Sobald du auf „Speichern unter…“ gehst bietet dir Excel einen Pfad an und einen Dateinamen.
Auf den Pfad kannst du im Vorfeld, z.B. mit dem/im Workbook_Open-Ereignis Einfluß nehmen. Auf den Namen nicht.
Das ginge wenn du eine eigene Prozedur (=Makro) durch Klick auf „Speichern unter…“ startest oder diesen Excel-Menuepunkt gar nicht benutzt sondern durch ein eigenes Symbol oben in der Leiste deine Prozedur startest.
Die prozedur könnte dann so aussehen:
Sub Mein_Speichern()
Dim MyPath As String, MyFilename As String
MyPath = „c:\windows“
MyFilename = „Mo“ & " " & Format(Date, „MMMM YYYY“)
ThisWorkbook.SaveAs MyPath & MyFilename
End Sub
Gruß
Reinhard
Hallo Lanzma,
versuch mal, vor dem
Application.GetSaveAsFilename
ein
ChDir „\MeinVerzeichnis“
oder wo auch immer du hin willst.
Gruß, Andreas
Hallo Reinhard
Danke für den Vorschlag, so werde ich es machen
Super, Danke
Lanzma