Hallo zusammen,

habe ein kleines Problem mit einem VBA-Code.

Ich möchte, dass die erstellte Datei automatisch gespeichert wird.

Derzeit geht der Speichern unter Dialog auf und der Anwender muss noch einmal mit einem Klick auf speichern bestätigen. Diesen Klick kann ich doch bestimmt auch automatisieren, oder nicht.

Anbei der Code:

With Application.FileDialog(msoFileDialogFolderPicker)

.AllowMultiSelect = False

.ButtonName = "Antrag OK"

.InitialFileName = Pfad

.Title = "Ordner auswählen"

.Show

If .SelectedItems.Count = 1 Then _

ThisWorkbook.SaveAs .SelectedItems(1) & "\" & Tabelle1.Range("D3").Value & _

"-" & Tabelle1.Range("E9").Value & "-" & Tabelle1.Range("J4").Value & " bis " & Tabelle1.Range("L4").Value & "-Erstellt " & Format(Date, "dd.mm.yyyy") & ".xls"

'ActiveWorkbook.Save SelectedItems

MsgBox ("Antrag wurde gespeichert " & .SelectedItems(1) & "")

End With

Vielen Dank im Voraus!

AHNUNG?

Mit deinem Code forderst du Excel doch explizit auf, die Datei mit einem "Speichern unter"-Fenster zu speichern (With Application.FileDialog(...)?