Suchfeld in einer Excel-Arbeitsmappe erstellen

[Carollo]

Hallo miteinander!
Im Geschäft habe ich eine umfangreiche, mehrspaltige Excel-Liste mit
verschiedensten Art.-Nummern erstellt. Diese Liste wird an unsere Kunden
gesandt. Nun möchte ich gerne ein Suchfeld in einer Zelle einrichten, damit
die Kunden in der ganzen Arbeitsmappe nach Begriffen, Art.-Nr. Suchen können.

Also: z.B. der Kunde gibt "druckt rot" ein, und es erscheint ihm danach die
Zelle in der der Ausdruck "druckt rot" steht.

Wie muss ich forgehen um so ein Suchzelle einzurichten?

Ich freue mich, über Eure Infos und Danke im voraus!
Lieber Gruss, Christian Carollo

[Melanie Breden]

Hallo Carollo,

Post by Carollo
Nun möchte ich gerne ein Suchfeld in einer Zelle einrichten, damit
die Kunden in der ganzen Arbeitsmappe nach Begriffen, Art.-Nr. Suchen können.
Also: z.B. der Kunde gibt "druckt rot" ein, und es erscheint ihm danach die
Zelle in der der Ausdruck "druckt rot" steht.
Wie muss ich forgehen um so ein Suchzelle einzurichten?

eine einfache Möglichkeit ohne VBA ist wie folgt:

Angenommen, die gesuchten Werte stehen in Spalte A und der Suchbegriff wird in
die Zelle B1 eingetragen, dann füge folgende Formel in die Zelle C1 ein:

=HYPERLINK("#A"&VERGLEICH(B1;A:A;);"Gehe zu: "&B1)

In C1 erscheint dann ein Hyperlink der direkt zu der Fundzelle führt.

Falls ein Suchwert eingegeben wird, der nicht in der Liste vorhanden ist,
wird der Fehlerwert '#NV' ausgegeben.
Dieser lässt sich entweder über die bedingte Formatierung:
Formel ist: =ISTFEHLER(C1)
und der Schriftfarbe weiss überdecken,
oder der Fehlerwert wird bereits in der Formel abgefangen:

=WENN(ISTFEHLER(VERGLEICH(B1;A:A;));"";
HYPERLINK("#A"&VERGLEICH(B1;A:A;);"Gehe zu: "&B1))


Mit freundlichen Grüssen
Melanie Breden

[Eike Bimczok]

Hallo Carollo,

eine Möglichkeit mit VBA sieht so aus:

Sub mySearch()
'12-2005
'E.Bimczok
Dim suchBegriffRange As String
Dim suchBegriffValue As String
suchBegriffRange = "B1" 'hier steht der Suchbegriff
suchBegriffValue = Range(suchBegriffRange).Value

Cells.Find(What:=suchBegriffValue, _
After:=Range(suchBegriffRange), _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False).Activate
End Sub

Füge das Makro in ein Standardmodul ein (ALT+F11, ALT, E, M) und
verknüpfe es mit einer Schaltfläche, die du aus der
Formular-Werkzeugleiste in dein Arbeitsblatt einfügst. In die Zelle B1
muss der zu suchende Begriff eingegeben werden.

Im Gegensatz zu der sehr eleganten Lösung von Melanie, die ja ohne VBA
auskommt, ist in diesem Fall der Suchbereich nicht auf eine einzelne
Spalte eingeschränkt.

Viel Erfolg + Gruß
Eike

Post by Melanie Breden
Hallo Carollo,

Post by Carollo
Nun möchte ich gerne ein Suchfeld in einer Zelle einrichten, damit
die Kunden in der ganzen Arbeitsmappe nach Begriffen, Art.-Nr. Suchen können.
Also: z.B. der Kunde gibt "druckt rot" ein, und es erscheint ihm danach die
Zelle in der der Ausdruck "druckt rot" steht.
Wie muss ich forgehen um so ein Suchzelle einzurichten?

Angenommen, die gesuchten Werte stehen in Spalte A und der Suchbegriff wird in
=HYPERLINK("#A"&VERGLEICH(B1;A:A;);"Gehe zu: "&B1)
In C1 erscheint dann ein Hyperlink der direkt zu der Fundzelle führt.
Falls ein Suchwert eingegeben wird, der nicht in der Liste vorhanden ist,
wird der Fehlerwert '#NV' ausgegeben.
Formel ist: =ISTFEHLER(C1)
und der Schriftfarbe weiss überdecken,
=WENN(ISTFEHLER(VERGLEICH(B1;A:A;));"";
HYPERLINK("#A"&VERGLEICH(B1;A:A;);"Gehe zu: "&B1))
Mit freundlichen Grüssen
Melanie Breden