AW: Bedingte Formatierung, wenn Zellwert woanders ..
07.09.2004 16:18:38
Andi
hi uwe ..
genau sowas bräuchte ich .. nur mit 8 Bedingungen, und Excel unterstützt nur 3 *argh* :-(
ich habe diese makro gefunden ..
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
' erstellt von Hajo.Ziplies@web.de 19.07.03, 30.10.03
' <a href="http://home.media-n.de/ziplies/">http://home.media-n.de/ziplies/</a>
' HINTERGRUND
' für Schrift RaZelle.Font.ColorIndex
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("E6:E500")
' noch mehr Bereiche
' Set RaBereich = Union(Range("C7:I26"), Range("L7:R26"), Range("U7:AA26"), Range("AD7:AJ26"))
' ActiveSheet.Unprotect ("Passwort")
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
Select Case UCase(RaZelle.Value) ' UMWANDLUNG DER Eingabe in Großbuchstaben
Case "A"
Range(RaZelle.Address, RaZelle.Offset(0, 3).Address).Interior.ColorIndex = 3
' rot
RaZelle.Font.ColorIndex = 0
' Schriftfarbe automatisch
'RaZelle.NumberFormat = "General"
' Zellenformat Standard
Case "B"
Range(RaZelle.Address, RaZelle.Offset(0, 3).Address).Interior.ColorIndex = 6
' gelb
RaZelle.Font.ColorIndex = 0
' Schriftfarbe automatisch
'RaZelle.NumberFormat = "General"
' Zellenformat Standard
Case "3"
Range(RaZelle.Address, RaZelle.Offset(0, 3).Address).Interior.ColorIndex = 4
' grün
RaZelle.Font.ColorIndex = 2
' Schriftfarbe Weiß
'RaZelle.NumberFormat = ";;;"
' nicht sichtbar
Case Else
Range(RaZelle.Address, RaZelle.Offset(0, 3).Address).Interior.ColorIndex = xlNone
' Keine
RaZelle.Font.ColorIndex = 0
' Schriftfarbe automatisch
'RaZelle.NumberFormat = "General"
' Zellenformat Standard
End Select
End If
Next RaZelle
' ActiveSheet.protect ("Passwort")
Set RaBereich = Nothing
End Sub
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Bei Eingabe im Bereich E6:E500 wird der Hintergrund der Spalten E bis H geändert
ich bin gerade dabei es zu verstehen ;-) , um es vielleicht zu verwenden ..