Zählen wenn
05.12.2003 10:28:16
Pete
Möchte folgende Funktion mit VBA ersetzen.
=9988-ZÄHLENWENN(A12:A10000;"")
Sub zählenwenn()
Dim letzte As Long
Dim anzahl As Long
letzte = Range("A10000").End(xlUp).Row
anzahl = WorksheetFunction.CountIf(Range("A12:A" & letzte), "ja")
MsgBox anzahl
End Sub
Leiderer liefert meine
Sub nichts vernünftiges zurück.
Wer kann helfen? Danke im Vorraus!