VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bei der Auswahl eines doppelt vorkommenden Wertes Farbe setzen

Gruppe

Ereignis

Bereich

SelectionChange

Thema

Bei der Auswahl eines doppelt vorkommenden Wertes Farbe setzen

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und SelectionChange