kann mann die atomatische Berechnung in Excel für einzelne Tabellenblätter per Makro oder mit einer anderen Metode abschalten.
Es soll nicht generell über Extras-Optinen alles abgeschaltet werden.
Für Hilfe währe ich sehr dankbar. :-)
Gruß Dieter
Private Sub Workbook_Open()
Me.Worksheets("Tabelle1").EnableCalculation = False
Me.Worksheets("Tabelle3").EnableCalculation = False
End Sub
Private Sub CommandButton1_Click()
Me.EnableCalculation = True
Do
DoEvents
Loop Until Application.CalculationState = xlDone
Me.EnableCalculation = False
End Sub
Die Datei https://www.herber.de/bbs/user/38595.xls wurde aus Datenschutzgründen gelöscht
Gruß Dieter
If LCase(wkb.Name) = "Mittelwerte.xls" Then
Öffne die Excel-Datei, in der Du die automatische Berechnung für ein bestimmtes Tabellenblatt ausschalten möchtest.
Drücke ALT
+ F11
, um den VBA-Editor zu öffnen.
Füge folgenden Code in das Modul "DieseArbeitsmappe" ein:
Private Sub Workbook_Open()
Me.Worksheets("Tabelle1").EnableCalculation = False
Me.Worksheets("Tabelle3").EnableCalculation = False
End Sub
Erstelle einen CommandButton auf dem gewünschten Blatt, um die Berechnung manuell zu aktivieren:
Private Sub CommandButton1_Click()
Me.EnableCalculation = True
Do
DoEvents
Loop Until Application.CalculationState = xlDone
Me.EnableCalculation = False
End Sub
Speichere die Datei und schließe den VBA-Editor.
Teste die Änderungen, indem Du das Arbeitsblatt wechselst und überprüfst, ob die Werte erhalten bleiben.
Excel aktualisiert nicht automatisch: Stelle sicher, dass die EnableCalculation
-Eigenschaft korrekt gesetzt ist. Überprüfe den Code im Workbook_Open()
-Ereignis.
Formeln aktualisieren sich nicht: Wenn Du in einer anderen Tabelle eine Aktion ausführst, kann es sein, dass die Verknüpfungen neu gesetzt werden müssen. Achte darauf, wie und wann die Aktualisierung erfolgt.
Fehlermeldungen beim Öffnen: Achte darauf, dass alle Variablen korrekt deklariert sind, um Fehler zu vermeiden.
Manuelle Berechnung aktivieren: Du kannst die automatische Berechnung in Excel ganz abschalten und die Berechnung manuell durchführen, wenn Du das möchtest. Gehe zu Formeln
> Berechnungsoptionen
und wähle Manuell
.
VBA-Optionen nutzen: Verwende Befehle wie Application.Calculation = xlCalculationManual
, um die Berechnung für die gesamte Arbeitsmappe auszuschalten und spezifische Blätter manuell zu steuern.
Beispiel für das Deaktivieren der Berechnung: Wenn Du ein Tabellenblatt hast, das Daten aus einer externen Quelle bezieht, kannst Du die automatische Aktualisierung deaktivieren, um die Performance zu verbessern. Nutze dazu den oben genannten VBA-Code.
Beispiel für das manuelle Aktualisieren: Erstelle einen Button auf dem Blatt, der beim Klicken alle erforderlichen Berechnungen ausführt, um die gewünschten Werte anzuzeigen, ohne die automatische Berechnung zu aktivieren.
Nutze die Excel VBA-Dokumentation: Sieh Dir die offizielle Dokumentation an, um mehr über Eigenschaften wie .EnableCalculation
zu erfahren und die Möglichkeiten optimal auszuschöpfen.
Verwende Debugging-Tools: Wenn Du komplexe Makros schreibst, nutze die Debugging-Tools im VBA-Editor, um Fehler schneller zu finden und zu beheben.
Optimiere die Performance: Wenn Du häufig zwischen Blättern wechselst und die Berechnung störend ist, erwäge, die Berechnung nur bei Bedarf auszuführen, anstatt sie ständig zu aktivieren.
1. Wie kann ich die automatische Berechnung für ein Tabellenblatt ausschalten?
Du kannst die automatische Berechnung für ein spezifisches Tabellenblatt mit dem VBA-Code Me.Worksheets("Blattname").EnableCalculation = False
ausschalten.
2. Was passiert, wenn ich die Berechnung für ein Blatt ausschalte?
Die Werte auf diesem Blatt bleiben unverändert, selbst wenn Du in anderen Blättern Änderungen vornimmst. Um die Berechnung wieder zu aktivieren, musst Du dies manuell tun.
3. Kann ich die automatische Berechnung für mehrere Blätter gleichzeitig ausschalten?
Ja, Du kannst mehrere Blätter in der Workbook_Open()
-Prozedur mit dem entsprechenden Code angeben.
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