=WENN(ABS(GANZZAHL(LOG(A1)))Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.
Erstelle ein neues Modul: Klicke mit der rechten Maustaste auf VBAProject (dein Arbeitsmappenname), wähle Einfügen und dann Modul.
Füge den folgenden Code ein:
Sub BerechnungStatus()
Dim startwert As XlCalculation
startwert = Application.Calculation 'Einstellung merken
Application.Calculation = xlCalculationAutomatic
Application.StatusBar = Application.Calculation
MsgBox "Aktueller Status: " & Application.Calculation
' Wiederherstellen des ursprünglichen Berechnungsstatus
Application.Calculation = startwert
Application.StatusBar = ""
End SubFühre das Makro aus: Klicke auf Run oder drücke F5.
Dieser Code setzt den Berechnungsstatus auf xlCalculationAutomatic und zeigt den aktuellen Status in einer Meldung an.
Fehler: "Anwendungsfehler, wenn der Berechnungsstatus nicht gesetzt werden kann."
Fehler: Der Status wird nicht in der Statusleiste angezeigt.
Eine weitere Möglichkeit, den Berechnungsstatus zu überprüfen, ist die Verwendung eines Textfeldes auf einem Arbeitsblatt:
Einfügen > Textfeld aus der Symbolleiste.=A1 ein, um den Wert der Zelle A1 anzuzeigen.Beispiel 1: Verwende den folgenden Code, um den Berechnungsstatus in einer MsgBox anzuzeigen und gleichzeitig den Status in der Statusleiste anzuzeigen.
Sub AnzeigeBerechnungsStatus()
Application.Calculation = xlCalculationManual
Application.StatusBar = "Berechnungsstatus: " & Application.Calculation
MsgBox "Der Berechnungsstatus ist jetzt: " & Application.Calculation
End SubBeispiel 2: Anpassen des Berechnungsstatus innerhalb eines Makros:
Sub WechselBerechnungsmodus()
If Application.Calculation = xlCalculationAutomatic Then
Application.Calculation = xlCalculationManual
Else
Application.Calculation = xlCalculationAutomatic
End If
MsgBox "Neuer Berechnungsstatus: " & Application.Calculation
End SubApplication.Calculation = xlCalculationManual, um die Berechnungen zu reduzieren, und führe Application.Calculate manuell aus, wenn du bereit bist.On Error Resume Next hinzu, um mögliche Fehler beim Ändern des Berechnungsstatus zu ignorieren.1. Was ist der Unterschied zwischen xlCalculationAutomatic und xlCalculationManual?
xlCalculationAutomatic führt Berechnungen automatisch durch, während xlCalculationManual die Berechnungen nur bei Bedarf durchführt.
2. Wie kann ich den aktuellen Berechnungsstatus in einer Zelle anzeigen?
Verwende ein Textfeld oder eine Zelle, die mit einem Makro verknüpft ist, um den Berechnungsstatus dynamisch anzuzeigen.
3. Kann ich den Berechnungsmodus für ein bestimmtes Arbeitsblatt festlegen?
Nein, der Berechnungsmodus ist global für die gesamte Anwendung und kann nicht auf ein einzelnes Arbeitsblatt beschränkt werden.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen