Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
164to168
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
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fehlermeldung bei WorksheetFunction.Find !

Fehlermeldung bei WorksheetFunction.Find !
04.10.2002 11:24:10
Ronny
Hallo zusammen,

ich möchte abfragen, ob eine Zelle eine Bezeichnung beinhaltet inklusive einer If Bedingung.

Als Worksheetlösung sähe das beispielsweise so aus:

Die Zelle D7 hat den Inhalt: "Size: Midi 3 x"

In Zelle E7 käme die Formel: =IF(ISNUMBER(Find("Midi";D7));"gefunden";"nicht gefunden")

Diese Lösung funktioniert.
Mache ich das gleiche in VBA, funktioniert es nur,
wenn das Kriterium "Midi" vorhanden ist, ansonsten
bekommen ich die Fehlermeldung: "Unable to get the
find property of the WorksheetFunction Class".

Meine fehlerhafte VBA Lösung:

Material = Zelleninhalt (als String wie auch Varianttype versucht)

If IsNumeric(Application.WorksheetFunction.Find("Midi", Material)) then
....
end if

Hat jemand eine Lösung dafür ?
Besten Dank im voraus.

Ronny.D

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Fehlermeldung bei WorksheetFunction.Find !
04.10.2002 12:44:34
Jürgen
Hallo Ronny,

versuch's mal mit der Find-Methode:

Viel Glück
Jürgen

Re: Fehlermeldung bei WorksheetFunction.Find !
04.10.2002 12:45:16
Chris
If ActiveSheet.Cells(7, 4).Formula Like "*" & "Midi" & "*" Then
MsgBox ("vorhanden")
Else
MsgBox ("nicht vorhanden")
End If


Gruss
Chris

Re: Fehlermeldung bei WorksheetFunction.Find !
04.10.2002 13:44:40
Ronny
Hallo,

Danke für die Antworten.
Inzwischen habe ich den Tip bekommen,
es ohne "WorksheetFunction" zu probieren,
also nur "Application.Find".
Funktioniert einwandfrei.

Warum verstehe ich allerdings nicht, da
unter "Application." kein Find angezeigt
wird (nur FindFile oder FileFind), unter
"WorksheetFunction." schon.

Aber man muß ja nicht alles verstehen !

Noch einen schönen Tag. Gruß Ronny

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige