WorksheetFunction
15.01.2013 12:11:22
Gregor
Ich möchte in Spalte A eruieren, ob das Wort "ohne" vorkommt, aber nur in den Zellen, in denen _ in den Zeilen Spalte C nicht "keine" steht. Ich habe folgendes Makro geschrieben (umgeschrieben), erhalte aber die Meldung, die CountIf-Eigenschaft des WorksheetFunction- Objektes kann nicht zugeordnet werden. Wie kann ich diesen Fehler beheben?
Sub Test()
Dim Bereich As Range, i As Byte
For i = 1 To 25
If Cells(i, 3) "keine" Then
If Bereich Is Nothing Then
Set Bereich = Cells(i, 1)
Else
Set Bereich = Union(Bereich, Range(Cells(i, 1), Cells(i, 1)))
End If
End If
Next i
If WorksheetFunction.CountIf(Bereich, "ohne") Then
MsgBox "ja"
End If
End Sub
Vielen Dank
Gregor