Eine EXCEL-Datei soll gespeichert werden, wobei der Dateiname aus einer Zelle automatisch ausgelesen werden soll. Dies ist z. B. sinnvoll, wenn sich der Name aus dem Ergebnis einer Funktion bzw. Formel ergibt (z. B. dem Datum oder einer fortlaufenden Rechnungsnummer).
Lösung:
In diesem Beispiel steht der Dateiname im ersten Blatt in Zelle A1 (ohne Endung .xls).
Das folgende Makro übernimmt den Speichervorgang:
Sub Speichern()
ThisWorkbook.SaveAs FileName:=Worksheets(1).Range("A1")
End Sub