VBA-Beispiel 108
mail schreiben
mail schreiben

Excelspalte nach einem Begriff durchsuchen und zählen

Durchsucht eine Spalte nach einem Suchbegriff und zählt wie oft dieser vorkommt.
Sub SuchenZählenMitCountIf()
Dim strSuchbegriff As String
Dim lngTreffer As Long

'CountIf = Zählenwenn

strSuchbegriff = InputBox("Geben Sie einen Suchbegriff ein:", _
                          "Durchsucht Spalte C", _
                          "Montage")

lngTreffer = Application.WorksheetFunction.CountIf(Columns(3), strSuchbegriff)

MsgBox lngTreffer & " mal " & strSuchbegriff, , ""

End Sub
Hinweis:

hat der Suchbegriff mehr als 255 Zeichen, entsteht mit CountIf ein Laufzeitfehler.
Verwenden Sie dann dieses Beispiel: Alternative zu CountIf

Download:   vba108.zip