Das war nur es erkennt nicht Zahlen 0 oder 1, jetzt geht es musste nur ändern in 3;3 oder so. Und jetzt was anderes ich habe 1.reihe D18 bis UHE18 2.reihe D19 bis UHE19 3.reihe D20 bis UHE20 4.reihe D21 bis UHE21 5.reihe D22 bis UHE22 Ich suche in den 5 reihen nach verschieden (1;1 ,1;0 ,0;1 und und und) Wenn es was findet ist gelb kann ich die gelben Zählen? das es mir in der 6 reihe zeigt da sind 5 gelbe.? mfg Seven....
Sub Farben_zählen() Dim cell As Range Dim i As Integer i = 0 For Each cell In Sheets("Tabelle1").UsedRange If cell.Interior.ColorIndex = 6 Then i = i + 1 Next cell MsgBox ("Die Farbe mit der Nummer 6 wurde " & i & " mal gesetzt") End Sub
Gruß Marcus
Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen. Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.
