Dateiname automatisch erstellen



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Dateiname automatisch erstellen
von: Hans
Geschrieben am: 18.06.2002 - 21:41:10

Hallo,
ich möchte den Dateinamen meiner Excel Tabelle automatisch erstellen lassen.
Der Name soll sich aus 5 Zellen ( A1:A5 ) zusammensetzen unter dem die Tabelle dann gespeichert werden soll !!
Wie geht das, ich habe schon einiges probiert, funktioniert aber nicht !!

MfG

Hans

nach oben   nach unten

Re: Dateiname automatisch erstellen
von: jinx
Geschrieben am: 18.06.2002 - 21:56:33

Moin, Hans,

vielleicht etwas in der Art wie

Sub Speichern()
Sheets("Tabelle1").Activate 'Namen der Tabelle anpassen
For i = 1 To 5
dName = dName & Range("A" & i).Value
Next
dName = dName & ".xls"
ActiveWorkbook.SaveAs dName
End Sub

cu
jinx

nach oben   nach unten

Re: Dateiname automatisch erstellen
von: Hans
Geschrieben am: 18.06.2002 - 22:19:01

Hi, Jinx
geht nicht !
Ich bin aber auch noch Anfänger mit VBA !
Villeicht noch eine andere Lösung ??

MfG

Hans


nach oben   nach unten

Re: Dateiname automatisch erstellen
von: jinx
Geschrieben am: 18.06.2002 - 22:30:11

Moin, Hans,

das verblüfft mich ein wenig, denn bei mir (Xl2000 unter XP) hat es funktioniert und aus dem Inhalt der Zeilen

MS Excel von jinx an Hans
 A
1Bill
2Gates
3Paul
4Allen
5Microsoft


und folgendem veränderten Code, mit dem die Meldung "Datei existiert.." ausgeschaltet wird, eine Datei entsprechenden Namens in das angegebene Speicherverzeichnis geschrieben:


Sub Speichern()
Sheets("Tabelle1").Activate 'Namen der Tabelle anpassen
For i = 1 To 5
dName = dName & Range("A" & i).Value
Next
dName = dName & ".xls"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs dName
Application.DisplayAlerts = True
End Sub

Eingegeben wird dieser Code in ein allgemeines Modul im VB-Editor (Aufruf über ALT+F11)...

cu
jinx

nach oben   nach unten

Kurze Einweisung VBA....
von: jinx
Geschrieben am: 18.06.2002 - 22:36:50

Moin, Hans,

für eine kurze Einweisung in VBA siehe Wo gibt man nun die Makros ein?...

cu
jinx

nach oben   nach unten

Re: Dateiname automatisch erstellen
von: Hans
Geschrieben am: 18.06.2002 - 23:22:50

Toll, hatt prima geklappt, vielen Dank !!

nach oben   nach unten

Re: Dateiname aus einer bestimmter Zelle
von: olga
Geschrieben am: 19.06.2002 - 07:16:32

Hallo
habe folgendes Problem
Ich möchte dass es unter Dateinamen r und die Zahl aus Zelle c10.

zB. r10
Vielen Dank


nach oben   nach unten

Re: Dateiname aus einer bestimmter Zelle
von: jinx
Geschrieben am: 19.06.2002 - 07:27:58

Moin, Olga,

so richtig verstehe ich Deine Frage nicht - woher kommt die Auswahl der Zelle C10? Ansonsten z.B. so - hier wird der Zellinhalt von Zelle C10 übernommen:


Sub SpeichernOlga()
Sheets("Tabelle1").Activate 'Namen der Tabelle anpassen
dName = "r" & Range("C10").Value
dName = dName & ".xls"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs dName
Application.DisplayAlerts = True
End Sub

cu
jinx

nach oben   nach unten

Re: Danke
von: olga
Geschrieben am: 19.06.2002 - 23:22:26

Super
Vielen Dank
Olga

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Dateiname automatisch erstellen"