Zellen Farbe erkennen (VBA)
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
gesamter Thread:
- Zellen Farbe erkennen -
oneonly90,
24.01.2019, 18:27
- Zellen Farbe erkennen -
Martin Asal,
25.01.2019, 11:52
- Zellen Farbe erkennen - oneonly90, 27.01.2019, 21:27
- Zellen Farbe erkennen -
Martin Asal,
25.01.2019, 11:52