Forum des Access-Tutorials

Zellen Farbe erkennen (VBA)

oneonly90, Sonntag, 27.01.2019, 21:27 (vor 83 Tagen) @ Martin Asal

Ah okay ich glaub ich bin schön langsam dran
dh so zählt die Funktion praktisch die Anzahl der farbigen Zellen
ist zwar nicht ganz perfekt aber es macht das was ich wollte

Public Function color(z As Range) As Long
Dim i As Long
Dim a As Long
Dim l As Long

a = z.Count
For i = 1 To a
If (z.Cells(1, i).Interior.color < RGB(255, 255, 255)) Then
l = l + 1
End If
Next
color = l
End Function

Lg