Habe eine Tabelle mit Einträgen und dahinter 2 Zellen, die je nach Status mit einer Hintergrundfarbe gefüllt sind.
Die Anzahl der Felder mit versch. Farben kann ich schon zuverlässig zählen mit (Office 2007):
For Each zelle In Range("E3:E673")
If zelle.Interior.Color = 44544 Then 'Farbcode grün
anzahl1 = anzahl1 + 1
End If
If zelle.Interior.Color = 11776947 Then 'Farbcode grau
anzahl4 = anzahl4 + 1
End If
If zelle.Interior.Color = 955903 Then 'Farbcode orange
anzahl6 = anzahl6 + 1
End If
Next zelle
Cells(5, 12).Value = anzahl1
Cells(7, 12).Value = anzahl4
Cells(9, 12).Value = anzahl6
Nun habe ich aber auch eine Range D3:D673 wo ich das selbe mache.
Nun kommt es aber vor, dass D3=grün und E3=orange
Diese Anzahl will ich nun auch wissen, oder aber:
Wenn D3-Farbe ungleich E3-Farbe, dann soll in F3 ein Text stehen oder so.
Die Ungleich-Methode ist sicherlich total easy, aber ich hab vor dem heutigen Tag noch nie was mit VBA gemacht und steh da grad auf dem Schlauf |