Datei wird nicht gespeicht, keine Fehlermeldg.
07.03.2008 22:45:00
bernd
es geht um das "Speichern unter" mit einem Namensvorschlag, der aus Zelle B2 übernommen wird.
Ich habe zwar mit tw. Hilfe aus Forumbeiträgen einen Code hinbekommen, der den Speichernamen aus der Zelle B2 entnimmt und diesen vorschlägt beim "Speichern unter", aber leider wird das File nicht gespeichert. Es kommt auch keine Fehlermeldung. Nachstehend der Code:
Sub Speichern_unter()
Dim sfile As Integer
Dim Mappe As Workbook
fileSaveName = Application.GetSaveAsFilename(Sheets("Output").Range("B2"), _
fileFilter:="Excel-Arbeitsmappe (*.xls), *.xls")
If sfile False Then
MsgBox sfile
End If
'auch mit nachstehender Code-Ergänzung wird nicht gespeichert.
'Mappe.Close savechanges:=True
End Sub
File: https://www.herber.de/bbs/user/50563.xls
Danke euch vorab.
Grüße
Bernd