Linda fragte, ob es eine Möglichkeit gibt, nur die aktive Arbeitsmappe zu berechnen.

Wenn eine Neuberechnung von Excel durchgeführt wird, werden alle geöffneten Arbeitsmappen neu berechnet. Wenn es sich um sehr große Arbeitsmappen handelt, kann die Neuberechnung manchmal mehr als fünfzehn Minuten dauern. Wenn sie in der Lage ist, die Neuberechnung einzuschränken, läuft der Prozess offensichtlich schneller ab.

Leider gibt es keine direkte Methode, um nur eine bestimmte Arbeitsmappe zu berechnen. Falls gewünscht, können Sie jedoch nur das aktive Arbeitsblatt berechnen. Stellen Sie den Neuberechnungsmodus zunächst wie folgt auf manuell ein:

  1. Zeigen Sie das Dialogfeld Excel-Optionen an. (Klicken Sie in Excel 2007 auf die Schaltfläche Office und dann auf Excel-Optionen. In Excel 2010 und späteren Versionen wird die Registerkarte Datei des Menübands angezeigt, und klicken Sie dann auf Optionen.)

  2. Klicken Sie links im Dialogfeld auf den Bereich Formeln. (Siehe Abbildung 1.)

  3. Stellen Sie im Abschnitt Berechnungsoptionen des Dialogfelds sicher, dass das Optionsfeld Manuell ausgewählt ist.

  4. Klicken Sie auf OK.

Jetzt wird Ihre Arbeitsmappe (eigentlich alle geöffneten Arbeitsmappen) nur neu berechnet, wenn Sie F9 drücken. Wenn Sie nur das aktuelle Arbeitsblatt neu berechnen möchten, drücken Sie Umschalt + F9.

Excel bietet auch Makrofunktionen, mit denen Sie eine der drei folgenden Aktionen ausführen können: Alle geöffneten Arbeitsmappen berechnen, ein bestimmtes Arbeitsblatt in einer Arbeitsmappe berechnen oder einen bestimmten Zellbereich in einem Arbeitsblatt berechnen. Mit diesem Wissen können Sie ein Makro erstellen, das alle Arbeitsblätter in einer Arbeitsmappe durchläuft und jedes neu berechnet.

Das folgende Makro setzt den Berechnungsmodus auf manuell (damit die anderen Arbeitsmappen nicht berechnen) und durchläuft dann jedes Blatt der aktiven Arbeitsmappe und berechnet es.

Sub CalcBook()

Dim wks As Worksheet     Application.Calculation = xlManual     For Each wks In ActiveWorkbook.Worksheets         wks.Calculate     Next     Set wks = Nothing End Sub

Wenn Sie der Meinung sind, dass Sie verschiedene Teile Ihrer Arbeitsmappe zu unterschiedlichen Zeiten berechnen möchten, können Sie das Makro so erweitern, dass es jede gewünschte Art von Berechnung ausführt:

Sub CalcWhat()

Dim iAnsure As Integer

Application.Calculation = xlManual     iAnsure = InputBox("1 = Calculate A Used Range" _       & vbCrLf & _       "2 = Calculate This Worksheet" _       & vbCrLf & _       "3 = Calculate This Workbook" _       & vbCrLf & _       "4 = Calculate All Workbooks in Memory" _       & vbCrLf & vbCrLf & _       "Input Your Selection Number From Above" _       & vbCrLf & "Then Click OK", _       "Calculate What?", "Input Number Please", _       5000, 5000)



Select Case iAnsure         Case 1 'Range Only             Selection.Calculate         Case 2 'Worksheet Only             ActiveSheet.Calculate         Case 3 'Workbook Only             For Each wks In ActiveWorkbook.Worksheets                 wks.Calculate             Next         Case 4 'All Open Workbooks             Application.CalculateFull         End     End Select End Sub

Dieses Makro zeigt ein Eingabefeld an, in dem der Benutzer gefragt wird, welche Art der Neuberechnung gewünscht wird. Wenn der Benutzer eine Zahl von 1 bis 4 eingibt, wird die gewünschte Art der Neuberechnung durchgeführt.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (6752) gilt für Microsoft Excel 2007, 2010, 2013 und 2016.

Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier: