WorkbookBeforeSave mit automatiserter Da
Rosa
ich brauche ganz drignend euren Rat.
Ich habe WorkbookBeforeSave angewendet (werde ich gleich zeigen) was super funktioniert. Ich möchte nun anhand dieser den Dateinamen der aktuellen excel-datei umbennen. Mir ist es wichtig, dass es nicht per DialogBox geschieht und eine extra-Datei erzeugt wird, sondern dass die aktuelle Datei abgespeichert wird mit einem automatisierten Dateinamen.
Mein Code sieht wie folgt aus:
Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
Dim a As String
If ActiveWorkbook.BuiltinDocumentProperties(2) = "" Or ActiveWorkbook.BuiltinDocumentProperties(18) = "" Or ActiveWorkbook.BuiltinDocumentProperties(4) = "" Then
a = MsgBox("Hast du ausgewählt?", vbYesNo)
If a = vbYes Then
Application.EnableEvents = False
DateinameSpeichern
Application.EnableEvents = True
Else
UserForm1.Show
Application.EnableEvents = False
DateinameSpeichern
Application.EnableEvents = True
End If
End If
End Sub
Was Rot markiert ist, ist eine andere Funktion, indem der Dateiname automatisch anhand Informationen von der Datei generiert wird. Am ende der Funktion steht sowas wie:
ActiveWorkbook.SaveAs Zeit "_" & Author14 & "_" & Projekt & "_" & Titel & "_" & Status1 & ".xlsx"
Leider passiert nichts, es wird einfach nur gespeichert.
Ich möchte einfach, dass beim abspeichern der Dateiname der automatisch generiert wird mitgeändert wird, mehr nicht.
Ich hoffe ihr könnt mir helfen, bin am verzweifeln.
Vielen Dank im Voraus
Liebe Grüße
Rosa