SaveAs 2010
lothar.himpel@kaefer.com
hab da mal ein Problem. Hatte im Excel 2003 mal was gebastelt. In einer Datei wurde ein Formular ausgefüllt und anschließend mittels Button einer(s?) Userform mit folgendem Code gespeichert.
Sub SpeichernKW4()
Dim sFileName As Variant
Application.ScreenUpdating = False
Application.DisplayAlerts = False
sFileName = Sheets("KW4").Range("AN17").Value & ".xls"
Application.Dialogs(xlDialogSaveAs).Show sFileName
Application.DisplayAlerts = True
Application.ScreenUpdating = True
ActiveWorkbook.Close
End Sub
Klappt im 2003er problemlos, aber jetzt soll das Ganze im 2010er laufen, was es auch tut, außer daß im "xlDialogSaveAs" die Zeile mit dem Dateinamen leer bleibt.Beim Debuggen funktioniert es auch im 2010er perfekt, aber per Button aus Userform nicht.
Hab's schon mit ".Value & ".xlsx" versucht, hilft aber auch nicht.
Vielleicht hat ja der Eine oder Andere eine Idee, oder schon mal ein ähnliches Problem gelöst.
Den DTPicker gibt's ja im 2010er auch nicht mehr.
Hab' mir da schon das nötige aus dem Netz geholt, installieren hat natürlich nicht geklappt.
Wird aber sicher an fehlendem Admin-Recht liegen, denn beim kopieren nach System32 hat er gemeckert aber die Datei trotzdem eingefügt.
Vielen Dank schon mal Lothar