es könnte etwas problematisch sein nach Datumswerten zu suchen. Darüber was du wirklich suchst schweigst du dich ja aus.
dim rng as Range
set rng = .Range("A1:A"& lngZeileF -1).find(what:=Textbox1.value, LookAt.=xlwhole, Lookin:=xlVlaues)
if not rng ist nothing then
hier wurde etwas gefunden. also hier löschen der Textboxen.
else
nichts gefunden, hier werte eintragen
end if
|