WorksheetFunktion Match funktioniert nicht
28.10.2004 13:57:41
KleinKatha
nachdem ich hier im Forum die Verwendung von Match gefunden habe, dachte ich alles sei wunderbar. Leider bekomme ich jedoch immer einen Laufzeitfehler.
"Die Match-Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden".
Sieht jemand einen Grund dafür?
Sub zaehlen()
text = Cells(1, 2)
i = 1
Do
summe1 = Application.WorksheetFunction.CountIf(Range("B:B"), text)
Cells(i, 3) = summe1
Cells(i, 4) = text
b = Application.WorksheetFunction.Match(text, Range("B:B"), 1)
text = Cells(b + 1, 2)
i = i + 1
Loop Until text = ""
End Sub
Danke,
Katharina