Wie kann ich den Pfad und den Dateinamen einer Datei in eine Zelle schreiben, aus dem Befehl Speichern unter heraus ?
Ich kopiere 2 Arbeitsblätter in eine neue Datei und nun soll diese Datei mit Speichern unter vom USer in ein Pfad x gespeichert werden.
Das klappt soweit mit:
Application.Dialogs(xlDialogSaveAs).Show Speicherort ' Speicherort = Dateipfad komplett
' Nun möchte ich an dieser Stelle den Dateipfad der gewählt wurde in eine Zelle Speichern...
' Mein Versuch - jedoch öffne ich so erneut das Speichern unter... ;o(
Vorschlag = Application.GetSaveAsFilename
If Vorschlag = False Then GoTo Weiter
Worksheets("Seriendruck").Range("S11").Value = Vorschlag
Suche dringend (Muss die Datei gleich fertigstellen und das ist das letzte was noch offen ist) Hilfe.
Vielen Dank und Gruß
Kay