find funktion

Forumthread: find funktion
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: find funktion

find funktion

17.10.2008 23:15:00

Swen

Hi @ all,
ich suche mit folgender funktion
einen string in einer tabelle
strtemp = Cells.Find(What:=strSearchUe, After:=ActiveCell, LookIn:=xlValues _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False)
nun kann es aber sein das der gesuchte paramter nicht vorhanden ist wie und es kommt ein fehler
wie könnte ich den code ändern so das der wert von strtemp "none" ist und er weiter läuft!
gruß
swen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: find funktion

17.10.2008 23:22:00

ransi
AW: find funktion

17.10.2008 23:41:19

Jens
AW: find funktion

18.10.2008 00:07:02

Tino

AW: find funktion

17.10.2008 23:22:00

ransi

Hallo
Versuch mal so:
on error resume next
strtemp = Cells.Find(What:=strSearchUe, After:=ActiveCell, LookIn:=xlValues _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False)
if strtmp is nothing then strtmp="none"
ransi

AW: find funktion

17.10.2008 23:41:19

Jens

Hi,
unerträglich diese Fuscherei, verwende eine Objektvariable und frag diese auf Nothing ab.
mfg Jens

AW: find funktion

18.10.2008 00:07:02

Tino

Hallo,
verwende ein Range- Objekt.
Beispiel:

Dim strTemp As String
Dim rngZelle As Range
  
  Set rngZelle = _
        Cells.Find(What:=strSearchUe, After:=ActiveCell, LookIn:=xlValues _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=True, SearchFormat:=False)

        If rngZelle Is Nothing Then
         strTemp = "none" 'nicht gefunden 
        Else
         strTemp = rngZelle.Value 'gefunden 
        End If