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

Question

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

Antwort

Verwandte Fragen

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

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

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

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

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

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

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

Wie schreibt man ein Excel-Makro, das bei einem Fehler eine MsgBox anzeigt und danach Exit Sub ausführt?

Wie erstelle ich ein Makro, das eine Excel-Datei über den Speichern-unter-Dialog im XLSM-Format speichert?

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

Accepted Answer

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 ' Erstes Rechteck auf dem aktiven Blatt auswählen (ggf. anpassen) Set shp = ActiveSheet.Shapes(1) ' Füllfarbe auf Orange (Farbcode 49407) setzen shp.Fill.ForeColor.RGB = 49407 End Sub ``` **Hinweise:** - Der Code setzt voraus, dass bereits ein Rechteck (AutoForm) auf dem aktiven Arbeitsblatt vorhanden ist. - `ActiveSheet.Shapes(1)` bezieht sich auf das erste Shape auf dem Blatt. Falls du ein bestimmtes Rechteck meinst, kannst du es auch mit dem Namen ansprechen, z.B. `ActiveSheet.Shapes("Rechteck 1")`. - Der Farbcode 49407 entspricht dem RGB-Wert `RGB(255, 192, 0)` (Standard-Orange in Excel). **So gehst du vor:** 1. Drücke `ALT + F11`, um den VBA-Editor zu öffnen. 2. Füge ein neues Modul ein. 3. Kopiere den obigen Code hinein. 4. Führe das Makro aus. Weitere Infos zu Shapes in Excel findest du z.B. bei Microsoft: https://learn.microsoft.com/de-de/office/vba/api/excel.shape

Accepted Answer

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. **Flexibil... [mehr]

Accepted Answer

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ät:** Das Makro kann so auf unterschiedliche Maßeinheiten und Einstellungen reagieren, ohne dass du das Arbeitsblatt anpassen musst. 2. **Automatisierung:** Die Umrechnung im Makro ermöglicht eine vollständig automatisierte Erstellung und Platzierung der Balken, ohne dass Zwischenschritte im Arbeitsblatt nötig sind. 3. **Fehlervermeidung:** Die Umrechnung im Makro reduziert das Risiko von Rundungsfehlern oder falschen Zellformatierungen im Arbeitsblatt. **Hinweis zur Umrechnung:** 1 cm = 28,3465 pt (Punkt). Excel verwendet intern oft Punkt (pt) für Maße wie Spaltenbreite und Zeilenhöhe. **Fazit:** Die Umrechnung sollte im Makro erfolgen, um die Platzierung der Balken im Gantt-Diagramm präzise und effizient zu steuern.

Accepted Answer

Das kannst du mit einer einfachen If-Abfrage umsetzen. Beispiel: ```vba If MsgBox("Möchtest du fortfahren?", vbYesNo + vbQuestion, "Bestätigung") = vbNo Then Exit Su... [mehr]

Accepted Answer

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 If ' Hier geht das Makro weiter... ``` **Erklärung:** - Die `MsgBox` gibt entweder `vbYes` oder `vbNo` zurück. - Bei `vbNo` wird das Makro mit `Exit Sub` beendet. - Bei `vbYes` läuft das Makro normal weiter. Weitere Infos zur MsgBox-Funktion findest du bei Microsoft: [https://learn.microsoft.com/de-de/office/vba/language/reference/user-interface-help/msgbox-function](https://learn.microsoft.com/de-de/office/vba/language/reference/user-interface-help/msgbox-function)

Accepted Answer

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... [mehr]

Accepted Answer

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 meinWert As Integer) MsgBox "Der übergebene Wert ist: " & meinWert End Sub ``` 2. **Aufruf mit `Call` und Wertübergabe:** ```vba Sub StarteMakro() Call ZeigeWert(42) End Sub ``` Oder ohne `Call` (ist optional): ```vba Sub StarteMakro() ZeigeWert 42 End Sub ``` **Hinweise:** - `Call` ist in VBA optional und wird meist aus Kompatibilitätsgründen verwendet. - Wenn du `Call` verwendest, müssen die Parameter in Klammern stehen: `Call ZeigeWert(42)` - Ohne `Call` keine Klammern: `ZeigeWert 42` **Weitere Infos:** [Microsoft Dokumentation zu Call](https://learn.microsoft.com/de-de/office/vba/language/reference/user-interface-help/call-statement) So kannst du Werte an Makros übergeben und sie mit `Call` aufrufen.

Accepted Answer

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

Accepted Answer

Nein, ein Excel-Makro (VBA) kann die Option „Direkte Zellbearbeitung zulassen“ nicht direkt ein- oder ausschalten. Diese Einstellung befindet sich unter **Datei > Optionen > Erweitert > Direkte Zellbearbeitung zulassen** und ist eine anwendungsweite Benutzereinstellung, die nicht über VBA angesprochen werden kann. Es gibt keinen VBA-Befehl oder eine Eigenschaft im Objektmodell von Excel, um diese Option zu ändern. Die Einstellung kann nur manuell über die Excel-Optionen geändert werden. Ein Makro kann also nicht automatisiert diese Funktion ein- oder ausschalten.

Accepted Answer

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... [mehr]

Accepted Answer

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 von Excel. **Details:** - **Application.OnKey:** Mit dieser Methode wird das Verhalten von Tastenkombinationen global für die gesamte Excel-Anwendung geändert. Wenn du z.B. mit `Application.OnKey "^s", "MeinMakro"` eine Tastenkombination belegst, gilt das für alle geöffneten Arbeitsmappen, nicht nur für die, in der das Makro ausgeführt wurde. - **Application.CommandBars:** Änderungen an CommandBars (z.B. Hinzufügen, Entfernen oder Anpassen von Symbolleisten oder Menüs) wirken sich ebenfalls auf die gesamte Excel-Oberfläche aus. Auch hier sind alle geöffneten Dateien betroffen. **Fazit:** Beide Methoden sind **anwendungsweit** (application-wide) und nicht auf eine einzelne Arbeitsmappe beschränkt. Änderungen bleiben aktiv, bis sie explizit zurückgesetzt werden oder Excel neu gestartet wird. **Tipp:** Wenn du solche Änderungen vornimmst, solltest du beim Schließen deiner Datei oder beim Deaktivieren deines Add-Ins die Änderungen wieder rückgängig machen, um unerwünschte Effekte für andere Dateien zu vermeiden.

Accepted Answer

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

Accepted Answer

Ja, du kannst das Excel-Makro `Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)` ohne Neustart von Excel "aufheben" bzw. deaktivieren, indem du den entsprechenden VBA-Code entfernst oder änderst und dann das Workbook speicherst. Ein Neustart von Excel ist dafür nicht notwendig. **So gehst du vor:** 1. Öffne den VBA-Editor mit `ALT + F11`. 2. Suche im Projekt-Explorer links das entsprechende Workbook (z.B. "DieseArbeitsmappe" bzw. "ThisWorkbook"). 3. Öffne das Modul, in dem das Makro steht. 4. Lösche oder kommentiere die Zeilen im Makro, z.B. indem du vor jede Zeile ein `'` setzt. 5. Speichere das Workbook (`STRG + S`). 6. Schließe den VBA-Editor. **Hinweis:** Die Änderung wird sofort wirksam. Ab jetzt wird das Ereignis nicht mehr ausgeführt, wenn du mit der rechten Maustaste klickst. Ein Neustart von Excel ist nicht erforderlich. **Tipp:** Falls du das Makro nur temporär deaktivieren möchtest, kannst du im Code eine Abfrage einbauen, z.B. über eine bestimmte Zelle oder ein globales Flag, das du bei Bedarf setzt oder zurücksetzt. Weitere Infos zu Excel VBA findest du z.B. auf [Microsoft Learn](https://learn.microsoft.com/de-de/office/vba/api/overview/excel). **Zusammenfassung:** Du kannst das Makro jederzeit im VBA-Editor deaktivieren oder löschen, ohne Excel neu zu starten.

Accepted Answer

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 &o... [mehr]

Accepted Answer

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 öffnen. 2. Wähle im linken Fenster das gewünschte Arbeitsblatt oder „DieseArbeitsmappe“ aus. 3. Füge den obigen Code in ein neues oder bestehendes Makro ein. 4. Schließe den Editor und führe das Makro aus. Damit wird die Zeile 22 im aktiven Arbeitsblatt ausgeblendet.

Accepted Answer

Um in Excel VBA (Makro) eine Fehlermeldung per `MsgBox` anzuzeigen und danach das Makro mit `Exit Sub` zu beenden, kannst du folgenden Code verwenden: ```vba Sub BeispielMakro() ' Hier steht... [mehr]

Accepted Answer

Um in Excel VBA (Makro) eine Fehlermeldung per `MsgBox` anzuzeigen und danach das Makro mit `Exit Sub` zu beenden, kannst du folgenden Code verwenden: ```vba Sub BeispielMakro() ' Hier steht dein Code If Fehlerbedingung Then MsgBox "Es ist ein Fehler aufgetreten!", vbExclamation, "Fehler" Exit Sub End If ' Weiterer Code, der nur ausgeführt wird, wenn kein Fehler vorliegt End Sub ``` **Erklärung:** - Ersetze `Fehlerbedingung` durch die tatsächliche Bedingung, bei der der Fehler auftreten soll (z.B. `If Range("A1").Value = "" Then`). - Die `MsgBox` zeigt die Fehlermeldung an. - Mit `Exit Sub` wird das Makro sofort beendet, sodass nachfolgender Code nicht mehr ausgeführt wird. 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 per Makro (VBA) eine Datei mit dem "Speichern unter"-Dialog im Format **.xlsm** zu speichern, kannst du folgenden VBA-Code verwenden: ```vba Sub SpeichernAlsXLSM() Dim Datei... [mehr]

Accepted Answer

Um in Excel per Makro (VBA) eine Datei mit dem "Speichern unter"-Dialog im Format **.xlsm** zu speichern, kannst du folgenden VBA-Code verwenden: ```vba Sub SpeichernAlsXLSM() Dim Dateiname As Variant Dateiname = Application.GetSaveAsFilename( _ InitialFileName:=ThisWorkbook.Name, _ FileFilter:="Excel-Arbeitsmappe mit Makros (*.xlsm), *.xlsm", _ Title:="Datei speichern unter") If Dateiname <> False Then ThisWorkbook.SaveAs Filename:=Dateiname, FileFormat:=xlOpenXMLWorkbookMacroEnabled End If End Sub ``` **Kurze Erklärung:** - `Application.GetSaveAsFilename` öffnet den "Speichern unter"-Dialog. - Der Filter sorgt dafür, dass nur das Format `.xlsm` angeboten wird. - Wenn der Benutzer einen Namen auswählt, wird die Datei im Makro-fähigen Format gespeichert. **Hinweis:** Beim Ausführen dieses Makros wird die aktuelle Arbeitsmappe unter dem neuen Namen gespeichert. Bereits gespeicherte Makros bleiben erhalten. Weitere Infos zu VBA findest du z.B. bei [Microsoft Learn](https://learn.microsoft.com/de-de/office/vba/api/overview/excel).

Accepted Answer

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... [mehr]

Accepted Answer

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).