Name der Datei aus Zelle übernehmen

Bild

Betrifft: Name der Datei aus Zelle übernehmen
von: Werner
Geschrieben am: 05.04.2005 11:31:56
Hallo allerseits,
habe es zwar im Forum schon mal gelesen, komme aber mit der Suche im Archiv nicht hin.
Möchte den in Zelle A1 stehenden Text als Dateiname beim "Speichern unter" übernehmen.
mfg Werner

Bild

Betrifft: AW: Name der Datei aus Zelle übernehmen
von: Marcus Rose
Geschrieben am: 05.04.2005 11:39:55
Hallo,
so vielleicht ?


Sub speichern()
Dim pfad As String
Dim name As String
pfad = "c:\test\"
name = Range("A1").Value
ActiveWorkbook.SaveCopyAs Filename:=pfad & name
End Sub


     Code eingefügt mit Syntaxhighlighter 3.0

Gruß
Marcus
http://xltreff.de
Bild

Betrifft: AW: Name der Datei aus Zelle übernehmen
von: Marcus Rose
Geschrieben am: 05.04.2005 11:45:10
Hallo noch einmal ...
natürlich nicht mit Copy ...ActiveWorkbook.SaveAs reicht da aus.
Gruß
Marcus
http://xltreff.de
Bild

Betrifft: AW: Name der Datei aus Zelle übernehmen
von: Werner
Geschrieben am: 05.04.2005 12:00:20
Hallo Marcus, danke für deine Lösung.
Sitze momentan in der Bobliothek und kann es nicht ausprobieren, bin aber zuversichtlich dass es klappt.
mfg Werner
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Word-Daten zu Excel übertragen lassen"