Speicherort vorschlagen
07.11.2008 12:01:44
Daniel
ich hab mit Hilfe aus dem Forum ein Makro gebaut, das zum Speichern den Dateinamen aus einer Zelle liest und im Fenster vorschlägt.
Nun möchte ich das Makro noch erweitern, so dass auch der Speicherort aus einer Zelle gelesen und vorgeschlagen wird. (der User darf bei Bedarf die Datei auch woanders ablegen, es soll bloss ein Vorschlag sein.)
Die Datei liegt im Netzwerk, und gespeichert werden soll in einem Unterodner des Ordners, in dem die Datei liegt.
Der User gibt in der Arbeitsmappe seine Abteilung ein; der Unterordner trägt ebenfalls den Abteilungsnamen (alternativ würde es auch genügen, wenn der Hauptordner (aus dem das File aufgerufen wurde) vorgeschlagen wird und der User dann den Speicherordner selbst auswählen kann).
Hier das aktuelle Makro, das soweit auch läuft:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
Application.EnableEvents = False
Application.Dialogs(xlDialogSaveAs).Show ThisWorkbook.Path & "\" & Sheets(3).Range("K1")
Application.EnableEvents = True
End Sub
--> Ich bin eine VBA-Null, deshalb wäre es schön, wenn ihr mir nebst der passenden Befehle auch noch sagen könntet, wo diese in den Code reinmüssen!
Herzlichsten Dank
Daniel