Habe in Spalte"A" mehrer Namen stehen und möchte nun per Makro überprüfen
wie oft der gleiche Name vorkommt .Die Antwort dann in einer MsbBox anzeigen zu lassen.
zb. so "Der Name Ralf kommt 4 mal vor".Kann mir einer Helfen ?
Gruss
Ralf
Gruß
dieter(drummer)
A | B | C | D | |
1 | Hugo | Suche nach | Kommt vor | |
2 | Werner | Hugo | 2 | |
3 | Hugo | |||
4 | Ralf | |||
5 | Günther | |||
6 | ||||
7 |
Formeln der Tabelle | ||||
|
Sub Namen_Suchen()
Dim strName As String
strName = InputBox("Nach welchem Namen soll gesucht werden?")
MsgBox ("Der Name " & strName & " ist " & Application.WorksheetFunction.CountIf(Range("A:A"), _
strName) & " Mal vorhanden.")
End Sub
Schönen Gruß,
Andi