VB Script für Excel

Public Function HighlightDublicates()
On Error Resume Next
  Dim colDuplicates As Collection
  Dim ws As Worksheet
  Dim wsName As String
  Dim i As Integer
  Dim j As Integer
  Dim x As Integer
  Dim intRows As Integer
  Dim actualB As String
  Dim actualG As String
  Dim thisB As String
  Dim thisG As String
    wsName = "Tabelle1"  
    Set ws = Worksheets(wsName)
    ws.Activate
    intRows = ws.Cells(Rows.Count, 1).End(xlUp).Row

  For i = 1 To intRows
    Set colDuplicates = New Collection
    actualB = ws.Range("B" & i).Value  
    actualG = ws.Range("G" & i).Value  
    colDuplicates.Add i
    For j = 1 To intRows
      thisB = ws.Range("B" & j).Value  
      thisG = ws.Range("G" & j).Value  
      If actualB = thisB Then
        If actualG = thisG Then
          colDuplicates.Add j
        End If
      End If
    Next j
    If colDuplicates.Count > 2 Then
      For x = 1 To colDuplicates.Count
        ws.Range("B" & colDuplicates(x)).Interior.ColorIndex = 3  
        ws.Range("G" & colDuplicates(x)).Interior.ColorIndex = 3  
      Next x
    End If
    Set colDuplicates = Nothing
  Next i
End Function