VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Hintergrund setzen, wenn mehr als 9 Einträge

Gruppe

Feature

Bereich

Bedingt

Thema

Hintergrund setzen, wenn mehr als 9 Einträge

Problem

Bei mehr als 9 zusammenhängenden Einträgen in Spalte B soll der jeweils erste Eintrag gelb markiert werden.

Lösung

Formel für die bedingten Formatierung: =ANZAHL2(B1:B9)>8




ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim var As Variant
   If Target.Column <> 1 Then Exit Sub
   With Worksheets("FarbIndex")
      var = Application.Match(Target.Value, .Columns(1), 0)
      If Not IsError(var) Then
         Target.Interior.ColorIndex = .Cells(var, 2)
      End If
   End With
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Feature und Bedingt