Nochmals Dateiname aus Zelle beziehen

Bild

Betrifft: Nochmals Dateiname aus Zelle beziehen
von: Werner
Geschrieben am: 05.04.2005 19:22:14
hallo allerseits,
hatte heute Mittag Frage ins Forum gestellt, wie ich den Dateinamen aus Zelle A1 beziehen kann.
Marcus hatte mir nachfolgende Lösung benannt, die ich erst jetzt ausprobieren konnte.


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

Funktioniert zwar, geht mir aber schon einen Schritt zu weit.
Ich benötige nur das sichtbare Dialogfeld "Speichern unter" mit dem übernommenen Dateinamen (Inhalt der Zelle A1).
Den Pfad muss sich der User selbst wählen können.
mfg Werner
Bild

Betrifft: AW: Nochmals Dateiname aus Zelle beziehen
von: ransi
Geschrieben am: 05.04.2005 19:31:35
hallo werner
da reicht ein einzeiler:
(Ohne prüfung auf ungültige zeichen)
Public

Sub sunter()
Application.Dialogs(xlDialogSaveAs).Show arg1:=Range("a1").Text
End Sub

ransi
Bild

Betrifft: AW: Nochmals Dateiname aus Zelle beziehen
von: Werner
Geschrieben am: 05.04.2005 20:08:36
Danke Ransi, funktioniert genau so wie ich dachte.
Werner
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Nochmals Dateiname aus Zelle beziehen"