Hallo Robert,
füge dann einfach die Anweisuungen für diese Zellen ein, z.B.:
PrivateSubCommandButton1_Click()
IfRange("B3").Interior.ColorIndex = 3 Then
Range("B3").Interior.ColorIndex = 5
Range("B4").Interior.ColorIndex = ...
Range("B5").Interior.ColorIndex = ...
Else
Range("B3").Interior.ColorIndex = 3
Range("B4").Interior.ColorIndex = ...
Range("B5").Interior.ColorIndex = ...
EndIf
EndSub
Wenn du mehr als 2 Farbkombinationen darstellen willst, empfehle ich ein anderes Vorgehen, z.B.:
Sub Flaggen()
b = MsgBox("Anzeige zyklisch (ja) oder zufällig (nein)", vbYesNo, "Flaggenanzeigen")
Randomize
ReDim Flaggen(2, 5)
Flaggen(0, 0) = 1: Flaggen(1, 0) = 3: Flaggen(2, 0) = 6
Flaggen(0, 1) = 3: Flaggen(1, 1) = 2: Flaggen(2, 1) = 5
Flaggen(0, 2) = 3: Flaggen(1, 2) = 2: Flaggen(2, 2) = 43
Flaggen(0, 3) = 6: Flaggen(1, 3) = 43: Flaggen(2, 3) = 3
Flaggen(0, 4) = 3: Flaggen(1, 4) = 2: Flaggen(2, 4) = 3
Flaggen(0, 5) = 2: Flaggen(1, 5) = 43: Flaggen(2, 5) = 3
i = 0
Do
For j = 3 To 5
Cells(j, 2).Interior.ColorIndex = Flaggen(j - 3, i)
Next j
If b = vbYes Then
i = i + 1: If i > UBound(Flaggen, 2) Then i = 0
Else
i = Int((UBound(Flaggen, 2) + 1) * Rnd)
End If
Loop Until MsgBox("Noch einmal?", vbYesNo, "Flaggenanzeigen") = vbNo
End Sub
Gruß
Holger
|