Wie speichere ich mit einem Excel-Makro die aktuelle Datei unter einem neuen Namen im gleichen Verzeichnis?

Question

Wie speichere ich mit einem Excel-Makro die aktuelle Datei unter einem neuen Namen im gleichen Verzeichnis?

Antwort

Verwandte Fragen

Wie kann ich in Excel 2021 per Makro den "Speichern unter"-Dialog aufrufen, um Dateiname, Speicherort und Dateiformat (xlsm) auszuwählen?

Warum funktioniert das Excel-Makro mit Dim zeilen as String, Choose und Rows(zeilen).Hidden = True nicht?

Wie kann ein Excel-Makro in allen Blättern, auch ausgeblendeten, das Gitternetz ausblenden?

Wie kann man mit einem Excel-Makro in allen Blättern Gitternetzlinien und Überschriften ausblenden?

Wie übergibt man zwei Variablen von einem Excel-Makro an ein anderes?

Gilt Application.ScreenUpdating=false auch für aufgerufene Makros in Excel?

Wie prüfe ich in einem Excel-Makro, ob das aktive Blatt Sheets("Projekt") ist?

Warum tritt Fehler 400 auf, wenn ein Excel-Makro per Button gestartet wird, obwohl es schrittweise mit F8 funktioniert?

Wie kann ein Nutzer beim Speichern einer Excel-Datei unter neuem Namen einen Dateinamen eingeben?

Kann ein Excel-Makro in ausgeblendeten Blättern Zeilen oder Spalten ein- und ausblenden oder Zellen bzw. Bereiche löschen?

Accepted Answer

Um die aktuelle Excel-Datei per Makro (VBA) unter einem neuen Namen im gleichen Verzeichnis zu speichern, kannst du folgenden VBA-Code verwenden: ```vba Sub SpeichernUnterNeuemNamen() Dim pfad As String Dim neuerName As String ' Aktuellen Pfad der Datei ermitteln pfad = ThisWorkbook.Path ' Neuen Dateinamen festlegen (hier Beispiel: "_Kopie" anhängen) neuerName = pfad & "\" & "NeuerDateiname.xlsx" ' Passe den Namen an ' Arbeitsmappe unter neuem Namen speichern ThisWorkbook.SaveCopyAs neuerName MsgBox "Datei wurde als '" & neuerName & "' gespeichert." End Sub ``` **Hinweise:** - Ersetze `"NeuerDateiname.xlsx"` durch den gewünschten neuen Dateinamen. - Die Methode `SaveCopyAs` speichert eine Kopie der Datei, ohne die aktuelle Arbeitsmappe umzubenennen oder zu schließen. - Der Code speichert die Datei im gleichen Verzeichnis wie die Originaldatei. **So fügst du das Makro ein:** 1. Drücke `ALT + F11`, um den VBA-Editor zu öffnen. 2. Wähle im Projektfenster die gewünschte Arbeitsmappe aus. 3. Füge ein neues Modul ein (`Einfügen > Modul`). 4. Kopiere den obigen Code hinein. 5. Schließe den Editor und führe das Makro aus (`ALT + F8`). Weitere Infos zu VBA findest du z.B. bei [Microsoft](https://learn.microsoft.com/de-de/office/vba/api/overview/excel).

Accepted Answer

Um in Excel 2021 per Makro den „Speichern unter“-Dialog zu öffnen, sodass der Benutzer Dateiname, Speicherort und das Dateiformat `.xlsm` wählen kann, eignet sich der Befehl `App... [mehr]

Accepted Answer

Um in Excel 2021 per Makro den „Speichern unter“-Dialog zu öffnen, sodass der Benutzer Dateiname, Speicherort und das Dateiformat `.xlsm` wählen kann, eignet sich der Befehl `Application.GetSaveAsFilename`. Damit wird ein Dialog angezeigt, und du kannst das gewünschte Dateiformat vorgeben. Das eigentliche Speichern erfolgt dann mit `ActiveWorkbook.SaveAs`. Hier ein Beispiel-Makro: ```vba Sub SpeichernUnterXLSM() Dim Dateipfad As Variant ' Dialog anzeigen, Filter auf .xlsm setzen Dateipfad = Application.GetSaveAsFilename( _ InitialFileName:="", _ FileFilter:="Excel-Arbeitsmappe mit Makros (*.xlsm), *.xlsm", _ Title:="Speichern unter") ' Prüfen, ob der Benutzer abgebrochen hat If Dateipfad = False Then Exit Sub ' Arbeitsmappe als .xlsm speichern ActiveWorkbook.SaveAs Filename:=Dateipfad, FileFormat:=xlOpenXMLWorkbookMacroEnabled End Sub ``` **Hinweise:** - Der Benutzer kann im Dialog Dateiname und Speicherort frei wählen. - Das Dateiformat ist auf `.xlsm` voreingestellt. - Das Makro prüft, ob der Benutzer den Dialog abgebrochen hat. - Weitere Infos zu `GetSaveAsFilename`: [Microsoft-Dokumentation](https://learn.microsoft.com/de-de/office/vba/api/excel.application.getsaveasfilename) Dieses Makro kannst du im VBA-Editor (ALT+F11) in ein Modul einfügen und ausführen.

Accepted Answer

Der Fehler liegt daran, dass du die Variable `zeilen` als `String` deklarierst, aber die Funktion `Rows(zeilen).Hidden = True` einen Bereich erwartet, der als Zeilenreferenz interpretiert werden kann.... [mehr]

Accepted Answer

Der Fehler liegt daran, dass du die Variable `zeilen` als `String` deklarierst, aber die Funktion `Rows(zeilen).Hidden = True` einen Bereich erwartet, der als Zeilenreferenz interpretiert werden kann. Das ist grundsätzlich korrekt, aber es gibt ein Problem mit der Initialisierung von `i` und der Verwendung von `Choose`. Hier ein Beispiel, wie es korrekt funktioniert: ```vba Sub ZeilenAusblenden() Dim zeilen As String Dim i As Integer i = 2 zeilen = Choose(i, "8:11", "9:11") Rows(zeilen).Hidden = True End Sub ``` **Mögliche Fehlerquellen:** 1. **Variable i nicht deklariert:** Du solltest `i` als `Integer` deklarieren. 2. **Makro nicht in einer Sub:** Der Code muss in einer Sub-Prozedur stehen. 3. **Falscher Wert für i:** `Choose(i, ...)` gibt bei `i=2` den zweiten Wert zurück, also `"9:11"`. 4. **Bereich existiert nicht:** Stelle sicher, dass die Zeilen 9 bis 11 in deinem Arbeitsblatt existieren. **So sollte es aussehen:** ```vba Sub ZeilenAusblenden() Dim zeilen As String Dim i As Integer i = 2 zeilen = Choose(i, "8:11", "9:11") Rows(zeilen).Hidden = True End Sub ``` **Hinweis:** Wenn du das Makro in einem Modul speicherst und ausführst, sollte es funktionieren, sofern die Zeilen im Arbeitsblatt vorhanden sind. **Weitere Infos zu VBA:** [Microsoft VBA-Dokumentation](https://learn.microsoft.com/de-de/office/vba/api/overview/excel) Falls weiterhin ein Fehler auftritt, gib bitte die genaue Fehlermeldung an.

Accepted Answer

Um in allen Arbeitsblättern einer Excel-Arbeitsmappe – auch in ausgeblendeten – das Gitternetz auszublenden, kannst du folgendes VBA-Makro verwenden: ```vba Sub GitternetzInAllenBlae... [mehr]

Accepted Answer

Um in allen Arbeitsblättern einer Excel-Arbeitsmappe – auch in ausgeblendeten – das Gitternetz auszublenden, kannst du folgendes VBA-Makro verwenden: ```vba Sub GitternetzInAllenBlaetternAusblenden() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Visible = xlSheetVisible ' Blatt einblenden, falls ausgeblendet ws.Activate ActiveWindow.DisplayGridlines = False ws.Visible = xlSheetVisible Or ws.Visible ' Ursprünglichen Zustand beibehalten (optional) Next ws End Sub ``` **Hinweise:** - Das Makro blendet das Gitternetz für jedes Blatt aus, indem es das Blatt aktiviert und `ActiveWindow.DisplayGridlines = False` setzt. - In Excel ist die Einstellung „Gitternetzlinien anzeigen“ fensterbezogen, nicht blattbezogen. Das bedeutet: Die Einstellung gilt immer für das aktuell angezeigte Fenster/Blatt. Wenn du mehrere Fenster geöffnet hast, musst du das Makro ggf. in jedem Fenster ausführen. - Das Makro blendet ausgeblendete Blätter kurz ein, um die Einstellung zu setzen. Wenn du die Blätter nachher wieder ausblenden möchtest, musst du den ursprünglichen Sichtbarkeitsstatus speichern und wiederherstellen. **So fügst du das Makro ein:** 1. Drücke `ALT + F11`, um den VBA-Editor zu öffnen. 2. Wähle „Einfügen“ > „Modul“. 3. Füge den obigen Code ein. 4. Schließe den Editor und führe das Makro aus (`ALT + F8`). Weitere Infos zu Excel VBA findest du z.B. auf [Microsoft Learn](https://learn.microsoft.com/de-de/office/vba/api/overview/excel).

Accepted Answer

Hier ist ein VBA-Makro, das in allen Arbeitsblättern einer Excel-Arbeitsmappe sowohl die Gitternetzlinien als auch die Überschriften (Zeilen- und Spaltenköpfe) ausblendet: ```vba Sub G... [mehr]

Accepted Answer

Hier ist ein VBA-Makro, das in allen Arbeitsblättern einer Excel-Arbeitsmappe sowohl die Gitternetzlinien als auch die Überschriften (Zeilen- und Spaltenköpfe) ausblendet: ```vba Sub GitternetzUndUeberschriftenAusblenden() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Activate ActiveWindow.DisplayGridlines = False ActiveWindow.DisplayHeadings = False Next ws End Sub ``` **Anleitung zur Verwendung:** 1. Drücke `ALT + F11`, um den VBA-Editor zu öffnen. 2. Wähle im Projekt-Explorer deine Arbeitsmappe aus. 3. Klicke auf `Einfügen > Modul`, um ein neues Modul zu erstellen. 4. Füge den obigen Code in das Modul ein. 5. Schließe den VBA-Editor. 6. Starte das Makro über `ALT + F8` und wähle `GitternetzUndUeberschriftenAusblenden` aus. **Hinweis:** Das Makro wirkt sich auf alle Arbeitsblätter der aktuellen Arbeitsmappe aus. Weitere Informationen zu Excel VBA findest du auf der offiziellen Microsoft-Seite: https://learn.microsoft.com/de-de/office/vba/api/overview/excel

Accepted Answer

Um zwei Variablen von einem Excel-Makro an ein anderes zu übergeben, gibt es mehrere Möglichkeiten. Die gängigste und sauberste Methode ist, das zweite Makro als **Sub** oder **Function... [mehr]

Accepted Answer

Um zwei Variablen von einem Excel-Makro an ein anderes zu übergeben, gibt es mehrere Möglichkeiten. Die gängigste und sauberste Methode ist, das zweite Makro als **Sub** oder **Function** mit Parametern zu definieren und die Variablen beim Aufruf zu übergeben. **Beispiel:** ```vba Sub Makro1() Dim var1 As String Dim var2 As Integer var1 = "Hallo" var2 = 42 Call Makro2(var1, var2) End Sub Sub Makro2(ByVal text As String, ByVal zahl As Integer) MsgBox "Text: " & text & vbCrLf & "Zahl: " & zahl End Sub ``` **Erklärung:** - `Makro1` definiert zwei Variablen und ruft `Makro2` auf, wobei die Variablen als Argumente übergeben werden. - `Makro2` nimmt die Werte als Parameter entgegen und kann sie weiterverarbeiten. **Alternativen:** - Du kannst auch **globale Variablen** (mit `Public` im Modulkopf) verwenden, aber das ist weniger empfehlenswert, da es zu unerwarteten Nebeneffekten führen kann. **Weitere Infos:** - [Microsoft: Sub procedures (VBA)](https://learn.microsoft.com/de-de/office/vba/language/reference/user-interface-help/sub-statement) - [Microsoft: Passing Arguments to Procedures (VBA)](https://learn.microsoft.com/de-de/office/vba/language/concepts/getting-started/passing-arguments-to-procedures) Diese Methode ist übersichtlich und entspricht den Best Practices in VBA.

Accepted Answer

Ja, der Befehl `Application.ScreenUpdating = False` gilt global für die gesamte Excel-Anwendung und damit auch für alle Makros, die danach ausgeführt werden – unabhängig davo... [mehr]

Accepted Answer

Ja, der Befehl `Application.ScreenUpdating = False` gilt global für die gesamte Excel-Anwendung und damit auch für alle Makros, die danach ausgeführt werden – unabhängig davon, welches Makro ihn gesetzt hat. Das bedeutet: Wenn ein Makro `Application.ScreenUpdating = False` setzt und dann ein anderes Makro aufruft (z.B. per `Call AnderesMakro` oder durch einen Funktionsaufruf), bleibt das ScreenUpdating so lange deaktiviert, bis es explizit wieder auf `True` gesetzt wird. Das gilt für alle nachfolgenden Makros und auch für alle Aktionen, die währenddessen in Excel ausgeführt werden. **Wichtig:** Vergiss nicht, am Ende deiner Makros `Application.ScreenUpdating = True` zu setzen, damit Excel wieder normal aktualisiert wird. **Weitere Infos:** [Microsoft Dokumentation zu Application.ScreenUpdating](https://learn.microsoft.com/de-de/office/vba/api/excel.application.screenupdating)

Accepted Answer

Um in einem Excel-Makro (VBA) zu prüfen, ob das aktive Blatt das Blatt mit dem Namen "Projekt" ist, kannst du folgenden Code verwenden: ```vba If ActiveSheet.Name = "Projekt"... [mehr]

Accepted Answer

Um in einem Excel-Makro (VBA) zu prüfen, ob das aktive Blatt das Blatt mit dem Namen "Projekt" ist, kannst du folgenden Code verwenden: ```vba If ActiveSheet.Name = "Projekt" Then ' Das aktive Blatt ist "Projekt" MsgBox "Das aktive Blatt ist 'Projekt'." Else ' Das aktive Blatt ist nicht "Projekt" MsgBox "Das aktive Blatt ist nicht 'Projekt'." End If ``` **Erklärung:** - `ActiveSheet.Name` gibt den Namen des aktuell aktiven Arbeitsblatts zurück. - Der Vergleich `= "Projekt"` prüft, ob es sich um das gewünschte Blatt handelt. Du kannst anstelle der `MsgBox` natürlich auch beliebigen anderen Code einfügen, der ausgeführt werden soll, wenn das aktive Blatt "Projekt" ist.

Accepted Answer

Der Fehler 400 in Excel-Makros ist ein allgemeiner Laufzeitfehler, der oft auftritt, wenn etwas im Code nicht wie erwartet funktioniert. Dass der Fehler nur beim Starten über den Button und nicht... [mehr]

Accepted Answer

Der Fehler 400 in Excel-Makros ist ein allgemeiner Laufzeitfehler, der oft auftritt, wenn etwas im Code nicht wie erwartet funktioniert. Dass der Fehler nur beim Starten über den Button und nicht beim schrittweisen Ausführen mit F8 auftritt, deutet meist auf einen Unterschied im Kontext oder in den Voraussetzungen hin. Hier sind die häufigsten Ursachen und Lösungsansätze: **1. Fehlende oder falsche Auswahl (Selection/ActiveCell):** Beim Ausführen mit F8 ist oft die richtige Zelle oder das richtige Blatt aktiv. Beim Start über den Button kann das anders sein. Prüfe, ob dein Makro mit `Selection`, `ActiveCell` oder ähnlichen Objekten arbeitet. **Lösung:** Arbeite möglichst mit expliziten Verweisen wie `Worksheets("Tabelle1").Range("A1")` statt mit `Selection`. **2. Arbeitsblatt nicht aktiv:** Wenn dein Makro auf ein bestimmtes Blatt zugreift, stelle sicher, dass dieses Blatt auch aktiviert wird, bevor du darauf zugreifst. **Beispiel:** ```vba Worksheets("Tabelle1").Activate Range("A1").Value = "Test" ``` **3. Button ist ein ActiveX- oder Formularsteuerelement:** Je nach Typ des Buttons kann der Kontext unterschiedlich sein. Prüfe, ob der Code im richtigen Modul (z.B. in einem normalen Modul, nicht im Tabellenblatt-Modul) liegt. **4. Fehlerbehandlung:** Füge am Anfang deines Makros eine Fehlerbehandlung ein, um die genaue Fehlerzeile zu finden: ```vba On Error GoTo Fehler ' ... dein Code ... Exit Sub Fehler: MsgBox "Fehler in Zeile: " & Erl & vbCrLf & Err.Description ``` **5. Übergabeparameter:** Wenn dein Makro Parameter erwartet, der Button aber keine übergibt, kann das zu Fehlern führen. **6. Geschützte Blätter oder Zellen:** Wenn das Arbeitsblatt oder bestimmte Zellen geschützt sind, kann das Makro beim Schreiben/Ändern einen Fehler verursachen. **Fazit:** Überprüfe deinen Code auf die oben genannten Punkte. Besonders häufig ist der Fehler bei der Verwendung von `Selection` oder `ActiveCell`. Wenn du möchtest, kannst du den relevanten Codeabschnitt posten (ohne Aufforderung), dann kann gezielter geholfen werden. Weitere Infos zu Fehler 400 findest du auch bei Microsoft: [https://learn.microsoft.com/de-de/office/vba/language/reference/user-interface-help/error-400](https://learn.microsoft.com/de-de/office/vba/language/reference/user-interface-help/error-400)

Accepted Answer

Um in Excel den neuen Dateinamen vom Benutzer abzufragen, kannst du ein sogenanntes **InputBox**-Dialogfeld in VBA (Visual Basic for Applications) verwenden. Damit kann der Benutzer einen Namen eingeb... [mehr]

Accepted Answer

Um in Excel den neuen Dateinamen vom Benutzer abzufragen, kannst du ein sogenanntes **InputBox**-Dialogfeld in VBA (Visual Basic for Applications) verwenden. Damit kann der Benutzer einen Namen eingeben, der dann zum Speichern der Datei verwendet wird. Hier ein Beispiel für einen VBA-Code: ```vba Sub SpeichernUnterMitEingabe() Dim dateiname As String dateiname = InputBox("Bitte gib den neuen Dateinamen ein:", "Datei speichern unter") If dateiname <> "" Then ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & dateiname & ".xlsx" Else MsgBox "Speichern abgebrochen." End If End Sub ``` **So funktioniert es:** 1. Es erscheint ein Eingabefeld (InputBox), in das der Benutzer den neuen Dateinamen eingibt. 2. Wenn ein Name eingegeben wird, wird die Datei unter diesem Namen im aktuellen Ordner gespeichert. 3. Wenn nichts eingegeben wird, erscheint eine Abbruchmeldung. **Hinweis:** - Der Code muss im VBA-Editor (Alt + F11) in ein Modul eingefügt werden. - Der Benutzer muss ggf. Makros aktivieren. Weitere Infos zu InputBox findest du hier: [Microsoft InputBox-Funktion](https://learn.microsoft.com/de-de/office/vba/language/reference/user-interface-help/inputbox-function)

Accepted Answer

Ja, ein Excel-Makro (VBA-Code) kann auch in ausgeblendeten Blättern Zeilen oder Spalten ein- und ausblenden sowie Zellen oder Bereiche löschen. Das Makro kann auf alle Arbeitsblätter zu... [mehr]

Accepted Answer

Ja, ein Excel-Makro (VBA-Code) kann auch in ausgeblendeten Blättern Zeilen oder Spalten ein- und ausblenden sowie Zellen oder Bereiche löschen. Das Makro kann auf alle Arbeitsblätter zugreifen, unabhängig davon, ob sie gerade sichtbar sind oder nicht. Beispiel: Ein Makro kann ein ausgeblendetes Blatt wie folgt ansprechen und dort Änderungen vornehmen: ```vba Sub BeispielMakro() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("AusgeblendetesBlatt") ' Zeile 5 ausblenden ws.Rows(5).Hidden = True ' Spalte B einblenden ws.Columns("B").Hidden = False ' Bereich A1:B10 löschen ws.Range("A1:B10").ClearContents End Sub ``` Das Blatt muss dafür nicht eingeblendet werden. Nur für Aktionen, die eine Interaktion mit dem Benutzer erfordern (z.B. Auswählen von Zellen im ausgeblendeten Blatt), müsste das Blatt sichtbar sein. Weitere Infos zu Excel VBA findest du z.B. bei [Microsoft Learn](https://learn.microsoft.com/de-de/office/vba/api/overview/excel).