Bedingte Formatierung
29.06.2008 16:47:05
Heiko
ich hab mir einen Lottoschein selbstgebastelt. Sieht fast so aus wie der Echte (Aber nur fast). Die Lottozahlen werden in den Bereichen:
Spiel1 CM4:CR4
Spiel2 CM6:CR6
Spiel3 CM8:CR8
Spiel4 CM10:CR10 usw.eingetragen.
Wie kann ich mit Bedingter Formatierung den Bereichen wo die Zahlen (1 - 49) stehen für Spiel1 B4:N16, Spiel2 B18:N30 so gestallten das das ein Kreutz gesetzt wird. Ich habe zwar da einen Code im Forum gefunden. Der klappt aber nur wenn in eine bestimmte Zelle ein Buchstabe gesetzt wird. Wie kann man ihn umstellen das die Bereiche bei einer Übereinstimmung mit einem Kreutz gesetzt werden.
Gruß Heiko
Private Sub Worksheet_Calculate()
' diese Variante kostet natürlich Rechenleistung
' da bei jeder Eingabe der Bereich Formatiert wird
' Fülfarbe
' für Schrift RaZelle.Font.ColorIndex
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("B3:Y33,AD3:AZ33,BE3:CA33,C38:Y68,AD38:AZ68,BE38:CA68,C73:Y103,AD73: _
AZ103,BE73:CA103")
' noch mehr Bereiche
' Set RaBereich = Union(Range("C7:I26"), Range("L7:R26"), Range("U7:AA26"), Range("AD7:AJ26") _
)
' ab Vesion XP braucht der Schutz nicht aufgehoben werden
' Formatierung bei Schutz kann über Dialog Schutz eingestellt werden
For Each RaZelle In RaBereich
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
Select Case RaZelle.Value
Case "F"
' hellgelb
RaZelle.Interior.ColorIndex = 36
Case "M"
' hellgrün
RaZelle.Interior.ColorIndex = 35
Case "N"
' helltürkis
RaZelle.Interior.ColorIndex = 34
Case Else
' Keine
RaZelle.Interior.ColorIndex = xlNone
End Select
End If
Next RaZelle
Set RaBereich = Nothing
End Sub
