Hallo Leute,
Ich habe eine Spalte mit Namen. Eine andere Spalte enthält die selben Namen, allerdings mehrmals und nicht sortiert. Ich möchte nun wissen wie oft die Namen in dieser Spalte vorhanden sind. Die Anzahl soll daneben stehen. Mit der Funktion Zählenwenn habe ich dies schon hinbekommen. Ich brauche aber einen VBA-Code diesbezüglich. Der folgende Code bezieht sich nur auf eine spezielle Zelle (bzw. einen Namen). Ich möchte, dass der Programmcode alle Namen in meiner Spalte abarbeitet.
VG, Yilo.
Sub SuchenZählenMitCountIf()
Dim strSuchbegriff As String
Dim lngTreffer As Long
strSuchbegriff = Range("C11").Value
lngTreffer = Application.WorksheetFunction.CountIf(Columns(1), strSuchbegriff)
Debug.Print lngTreffer & " mal " & strSuchbegriff, , ""
End Sub
|