Hallo,
ich habe Excel 2016.
Ich möchte, dass wenn ich eine Datei speichere der Dateiname automatisch von der Zelle "B58" übernommen wird.
Wäre Euch sehr dankbar wenn Ihr mir weiter helfen könnt.
Gruß
Tabelle1
Desktop
Aktuell heisst die Datei "Test1"
Hast du das gemeint?
Gruß
serres
Hallo,
vorab ist zu bemerken die Speicherung des Workbooks kannst Du nicht mit Speicher-Button erreichen!
Dazu ist ein Ausblenden selbiger erforderlich.
Wenn selbige benutzt werden, speichert er das aktuelle Sheet.
Um die Speicherung die Du erreichen willst, musst Du das Sheet mit "Schließen" beenden.
Der folgende Code muss in "DieseArbeitsmappe" (VBA-Editor) gespeichert werden.
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim WSHShell As Object
Dim strDesktopPath As String
Set WSHShell = CreateObject("wscript.Shell")
strDesktopPath = WSHShell.SpecialFolders.Item("Desktop")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=strDesktopPath & "\" & Tabelle1.Range("B58").Value & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=True
Application.DisplayAlerts = True
Application.Quit
End Sub
Hallo Armin,
meine vorgehensweise ist:
Ich gehe in die Entwicklertools --> Visual Basic --> klicke auf den VBA Project --> Tabelle1 und füge die Datei ein die Du mir erstellt hast.
Dann schliesse ich das VBA-Fenster.
Dann speichere ich die Excel-Datei mit Dateityp "Excel-Arbeitsmappe mir Makros"
Schliesse dann die Mappe.
Beim nächsten öffnen der Mappe ändere ich die Zelle "B58" und speichere die Datei wieder.
Es ändert sich aber nichts.
Was ist falsch bei meiner Vorgehensweise?
Danke und Gruß
serres
Hallo serres,
Zitat:Der folgende Code muss in "DieseArbeitsmappe" (VBA-Editor) gespeichert werden.
Ich hatte etwas anderes geschrieben!
![[Bild: Hinweis-Arbeitsmappe.jpg]](https://i.ibb.co/DWyfBqM/Hinweis-Arbeitsmappe.jpg)
Evtl. Bild anclicken.
Dorthin muss der Code!!!!
Hallo Armin,
jetzt hat es geklappt.
Vielen Dank
