manuelles berechnen per Button

Question

Hallo

kann mir hier vielleicht jemand weiterhelfen in Sachen manuelles berechnen?
Ich habe Arbeitsmappe wo ich genau nur ein Tabellenblatt berechnen möchte und die anderen nicht!
Ich habe jetzt Berechnen auf manuell gestellt doch jedes mal wenn ich es anklicke werden alle Tabellenblätter berechnet ich möchte aber das nur eins berechnet wird wenn ich einen Button anklicke!

Bin echt verzweifelt, hab schon überall nach einer Lösung gesucht aber nichts gefunden :(

Answer 1

Hallo,

mit welcher Excel-Version arbeitest du denn?

In Excel 2007 gibt es im Menü-Band "Formel" unter "Berechnen" die Möglichkeit nur das aktuelle Blatt berechnen zu lassen, wenn die manuelle Berechnung aktiviert ist.

Gruß

M.O.

Answer 2

Hallo M.O.,

ich arbeite mit der Excel Version 2010!
Ich weiß das, wenn ich shift + F9 drücke, auch bei excel 2010 nur das Blatt berechnet wird welches ich grad offen habe.
Das Problem ist nur, es gibt mehrere die diese Arbeitsmappe nutzen und deswegen wollte ich einen Button auf dem Blatt erstellen das wirklich nur da aktualisiert wird und nicht die anderen!
Eh ich allen erklärt habe das Sie die und die Tastenkombi drücken müssen, wollte ich es schnell und einfach per Button lösen :)
Aber es scheint keine Lösung für mein Problem zu geben :(

Lg

Answer 3

Hallo,

dann beleg den Botton mit dem folgendem Befehl:

ThisWorkbook.ActiveSheet.Calculate

Gruß

M.O.

Answer 4

hi all ^^

ein Beispiel´
getestet unter Excel 2000

gruss nighty

schaltet die Mappe auf manuell
einzufuegen alt+f11/projektexplorer/DeineArbeitsMappe

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

berechnet das benannte worksheet einmalig(wie m.o. schon erwaehnte)
einzufuegen alt+f11/projektexplorer/AllgemeinesModul

Sub BerechnenWksSolo()
Worksheets("DeinWorksheetNane").Calculate
End Sub

weise der schaltflaeche nun das makro zu

Answer 5

Hallo Ihr beiden

vielen lieben Dank ihr habt mir sehr geholfen bei meinem Problem :)
Endlich habe ich eine sehr sehr gute Lösung

LG