MS-Excel: Speicherort und Name festlegen?
Guten Tag,
ich habe folgendes Problem und brauche Unterstützung.
Ich habe ein Dokument das - wenn es fertig ist mit bestimmten Werten abgespeichert wird in einen definierten Ordner.
- Abspeichern im Zielordner (F:\Dokumente\6 Historie)
- Werte aus dem Dokument entnehmen und als bestimmten Namen abspeichern, Name sieht wie folgt aus. (YYYY.MM - A5 - K7) also beispielsweise (2021.10 - WAUZZZ4G44F6657765 - 090)
Ist dies möglich ohne Makro oder einen extra Button? Möchte nur nach Abschluss auf speichern drücken ohne was zu verändern.
P.S. Das Datum soll der PC selber erkennen und so definieren wie oben beschrieben.
Danke schonmal.
Mfg.
1 Antwort
Dies ist ohne VBA Makro NICHT möglich.
Wenn du auf Speichern clickst wird in Excel das
BeforeSave Event ausgelöst. Darin kann man nun per VBA Code den Namen nach eigenen Wünschen anpassen, um die Speicherung vorzunehmen OHNE den aktuellen zu verwenden. max. 5Zeilen Code.
Sollte in A1 der gebaute Pfad+Dateiname stehen dann so:
Normalerweise wird noch Code zum robusteren Ablauf ergänzt.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.SaveAs Filename:=Range("A1").Value
End Sub
Danke für deine Antwort. Ich habe bereits eine Lösung gefunden die per Button Super funktioniert. Für Leute die es interessiert, hier die Lösung.
Sub SaveWithVariableFromCell()
Dim SaveName As String
SaveNameDAT = ActiveSheet.Range("J1").Text
SaveNameFIN = ActiveSheet.Range("A5").Text
SaveNameKDN = ActiveSheet.Range("K7").Text
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="F:\Dokumente\6 Historie\" & _
SaveNameDAT + "_" + SaveNameFIN + "_" + SaveNameKDN & ".xls"
End Sub