Thema Datum  Von Nutzer Rating
Antwort
Rot VBA: WorkbookBeforeSave mit automatiserter Dateinamw
09.06.2021 10:08:21 Gast18740
NotSolved
09.06.2021 11:14:36 Gast67478
NotSolved
09.06.2021 11:42:23 Rosa
NotSolved
09.06.2021 13:48:26 Der Steuerfuzzi
NotSolved
09.06.2021 13:54:04 Gast51614
NotSolved
09.06.2021 14:00:02 Mase
NotSolved

Ansicht des Beitrags:
Von:
Gast18740
Datum:
09.06.2021 10:08:21
Views:
123
Rating: Antwort:
  Ja
Thema:
VBA: WorkbookBeforeSave mit automatiserter Dateinamw

Hallo ihr VBA-Profis,

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA: WorkbookBeforeSave mit automatiserter Dateinamw
09.06.2021 10:08:21 Gast18740
NotSolved
09.06.2021 11:14:36 Gast67478
NotSolved
09.06.2021 11:42:23 Rosa
NotSolved
09.06.2021 13:48:26 Der Steuerfuzzi
NotSolved
09.06.2021 13:54:04 Gast51614
NotSolved
09.06.2021 14:00:02 Mase
NotSolved