Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Anzahl in einer Liste vorkommender Namen zählen

Gruppe

Liste

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