Manuelle Berechnung nur für ein Arbeitsblatt?

Computer: Software & Programmierung Office Software
1

Hallo,

Excel 2003.
man kann ja die Berechnung von Formeln auf manuell umstellen (Extras > Optionen > Berchnung > manuell).
Das betrifft aber alle Arbeitsblätter. Geht das auch für nur ein bestimmtes Arbeitsblatt?

Also ein Arbeitsblatt manuell, alle anderen automatsich.

Danke
Martin

2

Ebenso würde mich interessieren, wie man nur die Zellen, die ich markiert habe, neu berechnen lässt?

Danke
Martin

3

Ebenso würde mich interessieren, wie man nur die Zellen, die
ich markiert habe, neu berechnen lässt?

Hallo Martin
Das kannst Du mit folgendem Makro machen:

Sub makro_martin()
Dim Bereich As Range: Dim Zelle As Range
Set Bereich = Selection
For Each Zelle In Bereich
acf$ = Zelle.FormulaR1C1
Zelle.FormulaR1C1 = acf$
Next
End Sub

Voraussetzung ist, dass bei Extras Optionen Berechnung die Berechnung auf manuell geschaltet ist.

Zu Deiner andern Frage, nur ein Blatt manuell und alles andere automatisch zu berechnen, weiss ich keine Antwort.

Grüsse und alles Gute zum baldigen Martini-Tag
Niclaus

4

Hallo
aus der online-Hilfe:

Berechnetes Objekt Beispiel
Alle geöffneten Arbeitsmappen Application.Calculate (oder einfach Calculate)
Ein bestimmtes Tabellenblatt Worksheets(1).Calculate
Ein bestimmter Bereich Worksheets(1).Rows(2).Calculate

Du kannst z.B. als beim öffnen der Mappe mit

Private Sub Workbook_Open()
Application.Calculation = xlCalculateManual
End Sub

dafür sorgen, dass die Grundeinstellung ohne Neuberechnung ist.
In den Blättern dann für die markierten Zellen eine Berechnung anstoßen mit diesem code:

Selection.Calculate

MfG

5

Danke (o.T)
Guten Tag,

6

Ein bestimmtes Tabellenblatt Worksheets(1).Calculate

Danke, aber das wäre ja wieder eine manuelle Berechnung. Das kann ich für das manuelle Tabellenblatt verwenden, aber die anderen sollen ohne Eingriff immer automatisch rechnen.

7

Hi
man könnte das automatische Speichern abstellen, sobald ein bestimmtes Blatt aktiviert wird:

Private Sub Worksheet_Activate()
Application.Calculation = xlCalculationManual
End Sub

und beim Verlassen wieder die Automatik reinnehmen

Private Sub Worksheet_Deactivate()
Application.Calculation = xlCalculationAutomatic
End Sub

Dann wird allerdings wieder alles neu berechnet

Mehr fällt mir dazu leider nicht ein

MfG