Office: VBA Problem

Ok ich versuch mein Problem mit VBA zu lösen :-)

Zelle A10 - Zelle C50000 sollen nach dem Wort "frei" durchsucht werden.
Ist die Anzahl der Wörter unter 1000 soll eine msgbox ausgegeben werden mit einem OK Button + dem Text Achtung !

Mit der Funktion countif funktioniert der "scan" ohne vba, im vba krieg ichs nicht hin : (

Für eure Hilfe wäre ich sehr dankbar :roll:

 

Ich hab mal den Bereich a10:c50000 mit dem Namen "suchmatrix" benamst. Dann habe ich einen Button "B_Worte" auf das Blatt gesetzt und mit folgendem Code gefüllt:

Code:

Private Sub B_Worte_Click()

    Dim n As Long
    Dim p As Long
    Dim cell As Range
    Dim z As Long
    Dim s As String
    Dim f As Long

    Cells(5, 3).ClearContents
    Range("suchmatrix").ClearContents
    n = Range("suchmatrix").Cells.Count
    p = 1000

    Application.Cursor = xlWait
    For Each cell In Range("suchmatrix")
        z = Int(Rnd() * n + 1)
        If (z <= p) Then
            s = "frei"
          Else
            s = "belegt"
        End If
        cell.Value = s
    Next cell
    Application.Cursor = xlDefault

    Cells(5, 3).Formula = "=countif(suchmatrix,""frei"")"

    f = Application.WorksheetFunction.CountIf(Range("suchmatrix"), "frei")
    MsgBox f

End Sub

Das belegt die Zellen des Bereichs mit "frei" / "belegt". Danach wird die Formel "zählenwenn" in Zelle c5 gesetzt und die gleiche Formel per VBA direkt aufgerufen. Das Ergebnis der msgbox sollte sich mit der Zahl in c5 decken.

Gruß, Michael