Formeln automatisch neu berechnen

Wenn Sie in Ihren Makros für eine gezielte Neuberechnung von Tabellen sorgen möchten, setzen Sie die Methode Calculate ein. Das kann in großen Tabellen sinnvoll sein, in denen die automatische Berechnung ausgeschaltet ist, weil sie zu viel Zeit benötigt.

Setzen Sie die folgende Programmzeile ein, um alle Tabellen in allen geöffneten Mappen neu zu berechnen:

Application.Calculate

Wenn Sie nur ein einzelnes Tabellenblatt neu berechnen möchten, setzen Sie das folgende Kommando ein:

Worksheets(1).Calculate

Über das Objekt Worksheets(1) adressieren Sie das gewünschte Tabellenblatt. Um alle Tabellen der Arbeitsmappe neu zu berechnen, in der das Makro ausgeführt wird, setzen Sie das folgende Makro ein:

Sub DieseHierAlleBerechnen()
Dim i As Integer
For i = 1 To ThisWorkbook.Worksheets.Count
 ThisWorkbook.Worksheets(i).Calculate
Next i
End Sub