title image


Smiley Re: anzahl der zellen deren schriftfarbe rot ist...
Hallo,

das geht zB mit einer UDF.

Schreibe folgenden Code in ein Standardmodul:



Function ZellenmitSchriftfarbe(Bereich As Range, Farbe As Integer) As Long



Dim Zelle As Range

Application.Volatile

For Each Zelle In Bereich

If Zelle.Font.ColorIndex = Farbe Then

ZellenmitSchriftfarbe = ZellenmitSchriftfarbe + 1

End If

Next Zelle



End Function



Im Tabelleblatt kannst du jetzt zB diese Formel eingeben:

=ZellenmitSchriftfarbe(A1:D10;3) Dabei steht die 3 für Rot.

Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: