title image


Smiley Re: Zellen nach Farbfüllung Wert vergeben (VBA)
Hi Oliver,



  th {font-weight:normal}  AB1 32  3  Formeln der TabelleB1 : =farbezählen(A1:A50;5)  Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  









Function FarbeZählen(Bereich, Farbe)

Dim Zelle As Object

Application.Volatile

For Each Zelle In Bereich

  If Zelle.Interior.ColorIndex = Farbe Then FarbeZählen = FarbeZählen + 1

Next

End Function





Code eingefügt mit Syntaxhighlighter 4.0





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: