Microsoft Excel

Herbers Excel/VBA-Archiv

VBA: Gleiche Werte untereinander

Betrifft: VBA: Gleiche Werte untereinander von: Jan
Geschrieben am: 09.10.2020 12:03:54

Hallo zusammen,


wie kann ich in VBA die gleichen und direkt untereinanderstehenden Werte in Spalte A (siehe angehängte Datei) zählen und farblich markieren?


Ich möchte lediglich nur gleiche Werte farblich markieren, wenn mehr als 3 untereinander stehen.


Danke für Hilfe vorab.


https://www.herber.de/bbs/user/140759.xlsx

Betrifft: AW: VBA: Gleiche Werte untereinander
von: JoWE
Geschrieben am: 09.10.2020 13:19:47

Hallo Jan,
versuch mal:
Sub faerben_mit_Bedingung()
  For Each w In Range("A2:A99")
   If Cells(w.Row, 1) > 0 And _
    Application.WorksheetFunction.Sum(Range(Cells(w.Row, 1), _
    Cells(w.Row + 2, 1))) = w.Value * 3 Then
     With Sheets(1).Range(Cells(w.Row, 1), Cells(w.Row + 2, 1))
       .FormatConditions.Delete
       .FormatConditions.Add Type:=xlExpression, Formula1:="=A" & _
        w.Row & "= " & w.Value
       .FormatConditions(1).Interior.ColorIndex = 6
     End With
    End If
   Next
End Sub

Gruß
Jochen