Ich habe in meiner Excel (2013) Datei einen CommandButton "Speichern unter". Wenn ich diesen drücke, wird mir der Dateiname vorgegeben. und ich muss dann nur noch den Ordner auswählen.
Das Makro:
Sub Speichern_unter()
Dim varRetVal As Variant, strInitFileName As String, Datname As String
Dim Pfad As String
Pfad = "" 'ActiveWorkbook.Path & "\" '?
Datname = Range("i5") & ".xlsm"
varRetVal = Application.GetSaveAsFilename( _
InitialFileName:=Pfad & Datname, _
FileFilter:="Microsoft Excel-Dateien (*.xlsm), *.xlsm", _
Title:="Datei speichern unter... ")
If varRetVal = False Then Exit Sub
ActiveWorkbook.SaveAs varRetVal
End Sub
Wenn ich dann in dem ausgewählten Ordner auf speichern drücke, und es eine Datei mit gleichem Namen gibt, kommt die bekannte Meldung "Datei ist bereits vorhanden. Möchten Sie sie ersetzen?".
Wenn ich dann auf ja klicke, wird die vorhandene Datei überspeichert.
Ist es möglich, bei vorhandener gleichnamiger Datei, das Ersetzen nicht möglich zu machen. Zum Beispiel eine Meldung "Die Datei besteht bereits, speichern nicht möglich" und dann nur die Möglichkeit zu haben abzubrechen.
mit freundlichen Grüßen
Hans-Jörg