GetSaveAsFilename
Dominic
Leider komm ich nicht weiter. Ich möchte eine Excel-Datei speichern. Ich verwende folgenden Code:
Dim d As Integer
Dim str_name As String
Dim str_fullname As String
...
d = MsgBox(Prompt:="Do you want to save it in another file?", Buttons:=vbYesNo, Title:="Import finished ...")
If d = 6 Then
str_name = "MS-" & Worksheets("Datasheet").Cells(2, 2).Value & "-2003.xls"
str_fullname = Application.GetSaveAsFilename(InitialFileName:=str_name)
'Fehler trätet hier auf:
If str_fullname = False Then
Exit Sub
End If
ActiveWorkbook.SaveAs Filename:=str_fullname
End If
Da diese Datei nicht nur in Deutsch, sondern in mehreren Sprechen verwendet wird möchte ich vermeiden alles in "Klammern" zu schreiben.
Grüße
Dominic