VBA kompakte Find-Row-Funktion mit Error-Abfrage
23.07.2004 20:50:52
Ralf
ich habe folgendes VBA-Problem:
Ich möchte eine möglichst kompakte FIND/ROW Funktion/Positionsbestimmung nutzen die aber auch dann funktioniert, wenn es keinen Suchtreffer gibt - bisher hat dies mit folgender Anweisung immer recht gut geklappt - aber eben nur wenn ein Suchtreffer erzielt wurde:
SuchZeile = Workbooks(ZIEL).Sheets(BlattZiel).Range("C1:C65536").Find(Workbooks(QUELLE).Sheets(BlattQuelle).Cells(Zeile, Spalte).Value, LookIn:=xlFormulas, LookAt:=xlPart, MatchCase:=False).Row
Mit 'SuchZeile' habe ich dann entsprechend direkt weitergearbeitet. Mein Ziel war, das eher aufwendige suchen mit:
With Workbooks(Ziel).Sheets(BlattZiel).Range("C1:C65536")
SuchZeile = .Find(Workbooks(QUELLE).Sheets(BlattQuelle).Cells(Zeile, Spalte).Value, LookIn:=xlFormulas, LookAt:=xlPart, MatchCase:=False)
End With
If SuchZeile is Nothing goto ErrorMeldung1 else ...
in einen Einzeiler zu ändern.
Kann man ersteren Part ev. mit Nothing, IsError, 0, IsEmpty oder was auch immer in eine elegante Fehlerabfrage einklammern? Ich habe vieles probiert, VBA geht mir aber nicht drüber.
Danke