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

Question

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

Antwort

Verwandte Fragen

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

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

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 kann man mit einem Excel-Makro ein Rechteck in der Standardfarbe Orange (Farbcode 49407) ausfüllen?

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?

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?

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

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

Accepted Answer

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 ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name <> "Anfang" Then ws.Visible = xlSheetHidden Else ws.Visible = xlSheetVisible End If Next ws End Sub ``` **So gehst du vor:** 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". 4. Füge den obigen Code in das Modul ein. 5. Schließe den Editor und führe das Makro aus (`ALT + F8`). **Hinweis:** Das Blatt "Anfang" muss existieren, sonst gibt es einen Fehler. Falls du die Blätter "sehr verstecken" möchtest (xlSheetVeryHidden), ersetze `xlSheetHidden` durch `xlSheetVeryHidden`.

Accepted Answer

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

Accepted Answer

Um in Excel per Makro (VBA) ein Arbeitsblatt auszublenden oder einzublenden, kannst du folgenden VBA-Code verwenden: **Blatt ausblenden:** ```vba Sub BlattAusblenden() Worksheets("Blattname").Visible = xlSheetHidden End Sub ``` **Blatt einblenden:** ```vba Sub BlattEinblenden() Worksheets("Blattname").Visible = xlSheetVisible End Sub ``` **Hinweise:** - Ersetze `"Blattname"` durch den tatsächlichen Namen des Arbeitsblatts, das du aus- oder einblenden möchtest. - Den Code fügst du im VBA-Editor (Alt + F11) in ein Modul ein. Weitere Infos zu Excel VBA findest du z.B. bei [Microsoft](https://learn.microsoft.com/de-de/office/vba/api/overview/excel).

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

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

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

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

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