Suchfunktion und bed. Formatierung
15.09.2002 20:29:19
Dirk
habe folgendes Problem: Die von mir verwendete Suchfunktion hängt sich auf, wenn ich doppelte Werte im Suchbereich über eine bedingte Formatierung markieren lasse.
Hier ein Auszug aus dem Code:
Set rngSuch = tb1.[C5:C5000]
Set rngFound = rngSuch.Find(What:=sTmp, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If rngFound Is Nothing Then
Exit for
Wenn ich die Ausführung dann unterbreche, ist "If rngfound is nothing then" markiert.
Schon jetzt vielen Dank für Hilfestellungen!
Gruss Dirk
Anzeige