WorksheetFunction.Find ???
07.08.2003 13:08:17
herbert grom
in einer tabelle habe ich telefonnrn. in der form "0190047-07000-941911". mit diesem makro prüfe ich, ob in der prüfzelle das "-"-zeichen vorhanden ist und gebe, wenn ja, einen wert in die spalte c aus. das macht es auch soweit, doch immer wenn in der prüfzelle kein "-" vorhanden ist, steigt es aus mit der fehlermeldung "Die Find-Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden."
nun habe ich es mit "if iserror" versucht abzufangen, doch ohne erfolg. auch alle anderen versuche schlugen fehl. wo stehe ich hier auf dem schlauch und sehe den wald vor bäumen nicht mehr?
vielen dank schon mal im voraus.
gruß herbert.
Code eingefügt mit Syntaxhighlighter 1.16
Sub test()
zeileni = Cells(Rows.Count, 1).End(xlUp).Row
For a = 1 To zeileni
Range("C" & a) = WorksheetFunction.Find("-", Range("B" & a))
Next
End Sub