Hallo,
ich möchte eine Datei, über Button, deren Name ich über eine Inputbox vorgebe in variablen Ordnern abspeichern. Welchen Code muß ich verwenden daß sich nach der Inputeingabe das "Speichern unter" Fenster öffnet und der Dateiname schon ausgefüllt dasteht sodaß man den Ordner manuell Auswählen kann.
Zur Inputbox verwende ich folgenden Code in dem allerdings ein Pfad vorgegeben ist, und genau den möchte ich per Speichen unter noch zusätzlich manuell auswählen können:
Dim FName As String
FName = InputBox("Dateinamen eingeben:", _
"WSD", "Test 01.2004.xls")
If Len(Trim(FName)) = 0 Then
Exit Sub
End If
ActiveWorkbook.SaveAs Filename:="\\SFFM1MSQL1\WSD$\WSD-Modul\Archiv\Statistik\" & FName, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ThisWorkbook.Close
Vielleicht kann mir jemand helfen!
Gruß Redneck