SaveCopyAs mit Namen einer Zelle

[Xenon85]

Gute Morgen, 

ich möchte von meiner Datei ein Backup erstellen, sobald ich irgenwas speichere. 

Soweit klappt das auch mit dem Code

Code:

ThisWorkbook.SaveCopyAs Filename:="#Pfad#\Stückliste " & Format(Now(), "(yyyy-mm-dd hh-mm-ss)") & " (Speichern).xlsm"

Wie bekomme ich jetzt noch vom ersten Sheet ( Tabelle1) die Zelle AG3 in meinen Dateinamen rein?

Danke schonmal

[Elex]

Hi

& Sheets("Blattname").Range("AG3").Value

[Xenon85]

Code:

ThisWorkbook.SaveCopyAs Filename:="#PFAD'\Stückliste " & Format(Now(), "(yyyy-mm-dd hh-mm-ss)") & " (Speichern) " & Sheets("Tabelle1").Range("AG3").Value.xlsm

Dann bekomme ich beim Ausführen des Makros den Fehler: Laufzeitfehler 424 // Objekt erforderlich

Code:

ThisWorkbook.SaveCopyAs Filename:="#PFAD#\Stückliste " & Format(Now(), "(yyyy-mm-dd hh-mm-ss)") & " (Speichern) " & Sheets("Tabelle1").Range("AG3").Value

 
So bekomme ich eine Datei ohne Endung. Es fehlt das .xlsm

[Elex]

Es fehlt das .xlsm

Klar es fehlt ja auch.

Code:

ThisWorkbook.SaveCopyAs Filename:="C:\Users\Desktop\Stückliste " & Format(Now(), "(yyyy-mm-dd hh-mm-ss)") & " (Speichern) " & Sheets("Tabelle1").Range("A1").Value & ".xlsm"

[Xenon85]

Muss dann so aussehen, habs rausbekommen.

Code:

ThisWorkbook.SaveCopyAs Filename:="#PFAD#\Stückliste " & Format(Now(), "(yyyy-mm-dd hh-mm-ss)") & " (Speichern) " & Sheets("Tabelle1").Range("A1").Value & ".xlsm"