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"