Find Funktion mit Objektfehler
19.07.2007 11:31:00
Markus
Ich habe ein Problem und habe leider zu diesem Thema noch nicht wirklich was im Internet finden können.
(Vermutlich ist mein Denkansatz auch nicht ganz richtig...)
Naja also ich habe eine Find Funktion mit der ich Nach einem bestimmten Wort in einer Tabelle suche und dort wo er was findet kopiert er die Zeile und zum Schluss wirft er mir alle gefunden Rows in ein eigenes Arbeitsblatt rüber.
Es funktioniert alles, nur wenn ich nach einem Wort suche, dass es nicht gibt (sagt er mir schon Wort gibt es nicht) jedoch bekomme ich immer einen Objekt erforderlich (Fehler 424) ausgespuckt (ganz zum Schluss erst.)
Hier meine Funktion (wird mit einem kurzen Sub aufgerufen)
Public Function Find_Range(Find_Item As Variant, _
Search_Range As Range, _
Optional LookIn As Variant, _
Optional LookAt As Variant, _
Optional MatchCase As Boolean) As Range
Dim c As Range
If IsMissing(LookIn) Then LookIn = xlValues 'xlFormulas
If IsMissing(LookAt) Then LookAt = xlPart 'xlWhole
If IsMissing(MatchCase) Then MatchCase = False
With Search_Range
Set c = .Find( _
What:=Find_Item, _
LookIn:=LookIn, _
LookAt:=LookAt, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=MatchCase, _
SearchFormat:=False)
If c Is Nothing Then
MsgBox ("Leider nix gefunden") '***Das wird noch ausgegeben und nachher Sagt er:
'***OBJEKT ERFORDERLICH!
Exit Function
Else
Set Find_Range = c
firstAddress = c.Address
Do
Set Find_Range = Union(Find_Range, c)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
End Function
Kann mir vielleicht einer Helfen ? Ich bin mit meinem Latein echt am Ende ... :-(
Vielen Dank für die Hilfe schonmal im vorraus
Schöne Grüße
Markus