Dateinamen automatisch aus Zelle übernehmen

[serres]

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ß

[redeagle56]

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/Zellinhal...20587.html

MfG Günter

[serres]

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/Zellinhal...20587.html

MfG Günter

Danke erstmal, aber ich bekomme das nicht hin.

[serres]

Tabelle1
Desktop
Aktuell heisst die Datei "Test1"

Hast du das gemeint?

Gruß
serres

[EbyAS]

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

[serres]

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

[EbyAS]

Hallo serres,

Der folgende Code muss in "DieseArbeitsmappe" (VBA-Editor) gespeichert werden.

Ich hatte etwas anderes geschrieben!



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

[serres]

Hallo Armin,

jetzt hat es geklappt.

Vielen Dank