Hallo Forumgemeinde,
leider bin ich trotz umfangreicher Suche für mein Problem nicht fündig geworden. Die beschriebene Lösungen konnte ich nicht umsetzten.
Nun zu meiner Frage / Situation.

In einem Bereich suche ich danach wie oft ein bestimmter Wert vorkommt.
Da habe ich so gelöst:
Dim Anz as long
Anz = Application.WorksheetFunction.CountIf(Range("B32:O32"), ActiveCell.Value)
Nun möchte ich den Suchbereich um zusätzliche nicht zusammenhängende Bereiche erweitern.

Als Ansatz 1 wollte ich die zusätzlichen Bereiche mit angeben. Ungefähr so :
Anz = Application.WorksheetFunction.CountIf(Range("B32:O32, "B35:O35"), ActiveCell.Value)
Fehlermeldung: Die CountIF Anweisung konnte nicht zugeordnet werden

Ansatz 2
Speichern der Rangebereiche in einer Variablen und dann die Variable verwenden
In dieser Art und Weise

Dim rngBereich2 As Range
Set rngBereich2 = Range("B32:O32,B35:O35")
Anz = Application.WorksheetFunction.CountIf( & rngBereich2 &, ActiveCell.Value)

Leider auch erfolglos.
Sicher erkennt ihr sofort meinen Fehler.

Vorab vielen Dank im Voraus für eure Antworten.
Lehrling Frank