Office: Set Anweisung mit If Abfrage ignorieren VBA

Hallo,

ich habe folgenden Code, in dem ich eine Zeile finden will. Das Problem ist, wenn die gesuchte Zeile nicht vorhanden ist, soll die suchanweisung ignoriert werden. Also keine Fehlermeldung sondern das Makro soll einfach weiter laufen. Irgendwie mit einer If Anweisung muss das doch gehen? Hier mein versuch:

Code:

Set Zeilefinden = Columns(2).Find(CVar("Wert"), lookat:=xlWhole)
If Zeilefinden = Nothing = True Then
Else
Cells(Zeilefinden.Row, 7) = Test1212
End If

Nur mit der Abfrage Zeilefinden= Nothing kommt ein Fehler: Unzulässige Verwendung eines Objekts.

Danke

 

Fehler gefunden!

Code:

Set Zeilefinden = Columns(2).Find(CVar("Wert"), lookat:=xlWhole)
If Zeilefinden Is Nothing Then
Else
Cells(Zeilefinden.Row, 7) = Test1212
End If

Trotzdem Danke

 

Hi Marius,

das Ganz kann man einfacher schreiben:

Code:

Set Zeilefinden = Columns(2).Find(CVar("Wert"), lookat:=xlWhole)
If Not Zeilefinden Is Nothing Then
   Cells(Zeilefinden.Row, 7) = Test1212
End If

Bis später,
Karin