Thema: Alle mehrfach vorkommenden Datensätze in zweiter Tabelle listen

StandardModule: basMain

Sub Vergleich()
   Dim lRow As Long
   Dim iRow As Integer
   Application.ScreenUpdating = False
   lRow = 2
   iRow = 1
   Range("A1").CurrentRegion.AdvancedFilter _
      Action:=xlFilterInPlace, Unique:=True
   Do Until IsEmpty(Cells(lRow, 1))
      If Rows(lRow).Hidden Then
         iRow = iRow + 1
         Worksheets("Tabelle2").Rows(iRow).Value = Rows(lRow).Value
      End If
      lRow = lRow + 1
   Loop
   ActiveSheet.ShowAllData
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Liste