If letzteZeile_filter <> lngZeilemax_Master Then
MsgBox ("Achtung! Anzahl der Material Group und Anzahl Complaints sind nicht gleich!")
If letzteZeile_filter > lngZeilemax_Master Then
Worksheets("Material Information").Range("A:A").SpecialCells(xlCellTypeVisible).Copy
Worksheets("tabelle1").Range("A:A").PasteSpecial (xlPasteValuesAndNumberFormats)
Worksheets("Material Information").ShowAllData
With Worksheets("tabelle1")
lngzeilemax_tabelle1 = .Cells(.Rows.Count, 1).End(xlUp).Row
Set objDic = CreateObject("Scripting.dictionary")
For Each rngZelle In .Range("A2:A" & lngzeilemax_tabelle1)
If rngZelle <> "" Then
If objDic.exists(rngZelle.Value) = False Then
objDic(rngZelle.Value) = 0
Else
lngDopp = lngDopp + 1
strdopp = strdopp & rngZelle.Value & vbLf
strRecID = rngZelle.Value
Set RaFound = Worksheets("Material Information").Range("A:A").Find(strRecID, LookIn:=xlValues)
If Not RaFound Is Nothing Then
lngZeile = RaFound.Rows
Worksheets("Material Information").Cells(lngZeile, 2).Interior.Color = RGB(255, 255, 0)
Workbooks("query_export_results.csv").Worksheets("query_export_results").Cells(i, 1).Interior.Color = RGB(255, 255, 0)
MsgBox RaFound.Row
Set RaFound = Nothing
End If
End If
End If
Next rngZelle
End With
MsgBox (lngDopp & " Record-IDs beinhalten in Spalte ""Primary"" mehr als ein "" Yes""!" & vbCrLf & strdopp)
End If
End If