025 Variabler Speichername

 

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.

 

Zurück zur Excel-Hauptseite

Zurück zur Titelseite