Hallo Steve

Hilfsspalten hätte ich schon selbst gelöste einfach verketten der Spalten und dann zählen.

Nein leider nicht es geht hier um ein User Problem, es wird immer wieder vergessen Kunden zusammenzufassen und ich muss mir dann

die Tabelle auseiander glauben, und so wüsste ich gleich wo ich suchen sollte, ich habe aber schon einen Code im Netz gefunden leider funktioniert er noch nciht so ganz, Vielleicht könntest du drüberschauen wo es hier haken könnte

Sub zusammenfassen()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim Kombination As String
Dim dict As Object
Dim FarbeGelb As Long
Dim FarbeHellgrau As Long

'Setze das Arbeitsblatt
    Set ws = ThisWorkbook.Sheets("XXXX")
    
    lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row

    Set dict = CreateObject("Scripting.Dictionary")

    FarbeGelb = RGB(255, 255, 0)
    FarbeHellgrau = RGB(192, 192, 192)

    For i = 2 To lastRow 'Beginnt in Zeile 2 (Zeile 1=Header)

    Kombination = ws.Cells(i, "A").Value & "|" & _
            ws.Cells(i, "E").Value & "|" & _
            ws.Cells(i, "F").Value & "|" & _
            ws.Cells(i, "G").Value & "|" & _
            ws.Cells(i, "H").Value & "|" & _
            ws.Cells(i, "I").Value

    If dict.exists(Kombination) Then
            ws.Cells(i, "C").Interior.Color = FarbeGelb
            ws.Cells(i, "F").Interior.Color = FarbeGelb
            ws.Cells(i, "N").Interior.Color = FarbeGelb

            ws.Cells(dict(Kombination), "C").Interior.Color = FarbeGelb
            ws.Cells(dict(Kombination), "F").Interior.Color = FarbeGelb
            ws.Cells(dict(Kombination), "N").Interior.Color = FarbeGelb
    Else
            ws.Cells(i, "C").Interior.Color = FarbeHellgrau
            ws.Cells(i, "F").Interior.Color = FarbeHellgrau
            ws.Cells(i, "N").Interior.Color = FarbeHellgrau
    dict.Add Kombination, i
    End If
    Next i
    Set dict = Nothing
End Sub