Gruppe
Ereignis
Problem
Bei der Auswahl eines in einer Liste doppelt vorkommenden Wertes soll sich die Hintergrundfarbe ändern.
ClassModule: Tabelle1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Set rng = Range("E6:G10")
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, rng) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf(rng, Target.Value) > 1 Then
Target.Interior.ColorIndex = 6
Target.Font.Bold = True
Else
Target.Interior.ColorIndex = xlColorIndexNone
Target.Font.Bold = False
End If
End Sub