Re: if then abfrage mit selection.find

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

Hallo Bernd,

Vielen Dank hat funktioniert!
Endlich..... ;)




"Bernd Held" schrieb:

> Hallo Andreas,
>
>
> "Andreas" <Andreas@xxxxxxxxxxxxxxxxxxxxxxxxx> schrieb im Newsbeitrag
> news:6E880196-E541-4068-8180-BE3B23D5084C@xxxxxxxxxxxxxxxx
> > Hallo VBA experts,
> >
> > ich habe ein problem mit Selection.Find.
> > bsp:
> > Selection.Find(what:=String, after:=ActiveCell, LookIn:=xlFormulas,
> > lookat:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext,
> > MatchCase:=False, searchformat:=False)
> >
> > lautet meine abfrage.
> > Wenn jetzt selection.find nicht findet bekomme ich eine Fehlermeldung!
> > ich möchte aber das wenn die abfrage eben nichts findet in meinem Makro
> > etwas anderes bearbeitet.
> > ich habe es schon mit einer If abfrage probiert doch dann bekomme ich die
> > Fehlermeldung Laufzeitfehler :'92'
> > und Objektvariable oder Withblockvariable nicht festgelegt.
> >
> > Wie kann ich jetzt festlegen das wenn "selektion.find" nichts findet also
> > false wäre oder so, dann etwas anderes machen soll!!!
> >
> > Vielen dank im Vorraus für eure Hilfe,
> > ich bin für jeden Rat dankbar!
> > MFG Andreas
>
> set Zelle=Selection.Find(what:=String, after:=ActiveCell,
> LookIn:=xlFormulas,
> lookat:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext,
> MatchCase:=False, searchformat:=False)
> if zelle is nothing then msgbox "nix gefunden!"
>
> Viele Grüße
> Bernd
> MVP für Microsoft Excel
> VBA-Bücher mit Leseproben(PDF), Excel-VBA-Code-CDROM und Seminare
> unter http://held-office.de
>
>
>
.

Relevant Pages