Application.Dialogs(xlDialogSaveAs).Show
22.05.2019 10:30:41
Hermann
Ich habe einen Code, der ein offenes Excel-File "irgendwo" mit einem vorgegebenen Dateinamen _ speichern soll. Leider zeigt das Dialogfenster xlDialogSaveAs den Dateinamen im Feld "Dateiname:" nicht an, obwohl er vorgegeben wurde. Die "Editbox" beleibt leer. Hier der Code:
Sub SaveAs_Klicken()
Dim FileN As String
'Dateinamen festlegen
If Range("H3").Value = "" Then
FileN = "Stückliste"
Else
FileN = "KO-" & Range("H5").Value & "-SL-" & Range("H4").Value
End If
' Speichern
Application.DisplayAlerts = False
MsgBox (FileN)
Application.Dialogs(xlDialogSaveAs).Show FileN, 51
Application.DisplayAlerts = True
End Sub
Anmerkungen:
- Die Msgbox gibt mir den Dateinamen aus.
- Zusätzlich einen Pfad anzugeben, habe ich versucht - ohne Erfolg
- Das Ganze mit "getsaveasfilename" und "saveas" zu programieren, habe ich auch versucht - keine Verbesserung
Hat jemand eine Idee?