Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

WorksheetFunction.Find ???

WorksheetFunction.Find ???
07.08.2003 13:08:17
herbert grom
hallo,
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.

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
 
     Code eingefügt mit Syntaxhighlighter 1.16


4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: WorksheetFunction.Find ???
07.08.2003 13:13:22
Nike
Hi,
find liefert dir ein Range objekt, daher wohl eher

Sub test()
zeileni = Cells(Rows.Count, 1).End(xlUp).Row
For a = 1 To zeileni
if instr(1,cells(zeileni,2),"-")>0 then
cells(zeileni,3) = cells(zeileni,2)
end if
Next
End Sub

Bye
Nike

AW: WorksheetFunction.Find ???
07.08.2003 13:34:23
herbert grom
hallo nike,
bingo, das wars!!! vielen dank und bis bald im JvE!
gruß herbert.

AW: WorksheetFunction.Find ???
07.08.2003 13:15:34
xXx
Hallo,
warum nicht InStr?
For a = 1 To zeileni
cells(a,3)=InStr(cells(a,2),"-")
Next
Gruß aus'm Pott
Udo

AW: WorksheetFunction.Find ???
07.08.2003 13:36:05
herbert grom
hallo udo,
bingo, das wars!!! vielen dank!
gruß herbert.

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige