title image


Smiley Das ist nicht unmöglich!
Hallo,



also das ist nicht unmöglich und wenn die Tabelle schon existiert, muss man eben das Beste daraus machen.



Kopiere diesen Code in ein allgemeines Modul:







Option Private Module

Public Function Farbsumme(Bezug2 As Range, Farbref As Range) As Double

Application.Volatile

Dim Zelle As Range

Farbe = Farbref.Interior.ColorIndex

For Each Zelle In Bezug2

If Zelle.Interior.ColorIndex = Farbe And IsNumeric(Zelle.Value) Then

Farbsumme = Farbsumme + Zelle.Value

End If

Next

End Function





Code eingefügt mit Syntaxhighlighter 4.0







Gib dann in eine Zelle die Formel so ein:

=Farbsumme(A1:A5;B1)



Dabei ist A1:A5 der zu summierende/zählende Bereich und B1 eine Referenzzelle mit der entsprechenden Hintergrundfarbe.

Wenn du nicht summieren sondern zählen willst musst du

Farbsumme = Farbsumme + Zelle.Value

ersetzen durch

Farbsumme = Farbsumme + 1


Gruß,



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: