unter Pfad speichern
15.08.2003 10:52:38
Micha_S
ich bekomme es mal wieder nicht gebacken, den Code von der CD so umzubauen, dass die Datei in "C:\Eigene Dateien\Excel\" gespeichert wird.
Vielleicht könnt ihr mir ja da helfen!?
Vielen Dank im Voraus.
Gruss aus Berlin
Micha
Sub Mit_Namen_Speichern()
DIM sFile As String, sPath As String
sPath = "C:\Eigene Dateien\Excel\"
sFile = Range("B1").Value & "_" & Range("B4").Value & ".xls)"
'in B1 + B4 steht der zukünftige Dateiname
ActiveWorkbook.SaveAs sPath & sFile
End Sub