Office: Excel "speichern unter" Fenster öffnen

Hallo,

ich habe mit VBA eine Excel-Datei geöffnet. Der Benutzer kann sich aber die Tabelle selbst aussuchen und zwar sieht der Code dafür wie folgt aus

'Benutzer wählt ExcelTabelle in Ordner aus
Dim objFiledialog As FileDialog

Set objFiledialog = _
Application.FileDialog(msoFileDialogOpen)

With objFiledialog

.AllowMultiSelect = False

MsgBox "Bitte wählen Sie die Excel-Datei aus, welche Sie vergleichen möchten."

If .Show = True Then
DateiAuswaehlen = .SelectedItems(1)
MsgBox ("Sie haben folgende Datei ausgewählt: " & DateiAuswaehlen)
Dim w As String
w = CStr(DateiAuswaehlen)

End If

End With

Set objFiledialog = Nothing


Nachdem die Excel-Datei verändert wurde möchte ich sie gerne schließen und unter einem anderen Namen abspeichern. Dafür soll der Benutzer den Ort und den Namen selbst bestimmen können. Also ich möchte wieder ein Fenster öffnen, so dass der Benutzer es selbst abspeichern kann. Wie mache ich das?


Vielen Dank für eure Hilfe!

:)

 

Versuch mal das:
Code:

 

Ja das Fenster wird damit geöffnet, vielen Dank!

Wenn ich jedoch auf "Speichern" drücke, dann geht es nicht mehr weiter, dann muss ich mein Programm beenden?


(Ich habe .FilterIndex = 2 rausgenommen)

 

Du kannst versuchen am Ende noch das hier hinzuzufügen:

Code:

oder Code:

Sowie Excel Schließen: ( Vorsicht - Schließt dir Excel ohne Rückfrage - egal wieviele Dateien noch offen sind)
Code: