Microsoft Excel

Herbers Excel/VBA-Archiv

Farbanzahl | Herbers Excel-Forum


Betrifft: Farbanzahl von: Arend Keesenberg
Geschrieben am: 12.01.2010 10:01:30

Liebe Experten:

ich brauch bitte eure Hilfe mit dieser


Function aus eurem Forum:


Function RotZaehlen(Rg)
Dim C As Range
Application.Volatile
For Each C In Rg.Cells
If C.Interior.ColorIndex = 3 Then
RotZaehlen = RotZaehlen + 1
End If
Next C
End Function

denn das rot kommt bei mir über eine bedingte Formatierung und diese erkennt die

Function nicht.

Wie muss ich die 

Function abwandeln.

herzlichen Dank für Eure Hilfe


  

Betrifft: AW: Farbanzahl von: Rudi Maintaire
Geschrieben am: 12.01.2010 10:04:56

Hallo,
frag die Bedingung ab, unter der die Zellen rot werden.

Gruß
Rudi


  

Betrifft: AW: Farbanzahl von: Hajo_Zi
Geschrieben am: 12.01.2010 10:06:13

Hallo Arend,

die Farbe der bedingten Formatierung auslesen ist sehr kompliziert. Bei Deinem Level würde ich das sein lassen.
http://hajo-excel.de/chCounter3/getfile.php?id=153

GrußformelHomepage