Wie kann man eine Excel-Datei per Makro mit 'Speichern unter' speichern?

Antwort vom

Um eine Excel-Datei per Makro „Speichern unter“ auszuführen, kannst du folgenden VBA-Code verwenden. Damit öffnet sich der „Speichern unter“-Dialog, und der Benutzer kann den Speicherort und Dateinamen auswählen: ```vba Sub SpeichernUnter() Dim Dateiname As Variant Dateiname = Application.GetSaveAsFilename( _ InitialFileName:=ThisWorkbook.Name, _ FileFilter:="Excel-Arbeitsmappe (*.xlsx), *.xlsx") If Dateiname <> False Then ThisWorkbook.SaveAs Filename:=Dateiname, FileFormat:=xlOpenXMLWorkbook End If End Sub ``` **So funktioniert der Code:** - `Application.GetSaveAsFilename` öffnet den Dialog „Speichern unter“. - Der Benutzer kann einen Dateinamen und Speicherort wählen. - Wenn der Benutzer auf „Abbrechen“ klickt, passiert nichts. - Ansonsten wird die Datei unter dem gewählten Namen und Ort gespeichert. **Hinweis:** Der Code speichert die Datei im `.xlsx`-Format. Für andere Formate kann der `FileFormat`-Parameter angepasst werden. **Einfügen des Makros:** 1. In Excel `ALT + F11` drücken, um den VBA-Editor zu öffnen. 2. Im Projektfenster das gewünschte Workbook auswählen. 3. Über `Einfügen > Modul` ein neues Modul erstellen. 4. Den Code einfügen und speichern. Weitere Infos zu VBA findest du z.B. auf [Microsoft Learn](https://learn.microsoft.com/de-de/office/vba/api/overview/excel).

Kategorie: Software Tags: Excel Makro Speichern

Verwandte Fragen

Wie kann ich mit einem Excel-Makro alle Blätter einer Datei ausblenden, außer dem Blatt 'Anfang'?

Um in Excel per Makro (VBA) alle Blätter außer dem Blatt "Anfang" auszublenden, kannst du folgenden VBA-Code verwenden: vba Sub AlleBlätterAusblendenAußerAnfang() Dim...

Wie kann man ein Excel-Blatt per Makro aus- und einblenden?

Um in Excel per Makro (VBA) ein Arbeitsblatt auszublenden oder einzublenden, kannst du folgenden VBA-Code verwenden: Blatt ausblenden: vba Sub BlattAusblenden() Worksheets("Blattname").Vis...

Sollte man für die Platzierung der Balken in einem Gantt-Diagramm mit Excel-Makro cm in pt im Arbeitsblatt oder im Makro umrechnen?

Es ist grundsätzlich empfehlenswert, die Umrechnung von Zentimetern (cm) in Punkt (pt) direkt im Makro vorzunehmen, nicht im Arbeitsblatt. Dafür sprechen folgende Gründe: 1. Flexibilit...

Wie kann man mit einem Excel-Makro ein Rechteck in der Standardfarbe Orange (Farbcode 49407) ausfüllen?

Um in Excel per Makro (VBA) ein Rechteck mit der Standardfarbe Orange (Farbcode 49407) auszufüllen, kannst du folgenden VBA-Code verwenden: vba Sub RechteckOrangeFüllen() Dim shp As Shape...

Wie beende ich ein Excel-Makro nach einer MsgBox mit vbYesNo bei Nein per Exit Sub, während es bei Ja fortgesetzt wird?

Das kannst du mit einer einfachen If-Abfrage umsetzen. Beispiel: vba If MsgBox("Möchtest du fortfahren", vbYesNo + vbQuestion, "Bestätigung") = vbNo Then Exit Sub End I...

Wie ruft man ein Excel-Makro mit Call auf und übergibt einen Wert?

Um in Excel VBA (Makros) eine Prozedur mit Call aufzurufen und dabei einen Wert zu übergeben, gehst du wie folgt vor: Beispiel: 1. Prozedur mit Parameter definieren: vba Sub ZeigeWert(ByVal m...

Kann ein Excel-Makro die Funktion "Direkte Zellbearbeitung zulassen" ein- und ausschalten?

Nein, ein Excel-Makro (VBA) kann die Option „Direkte Zellbearbeitung zulassen“ nicht direkt ein- oder ausschalten. Diese Einstellung befindet sich unter Datei > Optionen > Erweitert...

Wirken sich Application.OnKey und Application.CommandBars auf andere geöffnete Excel-Dateien aus?

Ja, sowohl Application.OnKey als auch Application.CommandBars wirken sich auf die gesamte Excel-Anwendung aus – und damit auf alle geöffneten Arbeitsmappen (Excel-Dateien) in dieser Instanz...

Kann man das Excel-Makro 'Workbook_SheetBeforeRightClick' ohne Neustart aufheben?

Ja, du kannst das Excel-Makro Private Sub WorkbookSheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) ohne Neustart von Excel "aufheben" bzw. deaktivieren, in...

Wie kann ich mit einem Excel-Makro die Zeile 22 ausblenden?

Um in Excel per Makro (VBA) die Zeile 22 auszublenden, kannst du folgenden VBA-Code verwenden: vba Rows(22).Hidden = True So gehst du vor: 1. Drücke ALT + F11, um den VBA-Editor zu öffne...