Office: Dateiname aus Zellen bei "speichern unter" vorgeben

Captain-Nemo · 31. Januar 2018

Bin wieder einen Schritt weiter. Mein neuester Stand:

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Me.Path = "" Then
On Error Resume Next
Application.EnableEvents = False
Cancel = True
Application.Dialogs(xlDialogSaveAs).Show "Tagesdokumentation " & Worksheets("Übergabe").Range("B1").Value & " " & Worksheets("Übergabe").Range("A1").Value, 52
Application.EnableEvents = True
On Error GoTo 0
End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.EnableAutoComplete = True
If Me.Saved = False Then
On Error GoTo Fehler
Select Case MsgBox("Änderungen in " & "'" & ThisWorkbook.Name & "'" & " speichern?", vbYesNoCancel, ThisWorkbook.Name)
Case vbYes
Application.EnableEvents = False
Application.Dialogs(xlDialogSaveAs).Show "Tagesdokumentation " & Worksheets("Übergabe").Range("B1").Value & " " & Worksheets("Übergabe").Range("A1").Value, 52
Application.Quit
Case vbNo
ThisWorkbook.Saved = True
Application.Quit
Case vbCancel
Cancel = True
End Select
Fehler:
Application.EnableEvents = True
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ärgerlich ist, dass, wenn man in der noch ungespeicherten xltm-Datei auf Schließen und dann im Speichern-unter-Fenster auf Abbrechen geht, dann trotzdem noch das Excel-Standard-Fenster (Speichern - Nicht Speichern - Abbrechen) auftaucht.
Wenn es bereits eine xlsm ist und man auf Schließen und dann auf Speichern geht, sollte die Datei gespeichert und dann geschlossen werden. Stattdessen popt das Speichern-unter-Fenster auf.

Ich hoffe, alles ist jetzt eindeutig?

aloys78 · 2. Februar 2018

Hallo Uwe,

anbei ein Lösungsvorschlag für die Workbook_BeforeSave-Prozedur.
Da ich Deine Vorlage nicht kenne, habe ich unterstellt, dass die Zellen A1 und B1 den Dateinamen ohne .xlsm enthalten; ansonsten ist der rot markierte Teil zu streichen.

Des weiteren habe ich unterstellt, dass diese Zellen-Inhalte konstant bleiben, auch wenn aus der .xltm eine .xlsm-Datei geworden ist. Unter dieser Annahme ist eine Workbook_BeforeClose-Prozedur nicht erforderlich.
Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' Aufgabenstellung
' Vorlage ist geöffnet
' Speichern-unter-Fenster öffnen mit definiertem Dateinamen
' a) Speichern - anschließend Speichern-unter-Fenster schließen (zurück zur Datei)
' b) Abbrechen - Speichern-unter-Fenster schließen (ohne weitere Aktion)

Dim Dateiname As String
If SaveAsUI = True Then ' Save as Button gedrückt
If Right(ThisWorkbook.Name, 5) = ".xltm" Then ' es handelt sich um eine Vorlage
Dateiname = "Tagesdokumentation " & Worksheets("Übergabe").Range("B1").Value _
& " " & Worksheets("Übergabe").Range("A1").Value & ".xlsm"
Application.EnableEvents = False
Application.Dialogs(xlDialogSaveAs).Show Dateiname, 52
Application.EnableEvents = True
Cancel = True
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Aloys

Captain-Nemo · 3. Februar 2018

Vielen Dank, aber zu meiner großen Überraschung behandelt Excel die Datei, als ob dein Code überhaupt nicht vorhanden wäre.

Wir haben vorgestern die 2016er-Version draufbekommen, aber damit kann's ja nix zu tun haben.

aloys78 · 3. Februar 2018

Hallo Uwe,

getestet habe ich mit Office 2016.

Liegt der Code unter DieseArbeitsmappe ?
Treffen die Bedingungen nach Öffnen einer Vorlage und Speichern zu ?

Gruß
Aloys

Captain-Nemo · 3. Februar 2018

Ja, siehe Anhang. Habe ich jetzt beigefügt - als xlsm, weil xltm als Anhang ja nicht akzeptiert wird.

Bzw. nein - nach öffnen der Vorlage will Excel die Datei im 97er-Format speichern mit dem üblichen Dateinamen.

Zwischendurch habe ich den Eindruck, ich verstehe immer weniger!

aloys78 · 4. Februar 2018

Hallo Uwe,

Bzw. nein - nach öffnen der Vorlage will Excel die Datei im 97er-Format speichern mit dem üblichen Dateinamen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gerade mit Office 2016 getestet - läuft mit .xltm im 3. Anlauf einwandfrei.
Bei den ersten Versuchen war mal die Funktion Right nicht bekannt bzw eine DLL fehlte. Ich habe nichts geändert, einfach noch mal versucht.

Gruß
Aloys

Captain-Nemo · 5. Februar 2018

Bei mir nicht. Kann machen was ich will. Hab jetzt

Code:

If Right(ThisWorkbook.Name, 5) = ".xltm" Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ersetzt mit:

Code:

If Me.Path = "" Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Prüft, ob der Pfad noch leer ist weil die Datei aus einer Vorlage stammt und noch nicht gespeichert wurde.

Leider, aber das wird bei deiner Version natürlich auch der Fall sein - wenn man die Datei (noch .xltm) schließen will (nachdem man was verändert hat), dann auf Speichern geht, greift der Code nicht, Excel will die Datei im Speichern-unter-Fenster mit Standardnamen versehen und als .xls speichern.

Alles andere scheint wie gewünscht zu laufen. Wie kann man Excel innerhalb dieses Codes zwingen, beim Schließen im Speichern-unter-Fenster genauso zu verfahren wie wenn man direkt auf Speichern geht?

Grrrr
Uwe

Der ganze Code nochmal:

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Dateiname As String
If SaveAsUI = True Then ' Save as Button gedrückt
If Me.Path = "" Then
Dateiname = "Tagesdokumentation " & Worksheets("Übergabe").Range("B1").Value & " " & Worksheets("Übergabe").Range("A1").Value & ".xlsm"
Application.EnableEvents = False
Application.Dialogs(xlDialogSaveAs).Show Dateiname, 52
Application.EnableEvents = True
Cancel = True
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

aloys78 · 5. Februar 2018

Hallo Uwe,

Prüft, ob der Pfad noch leer ist weil die Datei aus einer Vorlage stammt und noch nicht gespeichert wurde.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Eine Vorlage hat wie eine Datei ebenfalls einen Pfad; zumindest ist das bei meinem Excel so !!!

Ich habe den Code für .xltm ein wenig korrigiert.
- bei 'Speichern unter' läuft die gewünschte Aktion mit Umwandlung in eine .xlsm-Datei
- bei Schließen bzw Speichern der .xltm läuft es ebenfalls wie gewünscht ab.

Gruß
Aloys

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' Version vom 05.02.2018
' Aufgabenstellung
' Vorlage ist geöffnet
' Speichern-unter-Fenster öffnen mit definiertem Dateinamen
' a) Speichern - anschließend Speichern-unter-Fenster schließen (zurück zur Datei)
' b) Abbrechen - Speichern-unter-Fenster schließen (ohne weitere Aktion)

Dim Dateiname As String

If Right(ThisWorkbook.Name, 5) = ".xltm" Then ' es handelt sich um eine Vorlage
If SaveAsUI = True Then ' SaveAs-Button gedrückt
Dateiname = "Tagesdokumentation " & Worksheets("Übergabe").Range("B1").Value & " " & Worksheets("Übergabe").Range("A1").Value & ".xlsm"
Application.EnableEvents = False
Application.Dialogs(xlDialogSaveAs).Show Dateiname, 52
Application.EnableEvents = True
Cancel = True

Else ' Save-Button bzw Schließen
' keine besondere Aktion bei "nur" Speichern
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Captain-Nemo · 12. Februar 2018

Tut mir leid, aber wie gehabt:

Beim Schließen der Vorlage öffnet sich nach clicken auf [Speichern] wie gewünscht das Speichern-unter-Fenster, aber mit Standard Dateinamen und .xls-Erweiterung.

aloys78 · 12. Februar 2018

Hallo Uwe,

Beim Schließen der Vorlage öffnet sich nach clicken auf [Speichern] wie gewünscht das Speichern-unter-Fenster, aber mit Standard Dateinamen und .xls-Erweiterung.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sorry - das kann ich nicht nachvollziehen.

Ich habe mit Excel 2016 wie folgt getestet.
Vorlage.xltm liegt in meinem Vorlagenordner

Öffnen Vorlage
Eintragung in Sp A vornehmen
Schließen
Es erfolgt Abfrage, ob. xltm gespeichert werden soll oder nicht
Speichern gedrückt
Vorlage wird aktualisiert gespeichert

Öffnen Vorlage
keine Eintragung
Schließen
Vorlage wird ohne Rückfrage geschlossen

Öffnen Vorlage
Eintragung in Sp A vornehmen
Speichern unter
'Speichern unter'-Fenster erscheint mit vorgebenem Namen "--- Haus 2018.xlsm'
Ordner aussgesucht
Speichern gedrückt
xlsm wird gespeichert

Der Code enthält keine Workbooks_BeforeClose- Prozedur.

Den gesamten Code unter DieseArbeitmappe habe ich nachstehend aufgeführt.
Code:

Option Explicit

Private Sub Workbook_Open()
Application.EnableAutoComplete = False
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.OLEObjects("ToggleButton1").Object.Caption = "Bearbeitung" Then
On Error GoTo ChgEvent_Error
SendKeys "{F2}"
ChgEvent_Error:
Application.EnableEvents = True
End If

If Application.CutCopyMode = xlCut Then
MsgBox "Ausschneiden+Einfügen ist nicht erlaubt, da sonst die bedingten Formatierungen nicht mehr stimmen!" & vbNewLine & vbNewLine & "Stattdessen: Kopieren+(Werte)Einfügen, anschließend kopierte Zellen erneut markieren und die Inhalte löschen.", vbCritical, ThisWorkbook.Name
Application.CutCopyMode = False
End If

End Sub

Sub Komma_durch_Doppelpunkt_ersetzen()
Application.AutoCorrect.AddReplacement ",,", ":"
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' Version vom 05.02.2018
' Aufgabenstellung
' Vorlage ist geöffnet
' Speichern-unter-Fenster öffnen mit definiertem Dateinamen
' a) Speichern - anschließend Speichern-unter-Fenster schließen (zurück zur Datei)
' b) Abbrechen - Speichern-unter-Fenster schließen (ohne weitere Aktion)

Dim Dateiname As String

If Right(ThisWorkbook.Name, 5) = ".xltm" Then ' es handelt sich um eine Vorlage
If SaveAsUI = True Then ' SaveAs-Button gedrückt
Dateiname = "Tagesdokumentation " & Worksheets("Übergabe").Range("B1").Value & " " & Worksheets("Übergabe").Range("A1").Value & ".xlsm"
Application.EnableEvents = False
Application.Dialogs(xlDialogSaveAs).Show Dateiname, 52
Application.EnableEvents = True
Cancel = True

Else ' Save-Button bzw Schließen
' keine besondere Aktion bei "nur" Speichern
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Aloys

Captain-Nemo · 14. Februar 2018

Hi,

ich habe explizit und deutlich kommuniziert, dass NUR der BeforeClose-Code Probleme macht und welche das sind.

Ich kriege es einfach nicht hin, dass beim Schließen nach Veränderungen die Standard-Routine abläuft, außer im Falle, dass die Datei noch das xltm-Format hat: Dann soll im Speichern-unter-Fenster als einzige Abweichung der Standard-Prozedur der definierte Dateiname generiert werden.

Gruß
Uwe

aloys78 · 14. Februar 2018

Hallo Uwe,

ich habe explizit und deutlich kommuniziert, dass NUR der BeforeClose-Code Probleme macht und welche das sind.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Da reden wir aneinander vorbei.
Im übrigen - deine letzte Datei (Beitrag # 18) enthält eine solche Prozedur überhaupt nicht.

Deswegen kann ich Deine Aussage auch nicht nachvollziehen.

Gruß
Aloys

Captain-Nemo · 15. Februar 2018

Bei der letzten nicht, das stimmt. Aber bei den zuvor (Seite 1) geposteten Versionen war immer eine Workbook_BeforeClose-Prozedur vorhanden und wurde ausführlich erörtert.

Naja, eines Tages wird sich das Ding vollenden.

Gruß
Uwe

Office: Dateiname aus Zellen bei "speichern unter" vorgeben

Dateiname aus Zellen bei "speichern unter" vorgeben

Dateiname aus Zellen bei "speichern unter" vorgeben

Dateiname aus Zellen bei "speichern unter" vorgeben

Dateiname aus Zellen bei "speichern unter" vorgeben

Dateiname aus Zellen bei "speichern unter" vorgeben

Dateiname aus Zellen bei "speichern unter" vorgeben - Similar Threads - Dateiname Zellen speichern

Excel Tabellenblatt als PDF speichern unter Vorgabe Dateinamen aus einer Zelle

PDF-Dateinamen aus Zellen zusammensetzen

Makro Textdatei speichern und Dateiname aus Zelle vorgeben

Ordner generieren, Dateiname aus Zelle, Speichern unter

Excel Tabellenblatt als PDF speichern unter Vorgabe Dateinamen aus einer Zelle

per vba pdf speichern, pfad und dateiname aus zelle lesen

Inhalt aus zwei Zellen in den Dateinamen speichern