'entwickelt von Winfried Radner
'e-mail: Wolf.W.Radzinski@gmx.de
'Benutzung frei - ohne Gewähr

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'+  treffer_collection:
'+
'+  DIESES TEIL WÜRDE ICH HEUTE NICHT MEHR SO SCHREIBEN,
'+  SONDERN SIEHE STATTDESSEN ÄHNLICHE LÖSUNGEN UNTEN 
'+
'+
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Codefile: http://www.rendar.de/excel/treffer_collection.bas

selektiere einen Bereich oder ein ganzes Arbeitsblatt und rufe
danach die Funktion

Eing_suchen()

auf, diese Fkt. erstellt eine Range-Collection aller Übereinstimmungen.
Geprüft wird Range.Formula

mit den Funktionen

gehe_zum_naechsten()
gehe_zum_vorherigen()

bewegt man sich durch die Ergebnismenge jeweils eine Fundstelle vor oder zurück

der Cursor steht dabei in der Zelle genau HINTER der Fundstelle -
dies ist voreingestellt durch die Konstanten rpos und cpos


'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'+  
'+
'+ NEUE BEISPIELE für SUCHEN EINFÜGEN ERSETZEN ... 
'+  
'+ auf meiner Homepage unter folgenden 9 Links
'+
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

http://www.rendar.de/excel/suchen_in_selection_areas.txt
http://www.rendar.de/excel/suchen_in_spalte_msa.txt
http://www.rendar.de/excel/suchen_und_einfuegen.txt
http://www.rendar.de/excel/suchen_und_einfuegen2.txt
http://www.rendar.de/excel/suchen_und_ersetzen.txt
http://www.rendar.de/excel/suchen_und_ersetzen2.txt
http://www.rendar.de/excel/suchen_und_filtern.txt
http://www.rendar.de/excel/suchen_und_loeschen.txt
http://www.rendar.de/excel/leere_zelle_ueber_ac_finden.txt

sowie
'über alle Blätter suchen und Ergebnisse selektieren
http://www.rendar.de/excel/suchen_und_goto.bas
'Ergebnisliste automatisch in eine Pivottabelle umwandeln
http://www.rendar.de/excel/suchen_und_einfuegen_mit_pivot.bas