Nochmals Dateiname aus Zelle beziehen
05.04.2005 19:22:14
Werner
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