Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bei der Auswahl eines doppelt vorkommenden Wertes Farbe setzen

Gruppe

SelectionChange

Problem

Bei der Auswahl eines in einer Liste doppelt vorkommenden Wertes soll sich die Hintergrundfarbe ändern.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

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