AW: Bedingte Formatierung per VBA
13.04.2018 12:10:32
Domi
Sorry,
Korrekt ich habe mit dem _Change Eregnis gearbeitet.
Zur Eingabe: Ich nutze in Spalte F (6) und G (7) Manuelle Eingaben und in H wie gesagt die Formel.
Brauche ich dann zwei verschiedene Subs?
Danke für deine Hilfe!
Hier der volsltändige Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then
Select Case Target.Value
Case "1": Range(Cells(Target.Row, 6), Cells(Target.Row, 6)).Interior.ColorIndex = 43
Case "2": Range(Cells(Target.Row, 6), Cells(Target.Row, 6)).Interior.ColorIndex = 44
Case "3": Range(Cells(Target.Row, 6), Cells(Target.Row, 6)).Interior.ColorIndex = 45
Case "4": Range(Cells(Target.Row, 6), Cells(Target.Row, 6)).Interior.ColorIndex = 9
Case Else: Range(Cells(Target.Row, 6), Cells(Target.Row, 6)).Interior.ColorIndex = xlNone
End Select
End If
If Target.Column = 7 Then
Select Case Target.Value
Case "1": Range(Cells(Target.Row, 7), Cells(Target.Row, 7)).Interior.ColorIndex = 43
Case "2": Range(Cells(Target.Row, 7), Cells(Target.Row, 7)).Interior.ColorIndex = 44
Case "3": Range(Cells(Target.Row, 7), Cells(Target.Row, 7)).Interior.ColorIndex = 45
Case "4": Range(Cells(Target.Row, 7), Cells(Target.Row, 7)).Interior.ColorIndex = 9
Case Else: Range(Cells(Target.Row, 7), Cells(Target.Row, 7)).Interior.ColorIndex = xlNone
End Select
End If
With Target
If .Rows.Count > 1 Or .Columns.Count > 1 Then Exit Sub
If Application.Intersect(Range("H:H"), Target) Is Nothing Then Exit Sub
If .Value