| VBA-Beispiel 108 | |
|
|
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 |
|
relevante Links:
|
|
| |