Farbsumme automatisch berechnen lassen

[RPP63]

So:
Zusätzlich in DieseArbeitsmappe:
Microsoft Excel Objekt DieseArbeitsmappe

Option Explicit 

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
   On Error Resume Next 
   Application.OnTime StartTime, "Rechnen", , False 
   On Error GoTo 0 
End Sub 

Private Sub Workbook_Open() 
Tabelle1.Activate 
Call Rechnen 
End Sub 

Datei überarbeitet, jetzt darfst Du öffnen.

Gruß Ralf

[Jockel]

...
Datei überarbeitet, jetzt darfst Du öffnen.

Gruß Ralf

Hi Ralf, danke, es tut's genauso, wie es soll, danke. :17:

[Käpt'n Blaubär]

gelöscht, da überholt.

[schauan]

Hallo Jörg,
Gibt es eigentlich einen Grund für das Einfärben und wie zählst Du, wenn dem User irgendwann rosa besser gefällt als rot ?
Hintergrund:
Wenn der User die zu färbenden Zellen in einer Hilfsspalte mit x markiert oder anderswie eine Bedingung fest gelegt werden kann, dann hättest Du ja was zum zählen...

[Jockel]

Hallo Jörg,
Gibt es eigentlich einen Grund für das Einfärben und wie zählst Du, wenn dem User irgendwann rosa besser gefällt als rot ?
Hintergrund:
Wenn der User die zu färbenden Zellen in einer Hilfsspalte mit x markiert oder anderswie eine Bedingung fest gelegt werden kann, dann hättest Du ja was zum zählen...

Hi André, das war eine Anfrage einer Freundin. Sie wollte nur rote und schwarzen Zahlen aufsummieren... ... Sie hat für die Färbung, nach eigener Aussage, keine generellen Kriterien... (Auf die Idee bin ich auch gekommen... :21: )