Gruppe
Allgemein
Bereich
Liste
Thema
Anzahl in einer Liste vorkommender Namen zählen
Problem
Wie kann ich die Anzahl in einer Tabellenspalte vorkommender Namen ermitteln?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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