AW: Falsche Zahl mit Farbe Markieren
26.04.2005 20:59:13
Frigo
Hi Heinz,
probier's damit:
Sub test()
MaxSpalte = 20 'nach der Woche mit dieser Spalte wird abgebrochen
ZeileMitSchichtart = 6
Do
ErsterWerktag = LetzterWerktag + 1 + 3 'wegen 3 Zwischenspalten
summe = Cells(ZeileMitSchichtart, ErsterWerktag)
summe = summe + Cells(ZeileMitSchichtart, ErsterWerktag + 1)
summe = summe + Cells(ZeileMitSchichtart, ErsterWerktag + 2)
summe = summe + Cells(ZeileMitSchichtart, ErsterWerktag + 3)
summe = summe + Cells(ZeileMitSchichtart, ErsterWerktag + 4)
If summe = 6 Then
Farbe = 4 'grün
Else: Farbe = 3 'rot
End If
Range(Cells(ZeileMitSchichtart, ErsterWerktag), Cells(ZeileMitSchichtart, ErsterWerktag + 4)).Interior.ColorIndex = Farbe
LetzterWerktag = ErsterWerktag + 4
Loop Until LetzterWerktag >= MaxSpalte
End Sub
Frigo