Thema: Anzahl in einer Liste vorkommender Namen zählen

StandardModule: basMain

Sub nNamen()
   Dim rng As Range
   Dim iNames As Integer
   Application.ScreenUpdating = False
   Set rng = Range("A1").CurrentRegion
   Workbooks.Add
   rng.AdvancedFilter Action:=xlFilterCopy, _
      CopyToRange:=Range("B1"), Unique:=True
   iNames = Application.CountA(Columns(2))
   ActiveWorkbook.Close savechanges:=False
   MsgBox "Anzahl Namen: " & iNames
   Range("B2") = iNames
   Application.ScreenUpdating = True
End Sub

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