Zellen Farbe erkennen (VBA)

oneonly90, Sonntag, 27.01.2019, 21:27 (vor 170 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 :D

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


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum