Farbsumme automatisch berechnen lassen

[Jockel]

Hallo, ich habe mal wieder ein VBA-Frage... Kann man das hier vorgestellte... http://www.herber.de/excelformeln und bitte suchen .../formeln.html?welcher=432
auch automatisieren, sodass kein F9 nötig ist... ... wegen: Wird ein Eintrag in Spalte A nachträglich eingefärbt, wird das erst nach Neuberechnung wirksam.

[Rabe]

Hi Jörg,

Kann man das hier vorgestellte... http://www.herber.de/excelformeln und bitte suchen .../formeln.html?welcher=432
auch automatisieren, sodass kein F9 nötig ist... ...

ich glaube, das geht nicht, da meines Wissens eine Farbänderung von Excel nicht als Change-Event erkannt werden kann.

[Jockel]

Hi Jörg,


ich glaube, das geht nicht, da meines Wissens eine Farbänderung von Excel nicht als Change-Event erkannt werden kann.

Hallo Ralf, das ist schade, dann muss man eben, wenn man fertig ist, F9 drücken...

[RPP63]

Hallo Jörg!
Eine Möglichkeit wäre, eine einzelne Zelle, in der nichts steht, per Application.OnTime im Sekundentakt neu zu berechnen.
Range("ABC10000").Calculate
Dadurch werden evtl. umfangreichen Formeln im Blatt nicht neu berechnet,
jedoch alle volatilen Formeln!
(dazu zählt auch die benamte ZELLE.ZUORDNEN)

Gruß Ralf

[Jockel]

Hallo Jörg!
Eine Möglichkeit wäre, eine einzelne Zelle, in der nichts steht, per Application.OnTime im Sekundentakt neu zu berechnen.
Range("ABC10000").Calculate
Dadurch werden evtl. umfangreichen Formeln im Blatt nicht neu berechnet,
jedoch alle volatilen Formeln!
(dazu zählt auch die benamte ZELLE.ZUORDNEN)

Gruß Ralf

Hallöchen Ralf, hatte ich erwähnt, dass VBA und ich keine Freunde sind..? Dass was, du schreibst, klingt gut, aber was genau muss ich wohin schreiben, damit das funzt..?

[RPP63]

Hi again!
Da Excel4-Makros ja ohnehin als .xlsm gespeichert werden müssen, hier mal ein Beispiel:

In ein allgemeines Modul (Einfügen, Modul):

Modul Modul1

Option Explicit 
Public StartTime As Date 
Public Const Intervall As Long = 1 ' in sec. 
 
Public Sub Rechnen() 
    StartTime = Now + TimeSerial(0, 0, Intervall) 
    Application.OnTime StartTime, "Rechnen" 
    Range("Z12345").Calculate 
End Sub 
 

Ins Klassenmodul der Tabelle (Rechtsklick auf Tabellenreiter, Code anzeigen):

Microsoft Excel Objekt Tabelle1

Option Explicit 
 
Private Sub Worksheet_Activate() 
Call Rechnen 
End Sub 
 
Private Sub Worksheet_Deactivate() 
    On Error Resume Next 
    Application.OnTime StartTime, "Rechnen", , False 
    On Error GoTo 0 
End Sub 

Gruß Ralf

[Jockel]

Hi again!
Da Excel4-Makros ja ohnehin als .xlsm gespeichert werden müssen...
Gruß Ralf

Hi Ralf, ich werde es nachher ausprobieren. Erstmal vorab vielen Dank...

P.S. Diie Datei muss nicht unbedingt als xlsm abgespeichert werden - meine hier ist als xlsb abgespeichert. (^_-)


P.S.1: habe es so hemacht, aber wenn ich die Schiftfarbe im Nachherein ändere, passiert nix... ;-(

[RPP63]

Anbei mal meine Testdatei (natürlich als .xlsb gespeichert)  :05:
Du musst Tabelle1 aktivieren.

Gruß Ralf

[Jockel]

Hi Ralf, jetzt tut's is ja komisch... Jetzt lässt sich die Datei allerdings nicht mehr schließen. Erst wenn ich Excel beende, kann die Datei geschlossen werden...

[RPP63]

Jetzt lässt sich die Datei allerdings nicht mehr schließen. 

Ja da muss noch was ins _Open und _BeforeClose
Warte noch etwas, brauchst mein Beispiel auch nicht öffnen ...