Ich habe z.B. 70 Datensätze.
Ich möchte jetzt die Anzahl der Datensätze zusammenzählen, welche in der spalte A z.B. Gelb markiert sind.
Z.B. 4 markierte Zellen in Spalte A ergeben die Anzahl 4.
Für eine Hilfe wäre ich dankbar
Josef
Ich habe z.B. 70 Datensätze.
Ich möchte jetzt die Anzahl der Datensätze zusammenzählen, welche in der spalte A z.B. Gelb markiert sind.
Z.B. 4 markierte Zellen in Spalte A ergeben die Anzahl 4.
Für eine Hilfe wäre ich dankbar
Josef
Probieren....
Sub Farbenzählen()
Dim Zelle As Object
Dim rot%, gelb%, gruen%
'Bereich markieren
[A4:E20].Select
'Variablen auf 0 setzen
rot = 0: gelb = 0: gruen = 0:
'Zahlen
For Each Zelle In Selection
If Zelle.Interior.ColorIndex = 3 Then rot = rot + 1
If Zelle.Interior.ColorIndex = 6 Then gelb = gelb + 1
If Zelle.Interior.ColorIndex = 4 Then gruen = gruen + 1
Next
'Rückgabe der Variablen
[A1].Select
ActiveCell.Formula = rot
ActiveCell.Offset(0, 1).Select
ActiveCell.Formula = gelb
ActiveCell.Offset(0, 1).Select
ActiveCell.Formula = gruen
ActiveCell.Offset(0, -2).Select
'Rückgabe der Variablen
MsgBox "Rot: " & rot & Chr(10) & _
"Gelb: " & gelb & Chr(10) & _
"Grün: " & gruen '& Chr(10) & _
[A1].Select
End Sub
Gruß Toni
Danke an Euch beide für Eure Hilfe
Josef