Gruppe
Allgemein
Problem
Wie kann ich die Anzahl in einer Tabellenspalte vorkommender Namen ermitteln?
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