ZählenWenn / CountIF
09.09.2003 19:09:07
HerbertS
ich suche die Lösung für die Funktion "ZÄHLENWENN" in VBA, also COUNTIF.
Ich möchte die Anzahl der x von A3 bis A7 zählen.
In der Tabelle funktionierts so: =ZÄHLENWENN(A3:A7;"x")
In VBA läuft's nicht:
Sub xTest()
Set adr = Worksheets("Tabelle1").Range("A3:A7")
Anz = Application.WorksheetFunction.CountIf(adr, "x")
'MsgBox Anz
End Sub
Vielen Dank im Voraus für Euere Bemühungen.
HerbertS