Falsche Zahl mit Farbe Markieren

Bild

Betrifft: Falsche Zahl mit Farbe Markieren
von: HeinzH
Geschrieben am: 26.04.2005 09:58:39
Hallo Leute
Habe in den Zellen D6:H6, L6:P6 usw.Zahlen von 1 bis 3, für Schichtplan,es müsste immer die Zahl 6 rauskommen.
Habe es mit=(Summe(D6:h6)und mit bedingeter Formatierung gemacht.wenn ungleich 6 dann rot.Funkt.auch.
Kann man das auch über VBA machen?? Wie lautet bitte der Code
Danke für Eure Hilfe
gruß Heinz

Bild

Betrifft: AW: Falsche Zahl mit Farbe Markieren
von: Frigo
Geschrieben am: 26.04.2005 20:59:13
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
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Falsche Zahl mit Farbe Markieren"