Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

manuelle berechnung

18 views
Skip to first unread message

Marco G.

unread,
Apr 25, 2003, 7:14:03 AM4/25/03
to
hallo

wie krieg ich es hin, dass nicht alle tabellenblätter einer mappe
automatisch berechnet werden? tabellen 1+2 sollen immer automatisch
berechnet werden und tabelle 3 soll ausschliesslich manuell berechnet
werden.. ist das möglich?

viele grüsse
marco


Kay Böhm

unread,
Apr 25, 2003, 7:37:58 AM4/25/03
to
Hallo Marco,

so viel ich weiss, kann man das nicht für jedes
Tabellenblatt angeben, aber indem du beim Ändern der
Tabelle (Ereignis: Change) die Eigenschaft
Application.Worksheets(i).EnableCalculation auf False
setzt, kannst du verhindern, dass das Blatt neu berechnet
wird.

Viele Grüße
Kay Böhm
>-----Originalnachricht-----

>.
>

Marco G.

unread,
Apr 25, 2003, 8:36:53 AM4/25/03
to
danke vielmals

das könnt ich hinkriegen, wenn du mir die genaue funktion angibst.. bin
nicht so geübt in vba.. wie frage ich eine änderung des tabellenblattes ab?
wie muss der code genau aussehen?

gruss
marco

"Kay Böhm" <KayB...@WEB.de> schrieb im Newsbeitrag
news:021b01c30b1f$1e95a080$3401...@phx.gbl...

Melanie Breden

unread,
Apr 25, 2003, 9:54:53 AM4/25/03
to
Hallo Marco,

"Marco G." schrieb:

dazu kannst du ein kleines Makro verwenden.

Füge folgende Prozedur in ein allgemeines Modul ein.
Bei jedem Durchlauf der Prozedur wechselt der Status der Berechnung
zwischen manuell und automatisch.

Sub Off_On_ManuelleBerechnung()
With Worksheets("Tabelle3")
.EnableCalculation = Not .EnableCalculation
End With
End Sub

Zum bequemen umschalten könntest du dir auch auf dein Tabellenblatt
ein Umschaltfläche aus der Steuerelemente-Toolbox legen.
Nachdem du das Element auf dem Blatt aufgezogen hast, klicke doppelt darauf.
Du gelangst in den VBA-Editor mit dem entsprechenden Codegerüst.
Ersetzte die Codeschablone durch folgende Prozedur:

Private Sub ToggleButton1_Click()
Me.EnableCalculation = Not Me.EnableCalculation
ToggleButton1.Caption = IIf(ToggleButton1.Value, "Off", "On")
End Sub

Kommst du damit weiter?

--
Mit freundlichen Grüßen
Melanie Breden

_____________________
[Microsoft MVP für Excel]

Melanie Breden

unread,
Apr 25, 2003, 10:05:19 AM4/25/03
to
Hallo Marco,

Nachtrag:
wenn die EnableCalculation-Eigenschaft auf False gesetzt ist,
kann man das Blatt auch nicht manuell mit <F9> berechnen.
Zur Neuberechnung muss der Wert auf True gesetzt werden.
Und die Makros wechseln eben zwischen False und True.

--
Mit freundlichen Grüßen
Melanie Breden

_____________________
[Microsoft MVP für Excel]


"Melanie Breden" <Melanie...@mvps.org> schrieb im Newsbeitrag news:u2bbBJzC...@TK2MSFTNGP11.phx.gbl...

0 new messages