Office: Datei speichern mit variablem Dateinamen

Hi Leute,
ich möchte einen Button einfügen, der die Datei unter einem bestimmten Namen speichern soll. Soweit kein Problem. Ich habe es mit folgendem Code gelöst.

ActiveWorkbook.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\Andre\Desktop\Dateiname.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Jetzt komme aber das Knifflige. Ich möchte im Dateinamen einen variablen Teil haben, der zB das Datem oder den Inhalt einer Zelle dieser Datei enthält. Geht das mit einfachen Mitteln die auch ein Anfänger versteht?
Gruß, André.

:)

 

Holla die Waldfee,
mit Hilfe von Tante Google habe ich soeben eine Lösung gefunden. Für alle Interessierten:

Sub save()
pfad = ":\Listen"
Datei = Sheets("tabelle1").Range("D8")
ThisWorkbook.SaveAs pfad & "\" & Datei & ".xls"
End Sub

Gruß, André

 

Hallo Leute!

ich habe eine Rechnungsvorlage, die beim speichern Zellinhalte in eine Rechnungsdatenbank (andere Exceltabelle) schreibt. Das ganze wurde mit dem Vorlagenassistenten erstellt.
Beim speichern mit dem Speichern oder Speichern unter Icon erstellt Excel eben einen Eintrag in dieser anderen Exceltabelle.
Wenn ich mir jetzt ein Macro bastel, wie oben beschrieben, dann kreirt es mir auch den Dateinamen aus den Zellinhalten aber die Daten werden nicht in diese Datenbank geschrieben.
Was muss man einbauen, damit diese Datenbank gefüllt wird und mein "Speichern Macro" genaus funktioniert wie das normale "Speichern Icon"?
Es handelt sich übrigens um die Rechnungsvorlage, die bei Excel 2000 schon mit dabei ist.
Vielen Dank für eine Antwort und schöne Grüße,

Rudi

 

Moin, Rudi,

magst Du bitte den Text Deines Makros einmal angeben? So ganz ohne würde ich es für unmöglich halten, den Fehler zu finden (es sei denn, ich unterstelle, dass genau der Prozess fehlen sollte, was nicht weiter verwunderlich wäre, denn bei der Datenbankanbindung handelt es sich meines Wissens um eine interne Programmierung, die ggf. per Code anders nachzubilden ist).

 

Servus Jinx,

der Code von dem Macro ist wie folgt:

Code:

Funktioniert auch mit dem Code von andrehamburg-oben, völlig egal.
Die "Datenbankfunktion", also bestimmte Daten in eine andere Exceldatei schreiben, wird mit dem Vorlagenassistenten erledigt.
Dafuer ist, glaub ich, die VLAssist.xls zuständig. Ist ja bei Excel mit dabei.
Das ganze ist die Rechnungsvorlage, die in älteren Excelversionen mitgeliefert wurde.
Irgendeine Idee?
Würd mich freuen wenn das irgendwie hinzubekommen wäre.
Danke fuers Interesse und Grüße,
Rudi

 

Juhuu ich habs!

Man klatscht einfach ein- Run ("vlassist.xla!commit") in s Macro, vor der If Anweisung, und schon ruft es beim speichern mit dem Macro die Datenbank auf.
Manchmal zahlt sich Hartnäckigkeit doch aus. :-)
Und wer suchet, der findet und wer nix findet, der sucht ned gscheid.*biggrin.gif*

Ich wünsch Euch allen ein gutes neues Jahr und viel Gesundheit.

Bis bald mal wieder beim nächsten Problem

Rudi