Kann man das Speichern in Excel VBA abstellen?

Question

Kann man das Speichern in Excel VBA abstellen?

Antwort

Verwandte Fragen

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

Wie zeige ich per VBA in Excel eine Messagebox an, wenn ein bestimmter Wert überschritten oder erreicht wird?

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

Wie zeige ich in Excel per VBA eine Messagebox an, wenn eine Zelle einen bestimmten Wert unterschreitet?

Wie kann ich in Excel-VBA den Inhalt einer bestimmten Tabelle komplett löschen?

Gibt es eine kostenlose Alternative zu Excel für Android?

Wie kann ich eine Zahl in Excel bei einer Verknüpfung direkt aufrunden?

Gibt es in Excel 2021 eine Vorlage für ein Gantt-Diagramm?

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?

Accepted Answer

Ja, in Excel VBA kannst du das Speichern der Arbeitsmappe abstellen, indem du das `Workbook_BeforeSave`-Ereignis verwendest. Hier ist ein Beispiel, wie du das umsetzen kannst: ```vba Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Cancel = True ' Verhindert das Speichern MsgBox "Das Speichern ist deaktiviert." End Sub ``` Füge diesen Code in das Modul "DieseArbeitsmappe" (ThisWorkbook) ein. Damit wird das Speichern der Arbeitsmappe verhindert, und eine Nachricht wird angezeigt, wenn der Benutzer versucht, die Datei zu speichern.

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

Um in Excel mit VBA eine MessageBox anzuzeigen, wenn ein bestimmter Wert überschritten oder gleich ist, kannst du beispielsweise folgenden Code verwenden. Angenommen, du möchtest prüfen... [mehr]

Accepted Answer

Um in Excel mit VBA eine MessageBox anzuzeigen, wenn ein bestimmter Wert überschritten oder gleich ist, kannst du beispielsweise folgenden Code verwenden. Angenommen, du möchtest prüfen, ob der Wert in Zelle A1 größer oder gleich 100 ist: ```vba Sub PruefeWert() Dim wert As Double wert = Range("A1").Value If wert >= 100 Then MsgBox "Der Wert ist größer oder gleich 100!", vbInformation, "Hinweis" End If End Sub ``` **So funktioniert es:** - Der Wert aus Zelle A1 wird in die Variable `wert` eingelesen. - Mit der If-Bedingung wird geprüft, ob der Wert größer oder gleich 100 ist. - Falls ja, erscheint eine MessageBox mit dem gewünschten Hinweis. **Tipp:** Du kannst diesen Code in ein Makro einfügen oder im VBA-Editor (Alt + F11) in ein Modul schreiben. Um die Prüfung automatisch auszulösen (z.B. nach einer Änderung in A1), kannst du den Code in das Worksheet-Change-Ereignis einfügen: ```vba Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then If Range("A1").Value >= 100 Then MsgBox "Der Wert ist größer oder gleich 100!", vbInformation, "Hinweis" End If End If End Sub ``` Diesen Code fügst du im VBA-Editor direkt beim gewünschten Arbeitsblatt ein. Weitere Informationen zu VBA findest du z.B. auf [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).

Accepted Answer

Um in Excel per VBA eine MessageBox erscheinen zu lassen, wenn eine Zelle einen bestimmten Wert unterschreitet, kannst du das Worksheet-Change-Ereignis verwenden. Hier ein Beispiel, wie du das umsetze... [mehr]

Accepted Answer

Um in Excel per VBA eine MessageBox erscheinen zu lassen, wenn eine Zelle einen bestimmten Wert unterschreitet, kannst du das Worksheet-Change-Ereignis verwenden. Hier ein Beispiel, wie du das umsetzen kannst: **Beispiel:** Angenommen, du möchtest eine Meldung erhalten, wenn der Wert in Zelle A1 kleiner als 10 ist. 1. Öffne VBA-Editor mit `ALT + F11`. 2. Doppelklicke im Projekt-Explorer auf das entsprechende Arbeitsblatt (z.B. „Tabelle1“). 3. Füge folgenden Code ein: ```vba Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then If IsNumeric(Range("A1").Value) Then If Range("A1").Value < 10 Then MsgBox "Der Wert in A1 ist kleiner als 10!", vbExclamation End If End If End If End Sub ``` **Erläuterung:** - Das Makro prüft, ob die geänderte Zelle A1 ist. - Es wird geprüft, ob der Wert numerisch ist. - Ist der Wert kleiner als 10, erscheint eine MessageBox. **Hinweis:** Du kannst den Zellbereich (`Range("A1")`) und den Schwellenwert (`10`) nach Bedarf anpassen. Weitere Informationen zu VBA in Excel findest du auf der offiziellen Microsoft-Seite: [https://learn.microsoft.com/de-de/office/vba/api/overview/excel](https://learn.microsoft.com/de-de/office/vba/api/overview/excel)

Accepted Answer

Um in Excel-VBA den Inhalt einer bestimmten Tabelle (z.B. "Tabelle1") komplett zu löschen, kannst du folgenden Code verwenden: ```vba Worksheets("Tabelle1").Cells.ClearConten... [mehr]

Accepted Answer

Um in Excel-VBA den Inhalt einer bestimmten Tabelle (z.B. "Tabelle1") komplett zu löschen, kannst du folgenden Code verwenden: ```vba Worksheets("Tabelle1").Cells.ClearContents ``` Dieser Befehl entfernt alle Inhalte (Werte und Formeln) aus der angegebenen Tabelle, lässt aber die Formatierungen und Kommentare bestehen. Falls du auch die Formatierungen und Kommentare entfernen möchtest, verwende stattdessen: ```vba Worksheets("Tabelle1").Cells.Clear ``` Ersetze "Tabelle1" durch den tatsächlichen Namen deiner Tabelle.

Accepted Answer

Ja, es gibt mehrere kostenlose Alternativen zu Excel für Android. Zu den bekanntesten zählen: 1. **Google Tabellen (Google Sheets)** Kostenlos nutzbar, benötigt ein Google-Konto.... [mehr]

Accepted Answer

Ja, es gibt mehrere kostenlose Alternativen zu Excel für Android. Zu den bekanntesten zählen: 1. **Google Tabellen (Google Sheets)** Kostenlos nutzbar, benötigt ein Google-Konto. Bietet viele Funktionen ähnlich wie Excel und ermöglicht das Bearbeiten und Teilen von Tabellen online. [Google Tabellen im Play Store](https://play.google.com/store/apps/details?id=com.google.android.apps.docs.editors.sheets) 2. **WPS Office** Eine kostenlose Office-Suite, die Tabellenkalkulationen unterstützt und mit Excel-Dateien kompatibel ist. [WPS Office im Play Store](https://play.google.com/store/apps/details?id=cn.wps.moffice_eng) 3. **ONLYOFFICE Documents** Ebenfalls kostenlos, unterstützt Excel-Dateien und bietet viele Bearbeitungsfunktionen. [ONLYOFFICE Documents im Play Store](https://play.google.com/store/apps/details?id=com.onlyoffice.documents) Alle genannten Apps sind im Google Play Store verfügbar und bieten grundlegende bis fortgeschrittene Tabellenfunktionen.

Accepted Answer

Um in Excel eine Zahl bei einer Verknüpfung direkt aufzurunden, kannst du die Funktion `AUFRUNDEN` verwenden. Das funktioniert so: **Syntax:** `=AUFRUNDEN(Zahl; Anzahl_Stellen)` **Beispiel mi... [mehr]

Accepted Answer

Um in Excel eine Zahl bei einer Verknüpfung direkt aufzurunden, kannst du die Funktion `AUFRUNDEN` verwenden. Das funktioniert so: **Syntax:** `=AUFRUNDEN(Zahl; Anzahl_Stellen)` **Beispiel mit Verknüpfung:** Angenommen, in Zelle A1 steht eine Zahl und du möchtest das Ergebnis einer Verknüpfung (z.B. A1 * 2,5) auf die nächste ganze Zahl aufrunden: `=AUFRUNDEN(A1*2,5; 0)` - `A1*2,5` ist die Verknüpfung. - `0` bedeutet, dass auf die nächste ganze Zahl aufgerundet wird. **Weitere Beispiele:** - Auf eine Nachkommastelle aufrunden: `=AUFRUNDEN(A1*2,5; 1)` - Auf Zehner aufrunden: `=AUFRUNDEN(A1*2,5; -1)` Weitere Infos zur Funktion findest du bei [Microsoft](https://support.microsoft.com/de-de/office/aufrunden-funktion-16751eaa-4166-462d-b1ce-147a7af4f8b2).

Accepted Answer

In Excel 2021 gibt es keine spezielle, direkt auswählbare Vorlage für ein Gantt-Diagramm wie bei einigen anderen Projektmanagement-Tools. Allerdings bietet Excel verschiedene Vorlagen fü... [mehr]

Accepted Answer

In Excel 2021 gibt es keine spezielle, direkt auswählbare Vorlage für ein Gantt-Diagramm wie bei einigen anderen Projektmanagement-Tools. Allerdings bietet Excel verschiedene Vorlagen für Projektpläne, die sich als Basis für ein Gantt-Diagramm eignen. Du findest diese Vorlagen folgendermaßen: 1. **Excel öffnen** 2. **Datei > Neu** auswählen 3. Im Suchfeld „Gantt“ oder „Projektplan“ eingeben Dort werden dir einige Vorlagen angezeigt, die oft bereits ein Gantt-Diagramm enthalten oder sich leicht in eines umwandeln lassen. Alternativ kannst du ein Gantt-Diagramm auch manuell erstellen, indem du ein gestapeltes Balkendiagramm verwendest und die Daten entsprechend anpasst. Weitere Informationen und Anleitungen findest du auch auf der offiziellen Microsoft-Seite: [https://support.microsoft.com/de-de/office/erstellen-eines-gantt-diagramms-in-excel-8e5e8e0f-9e3e-4cfe-8a4b-9648c2b9e7c8](https://support.microsoft.com/de-de/office/erstellen-eines-gantt-diagramms-in-excel-8e5e8e0f-9e3e-4cfe-8a4b-9648c2b9e7c8)

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