Herbers Excel-Forum - das Archiv
zählen:rote,nicht gefilterte
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ InputBox
- zählen:rote,nicht gefilterte von Peter vom 08.12.2003 15:33:37
- AW: zählen:rote,nicht gefilterte - von Martin Beck am 08.12.2003 17:30:03
- AW: zählen:rote,nicht gefilterte - von Peter am 09.12.2003 10:05:25
- AW: zählen:rote,nicht gefilterte - von Martin Beck am 09.12.2003 13:42:00
- AW: zählen:rote,nicht gefilterte - von Martin Beck am 09.12.2003 13:42:00
- AW: zählen:rote,nicht gefilterte - von Peter am 09.12.2003 10:05:25
- AW: zählen:rote,nicht gefilterte - von Martin Beck am 08.12.2003 17:30:03
 |
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
 |
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
|
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
|
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
| |