Hallo zusammen,
ich habe hier ein Tabellenblatt, in dem mit Zufallszahlen gearbeitet wird. Deshalb habe ich die automatische Berechnung abgeschaltet.
Diese Einstellung wirkt sich aber ja auf die gesamte Arbeitsmappe aus.
Die Frage:
ist es möglich die automatische Berechnung Blattweise zu steuern?
Wenn Ja, dann müsste aber auch die manuelle Neuberechnung [F9] Blattweise ausgeführt werden können.[Schaltfläche?]
Mein Gedanke dazu:
In A1 steht je Blatt ein WAHR/FALSCH autom.Berechnung EIN/AUS
Zusätzlich eine Schaltfläche zur neu Berechnung vom Tabellenblatt.
Geht so etwas?
Hallo,
ich erwarte, dass man nicht tabellenweise einzeln rechnen kann, denn dann muessten Bezuege auf andere Tabellenblaetter verboten sein oder abgefragt werden.
Gruss Helmut
Hallo Helmut,
danke für deine Einschätzung, aber das kann nicht ganz stimmen.
Ich kann in den Optionen/Berechnung auf „Blatt berechnen“ klicken.
Habe es gerade mit =jetzt() auf dem aktuellen/anderen Tabellenblatt probiert. Der Bezug zum anderen Tabellenblatt wird nicht aktualisiert während die Zeit auf dem aktuellen Tabellenblatt neu ist.
ich habe hier ein Tabellenblatt, in dem mit Zufallszahlen
gearbeitet wird. Deshalb habe ich die automatische Berechnung
abgeschaltet.
Diese Einstellung wirkt sich aber ja auf die gesamte
Arbeitsmappe aus.
Ja, das ist korrekt und auch gut so.
Die Frage:
ist es möglich die automatische Berechnung Blattweise zu
steuern?
Jein - Du kannst nur komplett (nicht nur für die Mappe sondern für Excel komplett) auf manuelle Berechnung umschalten.
Wenn Ja, dann müsste aber auch die manuelle Neuberechnung [F9]
Blattweise ausgeführt werden können.[Schaltfläche?]
Dort wo Du das Blatt neu berechnen lassen kannst ist auch der Shortcut vermerkt der dasselbe tut.
Versuche es daher mal mit Umschalt+F9
Mein Gedanke dazu:
In A1 steht je Blatt ein WAHR/FALSCH autom.Berechnung
EIN/AUS
Zusätzlich eine Schaltfläche zur neu Berechnung vom
Tabellenblatt.
Geht so etwas?
Ja, auch sowas geht mit VBA-Programmierung, ich denke jedoch, dass es nicht notwendig sein sollte.
Ja, auch sowas geht mit VBA-Programmierung, ich denke jedoch,
dass es nicht notwendig sein sollte.
Hallo Thomas,
der Hintergrund für meinen Wunsch ist, das auf dem ersten Tabellenblatt [zufällige] Gruppeneinteilungen erstellt werden. Auf dem zweiten Blatt stehen dann die Ergebnisse.
Ich möchte zwar die Ergebnisse, nicht aber die Gruppen neu berechnen.
Mit F9 passiert das aber.
Ich habe mir per Macro-Rekorder das neu berechnen vom Blatt aufgezeichnet. Das funktioniert auch. Wenn das jetzt automatisch bei einer Eingabe auf Blatt 2 passieren würde wäre schicht weg einfacher.
Mein Problem:
ich habe keine Ahnung von VBA programmieren.
Wäre schön wenn das jemand anpassen könnte.
Schöne Grüße Holger
PS
das aufgezeichnete Macro:
Sub neu_berechnen()
Application.MaxChange = 0.001
ActiveWorkbook.PrecisionAsDisplayed = False
ActiveSheet.Calculate
End Sub
Ja, auch sowas geht mit VBA-Programmierung, ich denke jedoch,
dass es nicht notwendig sein sollte.
der Hintergrund für meinen Wunsch ist, das auf dem ersten
Tabellenblatt [zufällige] Gruppeneinteilungen erstellt werden.
Auf dem zweiten Blatt stehen dann die Ergebnisse.
Ich möchte zwar die Ergebnisse, nicht aber die Gruppen neu
berechnen.
Mit F9 passiert das aber.
Ja, mit Umschalt+F9 aber nicht
Ich habe mir per Macro-Rekorder das neu berechnen vom Blatt
aufgezeichnet. Das funktioniert auch. Wenn das jetzt
automatisch bei einer Eingabe auf Blatt 2 passieren würde wäre
schicht weg einfacher.
OK, das kann ich nachvollziehen. Gehe dazu wie folgt vor:
Berechnung auf [x]Manuell stellen und die Mappe speichern
Rechtsklick auf den Reiter des zweiten Tabellenblattes und ‚Code anzeigen‘ wählen
In dieses neu geöffnete Fenster kopierst Du die nten stehenden Zeile 1:1
Anschliessend mit ALT+Q den VBA-Edirot wieder schliessen
Mappe erneut speichern
Nun wird beim Aktivieren des zweiten Tabellenblattes sowie nach jeder Eingabe darauf dieses neu berechnet.
Hier noch die Code-Zeilen dazu:
Option Explicit
Private Sub Worksheet\_Activate()
Me.Calculate
End Sub
Private Sub Worksheet\_Change(ByVal Target As Range)
Me.Calculate
End Sub
