Farbe der markierten Zellen zählen
09.02.2005 09:48:21
Kammereck
Ich stehe vor folgendem Problem. Ich möchte in "Echtzeit", wenn ich mit der Maus einen Bereich markiere, an einer beliebigen Stelle (z.B. D1) die enstprechende Farbe des Bereiches zählen, den ich mit der Maus markiert habe. Die Farbe ist eigentlich egal, deshalb nehme ich "colorindex <> xlnone".
Ich habe es mit folgendem Code probiert, aber es funktioniert nicht.
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Range("D1").Select
Dim Bereich As Range
Dim a As Byte
For Each cell In Bereich
If Activecell.Interior.ColorIndex <> xlNone Then a = a + 1
Next cell
End Sub