Office: Excel Suchfunktion?

Hallo Leute,

ist es möglich in Excel über eine Textcombox bzw. Suchfeld einen VBA Code zu schreiben, wo ich einfach nur einen suchbegriff eingebe, excel mir gleich die Zeile anzeigt, eine Art livesuche.

Grüße
Carsten

:)

 

Moin Carsten

Weis zwar nicht wo Du suchen möchtest, aber ich rate mal in Spalte1. Versuche mal folgenden Code.

Code:

Gesamte Zeille wird markiert.
Gruß Sven

 

Moin, Sven,

Was macht denn im Bereich die Angabe Range("A1:B" & letztezeile)? Was ist mit mehrfachen Treffern, die möglich sind? Dann sollte ggf. eine Abfrage kommen, ob weitergesucht werden soll...

@Carsten
Was ist eine Textcombox? *upps Was möchtest Du erreichen - evtl. reicht ein Vorgehen per Spezialfilter und die Aufzeichnung des Auslösens per Makro-Rekorder aus.

 

Moin jinx

wieder einmal vielen Dank für Deinen Hinweis. Habe den Code umgeschrieben, wenn Einträge doppelt sind erscheint eine MsgBox. Aber die Frage von Dir ist berechtigt.

Code:

 

Hallo Leute,

ich meine natürlich diese Textformular aus der Toolbox "=EINBETTEN("Forms.TextBox.1";"")" da möchte ich halt eine Zahl reinschreiben, er soll mir sie suchen in der gleichen tabelle.

grüße
Carsten

 

\@ akshara,

habe deinen Code gerad probiert, er funktioniert super! danach hatte ich gesucht. vielen vielen Dank

 

wäre es denn auch möglich den code so zu bauen, das er mir gleich zur zeile springt während ich etwas eingebe, ohne auf den button zu drücken?

Danke
Carsten

 

Moin moin

Carsten, warum nimmst Du nicht den Autofilter. Der macht doch eigentlich genau das was Du möchtest.
Ansonsten legt man den Code, abgewandelt, in ein TextBox1_Change Ereignis. Ist aber nicht so gut.

Gruß Sven

 

Hallo,

Auto Filter wäre nicht gut, da ich über 25000 Datensätze habe, will schnell an die Daten kommen ohne zu filtern. wäre es machbar?

Gruß
Carsten

 

Moin Carsten

Kann ich nicht empfehlen. Beim ersten Buchstaben fängt der Code an zu suchen. Bei 25000 Datensätzem, muß eienr dabei sein der genauso anfängt. Mehr kann ich leider nicht erreichen.
Wenn Du doppelte Datensätze hast, verwende vielleicht diesen Code. Durch mehrmaliges clicken springt er auch zur nächsten Zeile.

Code:

Vielleicht hat jemand eine bessere Lösung.

Gruß Sven

 

Hallo Sven,

danke für Deinen Code.

ich kann auch nur eine Zahl suchen z.B. in der Spalte "A". wäre es dann möglich?

Grüße
Carsten

 

Moin moin

Carsten, ich habe Dir eine Mappe angehängt, wenn Du sie aufmachst erscheint eine UserForm mit TextBox, dort kannst Du den Suchwert eingeben. UserForm ist auf ShowModal=false, bedeutet Du kannst dann noch in der Tabelle arbeiten. Wenn Du eine andere Mappe öffnest, versteckt sich die UserForm. Hoffe das Du damit klarkommst.

Gruß Sven

 

Moin, Carsten,

Warum? Ich bleibe beim Vorschlag Spezialfilter mit Makro-Auslöser...

@Sven:
Fortlaufende Suche unter Vermeidung eines Laufzeitfehlers ist sicherlich besser für eine Suche nach mehreren Fundstellen geeignet...

 

Moin jinx, moin Carsten

@jinx
Okay, sehe ich ein. Habe den Code etwas angepasst. Vielen Dank für den Link.

Wie funktioniert so was?

@Carsten
Verwende besser die neue Mappe. wenn Du nicht zufrieden bist, kannst Du ja die alte Weiterverwenden.

Gruß Sven

 

Mon, Sven,

Spezialfilter oder gar Makro-Auslöser? *tongue.gif*

XL

	A	B	C	D	E
2	lfd. Nr	Mappe	Bereich	Titel	Kurzangaben

Auswertung Bereiche

	A	B	C	D	E
1	lfd. Nr	Mappe	Bereich	Titel	Kurzangaben
2			VBE

Zelle	Zulassen	Daten	Eingabe 1	Eingabe 2
C2	Liste		=Bereiche

Auswertung Bereiche

	A	B	C	D	E
10	lfd. Nr	Mappe	Bereich	Titel	Kurzangaben

Hinter Auswertung Beriche:

Code:

Allgemeines Modul:
Code:

Alle 3 Bereiche haben einen kopierten Bereich der Überschriften gemeinsam - sollen beispielsweise Zeiträume abgebildet werden, ist ggf. das entsprechende Feld noch einmal zu platzieren und einmal als Start- und das andere Mal als Enddatum zu befüllen (dann würde ich auf eine Schaltfläche als Auslöser wechseln oder als Dropdown die Werte zur Verfügung stellen).

Auslöser ist Daten/Gültigkeit in der Zelle C2 (ab Excel2000 verwendbar), die Liste selbst ist auf der Auswertungstabelle im nicht dargestellten Bereich angelegt. Die Bereiche sind fix vorgegeben - hier könnte man mit Variablen für die Bereiche arbeiten. Eine andere Lösung wäre SQL/ADO...

Anpassung für den Thread: die gesamte zweite Zeile freigeben und auf eine direkte Angabe reagieren (wobei der Aufbau der Liste die Arbeit der Auswertung erschweren kann).