|
Hallo Liebe Experten,
Ich habe schon einiges gesucht, kann aber leider keine passende Lösung finden. Deswegen öffne ich einen neuen Thread. Sorry.
Ich habe eine Datei, die sich selbstständig erzeugt. Diese möchte ich nun an einem gewissen Ort unter einem gewissen Namen und mit der Endung ".xlsx" speichern.
Der User muss die Möglichkeit haben, Pfad und Name bei Bedarf zu ändern! Außerdem habe ich bei manchen Versuchen bemerkt, dass das "Speichern unter"-Fenster mehrmals geöffnet wird. Zudem gibt es mMn Komplikationen, wenn man eine Datei überschreiben möchte.
Hier mein Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim varRetVal As Variant
Dim strLink As String
Dim strDateiname As String
Dim strVerzeichnis As String
Dim strLaufwerk As String
strVerzeichnis = Range("G90") 'in G90 steht der gesamte Pfad inkl. Dateinamensvorschlag
strLink = Range("G90")
strVerzeichnis = Left(strVerzeichnis, InStrRev(strVerzeichnis, "\"))
strDateiname = ThisWorkbook.Name
strLaufwerk = Left(strVerzeichnis, 1)
Application.EnableEvents = False
varRetVal = Application.GetSaveAsFilename( _
InitialFileName:=strLink, _
FileFilter:="Microsoft Excel-Dateien (*.xlsm), *.xlsm", _
Title:="Datei speichern unter... ")
If varRetVal = False Then Exit Sub
Cancel = True
Application.EnableEvents = True
ActiveWorkbook.SaveAs varRetVal
End Sub
Ich hoffe ihr könnt mir weiterhelfen! Vielen Dank im Voraus :)
LG Tobi
|