zählen:rote,nicht gefilterte

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox
Bild

Betrifft: zählen:rote,nicht gefilterte
von: Peter
Geschrieben am: 08.12.2003 15:33:37

wie kann ich per vba zählen: alle roten _und_ nicht gefilterten zellen?

oder noch besser: inputbox für farbe -> inputbox(en) für einschlüsse oder ausschlüsse -> zählen

thx4hlp
peter

Bild


Betrifft: AW: zählen:rote,nicht gefilterte
von: Martin Beck
Geschrieben am: 08.12.2003 17:30:03

Hallo Peter,

versuch's mal so:


Sub rot_ungefiltert()
anz = 0
For Each cell In ActiveSheet.UsedRange
    If cell.Interior.ColorIndex = 3 And Rows(cell.Row).Hidden = False Then
        anz = anz + 1
    End If
Next
MsgBox anz
End Sub


Gruß
Martin Beck


Bild


Betrifft: AW: zählen:rote,nicht gefilterte
von: Peter
Geschrieben am: 09.12.2003 10:05:25

so hab ichs übernommen:


Sub rot_ungefiltert()
Dim anz As Integer
Dim cell As Range
anz = 0
For Each cell In ActiveSheet.UsedRange
    If cell.Font.ColorIndex = 3 And Rows(cell.Row).Hidden = False Then
        anz = anz + 1
    End If
Next
MsgBox anz
End Sub



danke - funktioniert(fast) .. zählt allerdings eins zuviel ... mal schauen warum ...

gruß
peter


Bild


Betrifft: AW: zählen:rote,nicht gefilterte
von: Martin Beck
Geschrieben am: 09.12.2003 13:42:00

Hallo Peter,

nur eine Vermutung. Ist die erste Zeile, die die Saltenüberschrift enthält (=Zellen mit dem "Pfeil" des Autofilters) auch rot hervorgehoben? Diese Zellen würden mitgezählt.

Gruß
Martin Beck


Bild

Beiträge aus den Excel-Beispielen zum Thema " zählen:rote,nicht gefilterte"