Office-Fragen.de
Dateinamen automatisch aus Zelle übernehmen - Druckversion

+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: Dateinamen automatisch aus Zelle übernehmen (/thread-7883.html)

Dateinamen automatisch aus Zelle übernehmen - serres - 09.03.2020

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ß

RE: Dateinamen automatisch aus Zelle übernehmen - redeagle56 - 09.03.2020

Hallo,
das Problem kannst du über ein Makro lösen. Habe mich damit aber auch noch nicht befasst.
Siehe Link.
https://www.pcwelt.de/ratgeber/Zellinhalt-als-Dateinamen-verwenden-1320587.html

MfG Günter

RE: Dateinamen automatisch aus Zelle übernehmen - serres - 09.03.2020

(09.03.2020, 11:05)redeagle56 schrieb: Hallo,
das Problem kannst du über ein Makro lösen. Habe mich damit aber auch noch nicht befasst.
Siehe Link.
https://www.pcwelt.de/ratgeber/Zellinhalt-als-Dateinamen-verwenden-1320587.html

MfG Günter

Danke erstmal, aber ich bekomme das nicht hin. Sad

RE: Dateinamen automatisch aus Zelle übernehmen - serres - 09.03.2020

Tabelle1
Desktop
Aktuell heisst die Datei "Test1"

Hast du das gemeint?

Gruß
serres

RE: Dateinamen automatisch aus Zelle übernehmen - EbyAS - 09.03.2020

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


RE: Dateinamen automatisch aus Zelle übernehmen - serres - 09.03.2020

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

RE: Dateinamen automatisch aus Zelle übernehmen - EbyAS - 11.03.2020

Hallo serres,
Zitat:Der folgende Code muss in "DieseArbeitsmappe" (VBA-Editor) gespeichert werden.

Ich hatte etwas anderes geschrieben!

[Bild: Hinweis-Arbeitsmappe.jpg]

Evtl. Bild anclicken.
Dorthin muss der Code!!!!

RE: Dateinamen automatisch aus Zelle übernehmen - serres - 12.03.2020

Hallo Armin,

jetzt hat es geklappt.

Vielen Dank