|
Liebe Leute
Ich bin neu im Forum.
Ich arbeite an einer Tabelle über Teamverfügbarkeit in einem Theater, in der über viele, viele bedingte Formatierungen Farbfelder erzeugt werden.
Jede Spalte ist ein Mitarbeiter.
Die Zeiklen sind die Tage.
In Zeile AZ werden die Inszenierungen eingetragen, die dann die entsprechenden Mitarbeiter in einer speziellen Farbe einfärben, wenn diese verfügbar sind.
Alles was grün ist (RGB 0,255,0) sind die freien Tage.
Ich verschiebe die Inszenierungen ständig herum um das Optimum zu finden.
Ich möchte nun auf einen Blick sehen, ob es bei der jeweiligen Variante mindestens 14 ZUSAMMEWNHÄNGENDE grüne Felder pro Spalte gibt und habe dazu diesen VBA Code geschrieben:
Function Urlaubstage(x)
'x ist die Spalte
Dim i As Integer
Dim c As Range
Dim imax As Integer
Const Grundfarbe = 4
x = 5
i = 0
imax = 0
For Each c In Range(Cells(x, 10), Cells(x, 120))
If c.Interior.ColorIndex = Grundfarbe Then
i = i + 1
Else: i = 0
End If
If i > imax Then
imax = i
End If
Next c
Debug.Print imax
End Function
Merkwürdigerweise gibt aber die Funktion c.Interior.ColorIndex bei Weiß den Wert -4142 aus
Bei Grün UND Blau UND Geld dagegn 4,
was läuft da falsch?
Hat jemand eine bessere Idee?
Grüsse SuPerp
|