Bekomme zwar die zugewiesene Hintergrundfarbe bei Eingabe eines bestimmmten Buchstaben, aber wenn ich diesen Buchstaben wieder lösche bleibt diese Farbe in der Zelle stehen.
Kann man dies ändern so das Buchstabe weg auch die Hintergrundfarbe weg ist???
________________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column >= 3 And Target.Column <= 39 And Target.Row >= 17 And Target.Row <= 83 And (Target.Row - 11) / 6 = WorksheetFunction.Round((Target.Row - 11) / 6, 0) Then
Target.Interior.ColorIndex = xlNone
If IsEmpty(Target) = False Then
Target = UCase(Target)
If Target = "T" Then Target.Interior.ColorIndex = 3
If Target = "N" Then Target.Interior.ColorIndex = 4
If Target = "TV" Then Target.Interior.ColorIndex = 5
If Target = "NV" Then Target.Interior.ColorIndex = 6
If Target = "U" Then Target.Interior.ColorIndex = 7
If Target = "L" Then Target.Interior.ColorIndex = 8
If Target = "K" Then Target.Interior.ColorIndex = 9
If Target = "SP" Then Target.Interior.ColorIndex = 10
End If
End If
End Sub
Gruss Homer