Blätter einzeln berechnen? nochmal ne Nachfrage...

Hallo liebe Exelprofis,
nocheinmal muss ich mich wohl an Euch wenden *heul*
Es geht noch immer um meine Grund-Problematik ob es möglich ist, einzelne Blätter berechnen zu lassen.
Im Prinzip ist das Problem ja gelöst - wenn ich doch nich laufend auf neue Ideen kommen würde was man noch so hinzufügen müsste... ;-)
Derzeit ist folgende (ansich perfekt funktionierende) Lösung in Benutzung:
Berechnung steht auf manuell.
Bei anklicken des Blattes erfolgt die Berechnung dessen, sowie die Berechnung eines Formular-Listenfeldes durch den Eintrag dieser Code:


Private Sub Worksheet_Activate()
ActiveSheet.Calculate
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Calculate
End Sub

Jetzt mein Problem:
Gibt es einen "Universalcode" ;-) für alle Elemente aus der Formularbox?
So, dass - egal was ich aus Formular einfüge - die Berechnung bei Änderung der Werte automatisch erfolgt?
Speziell hab ich jetzt noch "Kontrollkästchen" und "Optionsfelder" eingefügt.
Hab mal versucht, aufbauend auf den beiden vorhandenen Codes, was zu zimmern - aber nix funzt *heul* das Ding ist hartnäckig :-(
Vielen Dank schon im Voraus - ich würd mich freuen wenn mir jemand einen Tipp geben kann.
lgkasi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
Du hast recht, tut tatsächlich nicht.
Anscheinend werden die Zellverknüpfungen gleich behandelt, wie DDE Ereignisse. Diese lösen auch kein Änderungsereignis aus.
Dann mit Gewalt:

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Sh.Calculate
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Application.EnableEvents = False
    Worksheets("Tabelle1").Range("G16").Calculate
    Application.EnableEvents = True
End Sub

Wenn du nun eine Zelle auswählst, dann wird die Zelle G16 neu berechnet.
Aber NUR auf Änderung der Option Button geht nicht.
Wenn es so sein soll, dann musst du die Optionbuttons aus des Symbolleiste "Steuerelement / toolbox" verwenden. Die werden ausschliesslich über VBA gesteuert, und dort kann die Zelle gleich aktualisiert werden
Gruss Rainer

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.EnableEvents = False Worksheets("Tabelle1").Range("A16:Z100").Calculate Application.EnableEvents = True End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.EnableEvents = False Worksheets("Tabelle1").Range("A1:Z100").Calculate Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

Blätter einzeln berechnen? nochmal ne Nachfrage...

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

46 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Blätter einzeln berechnen? nochmal ne Nachfrage...

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

46 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread