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