Habe in meinem Excel Programm folgende Speicherfunktion eingebaut (siehe weiter unten!) Wenn ich diese starte und einen Dateinamen eingebe, so wird die Excel Datei verspeichert. Es tritt jedoch folgendes Problem auf! Wenn ich z.B. den Namen "Hugo" eingebe so wird die Datei unter "0ugo" verspeichert. Es wird irgendwie statt den Buchstaben h, s, m und n eine 0 beim verspeichern eingefügt!
Hat das mit der Excel Version bzw. mit Windows zu tun oder ist meine Speicherfunktion falsch?
Wäre spitze wenn mir wer einen Tipp geben könnte!
Mfg
Foco
Dim sPath As String, sFile As String
Application.ScreenUpdating = False
.
.
.
If File Falsch Then
Worksheets(2).Cells(I + 2, 2) = " " & File
sPath = Application.DefaultFilePath & "\"
sFile = Format(Date, File) & ".xls"
ActiveSheet.Copy
ActiveWorkbook.SaveAs sFile
ActiveWorkbook.Close savechanges:=False
MsgBox "Das Blatt wurde unter " _
& sPath & File & " gespeichert!"
Application.ScreenUpdating = True
.
.
.