Anzahl eines bestimmten Wertes in Bereich

Ich will ermitteln wie oft ein betsimmter Wert in einem Bereich
vorkommt folgenden Weg hätte ich eingeschlagen, das geht aber bestimmt eleganter, oder? (Hoffe jedenfalls)

Sub test()
Dim bereich As Range
Dim zelle As Range
Dim count as integer

count = 0
Set bereich = Range("A1:F17")

for each zelle in bereich
if zelle.value = "test" then count = count + 1
next
msgbox "Das Wort test ist: " & count & " mal enthalten."
end Sub

P.S.: Gibt es eigentlich eine Möglichkeit eine Integervariable
geschickter zu inkrementieren?

Vielen Dank für Eure Hilfe

Lars