ich bräuchte da mal dringend etwas Hilfe was bedingte Formatierungen angeht. Das Thema wurde hier ja auch schon öfters behandelt, aber ich habe für mich leider keine passende Lösung gefunden.
Der Fall ist auch relativ einfach, ich habe halt ein Feld, dem ich je nach Wert 4 verschiedene Hintergrundfarben zuweisen will. Leider sind ja nur 3 standart. Mittlerweile habe ich heraus gefunden, dass man das über Makros steuern kann, haber wohl auch ein dazu passendes Makro schon im Netz gefunden. Ich bin aber absoluter Neuling was dergleichen in Excel angeht und weiß nicht wie ich das einbinden und editieren muss.
Ich schicke den Makro-Text mal mit und freue mich über jegliche (sinnvolle) Lösungsansätze!
Danke
Martin
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim EBereich As Range
Set EBereich = Range("E4:AI32")
'If Intersect(Target, EBereich) Is Nothing Then Exit Sub
If Target.Value = "" Then
Target.Interior.ColorIndex = xlNone
Target.Interior.Pattern = xlSolid
End If
If Target.Value = 1 Then
Target.Interior.ColorIndex = 4
Target.Interior.Pattern = xlSolid
End If
If Target.Value = 2 Then
Target.Interior.ColorIndex = 6
Target.Interior.Pattern = xlSolid
End If
If Target.Value = 3 Then
Target.Interior.ColorIndex = 3
Target.Interior.Pattern = xlSolid
End If
End Sub