Saveas funzt net
14.07.2003 15:40:32
tobi
Private Sub CommandButton1_Click()
saveas_filname = Application.GetSaveAsFilename(initialFilename:=ActiveWorkbook.Path & "O:\Personal\2003\" & _
Range("A1").Value, fileFilter:="(*.xls),*.xls")
If saveas_filname = False Then
strTxt = "Fehler!" & Chr(13) & Chr(13) & _
"False"
MsgBox strTxt, vbCritical
Exit Sub
End If
ActiveWorkbook.SaveAs FileName:=saveas_filename, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Danke
Tobi