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. Wählen Sie Optionen aus dem Menü Extras. Excel zeigt das Dialogfeld Optionen an.

  2. Stellen Sie sicher, dass die Registerkarte Berechnung angezeigt wird. (Siehe Abbildung 1.)

  3. Aktivieren Sie das Kontrollkästchen Manuell.

  4. OK klicken.

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.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

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

Dieser Tipp (2877) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

Nur die aktive Arbeitsmappe berechnen.