Gruß Hajo
da haben wir uns schon zu zweit einen Kopf gemacht und es kommt keine Rückmeldung, es schien wohl nicht so wichtig.
Gruß Hajo
Um den "Speichern Unter"-Dialog in Excel VBA aufzurufen, kannst du den folgenden Befehl verwenden:
Application.Dialogs(xlDialogSaveAs).ShowFüge diesen Code in ein VBA-Modul ein und führe ihn aus. Dadurch wird der Dialog geöffnet, und du kannst den gewünschten Speicherort und Dateinamen auswählen.
Fehler 1: Dialog öffnet sich nicht
Fehler 2: Code wird nicht erkannt
Eine alternative Methode, um den "Speichern Unter"-Dialog zu öffnen, ist die Verwendung von SaveAs. Hierbei wird der Dialog ebenfalls angezeigt:
ActiveWorkbook.SaveAsDiese Methode hat den Vorteil, dass du direkt im Code die Möglichkeit hast, Parameter wie Dateiformat und Pfad anzupassen.
Hier ist ein einfaches Beispiel, wie du den "Speichern Unter"-Dialog in einer Excel-Anwendung verwenden kannst:
Sub SpeichernUnter()
Dim wb As Workbook
Set wb = ActiveWorkbook
Application.Dialogs(xlDialogSaveAs).Show
End SubMit diesem Makro wird der Dialog aufgerufen, und du kannst die Datei unter einem neuen Namen speichern.
Application.DisplayAlerts = False, um unerwünschte Bestätigungsfenster zu deaktivieren, wenn du mehrere Dateien hintereinander speichern möchtest.SaveAs-Befehl, um die Kompatibilität mit anderen Programmen zu gewährleisten.1. Wie kann ich den Dialog automatisch mit einem vorgegebenen Dateinamen öffnen?
Du kannst den gewünschten Dateinamen als Parameter im SaveAs-Befehl angeben, jedoch wird der Dialog dann nicht mehr angezeigt.
2. Funktioniert dieser Befehl in allen Excel-Versionen?
Ja, der Befehl Application.Dialogs(xlDialogSaveAs).Show funktioniert in Excel ab Version 2000. Achte darauf, dass die VBA-Umgebung korrekt eingerichtet ist.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen