und zwar möchte ich aus den VAB d.h. mit dem Makro die Befehlsschaltfläche speichern unter öffnen
zur eiläuterung ich drücke einen Butten und das Dialogfenster "Speichern unter soll sich öffnen"
und zwar möchte ich aus den VAB d.h. mit dem Makro die Befehlsschaltfläche speichern unter öffnen
zur eiläuterung ich drücke einen Butten und das Dialogfenster "Speichern unter soll sich öffnen"
der Befehl dazu lautet so:
Application.Dialogs(xlDialogSaveAs).Show
Viel Spaß,
Andreas
Um das "Speichern unter"-Fenster mit einem Excel-Makro zu öffnen, folge diesen Schritten:
Öffne Excel und drücke ALT + F11
, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu: Klicke im Menü auf Einfügen
und wähle Modul
.
Kopiere den folgenden Code in das Modul:
Sub SpeichernUnter()
Application.Dialogs(xlDialogSaveAs).Show
End Sub
Schließe den VBA-Editor und kehre zu Excel zurück.
Füge eine Schaltfläche hinzu: Gehe zu Entwicklertools
, klicke auf Einfügen
und wähle eine Schaltfläche (Formularsteuerelement)
.
Weise das Makro zu: Rechtsklicke auf die Schaltfläche und wähle Makro zuweisen
. Wähle SpeichernUnter
aus und klicke auf OK
.
Teste das Makro: Klicke auf die Schaltfläche, um das "Speichern unter"-Fenster zu öffnen.
Fehler: Das Makro wird nicht ausgeführt
Datei
→ Optionen
→ Sicherheitscenter
→ Einstellungen für das Sicherheitscenter
und aktiviere die Makros.Fehler: Das Dialogfenster öffnet sich nicht
Falls Du das "Speichern unter"-Fenster nicht über ein Makro öffnen möchtest, kannst Du auch die Tastenkombination F12
verwenden, um das Dialogfenster direkt anzuzeigen. Diese Methode ist besonders nützlich, wenn Du schnell arbeiten möchtest, ohne ein Makro zu verwenden.
Hier ist ein einfaches Beispiel, wie Du das Makro in einem größeren Projekt verwenden kannst. Angenommen, Du hast ein Arbeitsblatt mit Daten, die regelmäßig gespeichert werden müssen. Du kannst das oben genannte Makro nutzen, um sicherzustellen, dass die Daten immer unter einem neuen Namen gespeichert werden, ohne dass Du manuell navigieren musst.
Sub SpeichernUnterMitBestätigung()
If MsgBox("Möchtest Du die Datei speichern?", vbYesNo) = vbYes Then
Application.Dialogs(xlDialogSaveAs).Show
End If
End Sub
Dieses Beispiel fragt den Benutzer, ob er die Datei speichern möchte, bevor das "Speichern unter"-Fenster geöffnet wird.
1. Wie kann ich das Makro auf eine andere Schaltfläche anwenden?
Du kannst das Makro einfach einer anderen Schaltfläche zuweisen, indem Du mit der rechten Maustaste auf die Schaltfläche klickst und Makro zuweisen
auswählst.
2. Funktioniert dieses Makro in allen Excel-Versionen?
Ja, das Makro sollte in den meisten modernen Excel-Versionen funktionieren, die VBA unterstützen.
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