Um in Excel 97 eine automatische Speicherung unter einem variablen Namen (z. B. bei fortlaufenden Rechnungsnummern unter der jeweiligen Rechnungsnummer), welcher in einer bestimmten Zelle steht, zu erreichen, muss folgendes Makro eingegeben werden:
Sub Speichern()
' Makro speichert unter dem Zellnamen aus Zelle A1
'
Sheets"Tabelle1".Select
Range("A1").Select hier ggf. die Zelle ändern
datname = Selection
ActiveWorkbook.SaveAs FileName:="C:\Eigene Dateien\" & datname & ".xls", _
FileFormat:=xlNormal, Password:="", _
WriteResPassword:="", ReadOnlyRecommanded:=False, CreateBackup:=False
End Sub
Anmerkung: Der Unterstrich "_" bedeutet, dass die Befehlszeile ohne "ENTER" fortgesetzt werden muss (den Unterstrich nicht mit eingeben!) Anstelle von "A1" kann natürlich auch jede andere Zelle eingegeben werden, das Tabellenblatt "Tabelle1" kann auch geändert werden und der Pfad kann natürlich auch an eigene Bedürfnisse angepasst werden.
Das Makro liest beim Aufruf den Inhalt der angegebenen Zelle aus und speichert das Arbeitsblatt unter dem ausgelesenen Zellnamen.