Dateiname automatisch

Forumthread: Dateiname automatisch
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Dateiname automatisch

24.03.2005 11:36:38

Thomas

Hallo Liste,
ich benötige Hilfe bei der automatischen Dateibenennung per Makro.
In meinem Tabellensystem trage ich den Bearbeitungszeitraum in zwei Zellen ein. Daraus generiere ich mit dem Makro Tabellennamen bzw. benenne Tabellen um. Das arbeitet.
Ich möchte die Datei jedoch auch per Makro unter einem generierten Namen speichern (z.B. aus den Einträgen "Mrz" und "2004" soll die Datei als "Mrz2004.xls" gespeichert werden.)
Bisher hat das Makro nur in ihm eingegebenen Dateinamen akzeptiert.
Hat jemand eine Idee?
Vielen Dank schon einmal
Thomas

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Dateiname automatisch

24.03.2005 11:48:32

UweD
AW: Dateiname automatisch

24.03.2005 13:44:53

thomas

AW: Dateiname automatisch

24.03.2005 11:48:32

UweD

Hallo

so z.B.


Sub speichern()
Dim FName$, M$, J$
M = ActiveSheet.Range("A1") 'hier steht z.b. der Monat
J = ActiveSheet.Range("B1") 'hier steht z.b. das Jahr
FName = M & J & ".xls"
ThisWorkbook.SaveAs Filename:=FName
End Sub

Gruß UweD

AW: Dateiname automatisch

24.03.2005 13:44:53

thomas

Danke UweD, es funktioniert.
Schöne Ostertage.
Thomas

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!