für einen solchen Fall schlage ich eine VB-Editor-Lösung vor.
VB-Editor öffnen, eine UserForm erstellen mit:
einem "TextFeld1"
einem "Label1"
einem CommandButton "cmdOK"
einem CommandButton "cmdEnde"
Dann in der entsprechenden Tabelle einen CommandButton mittels der Steuerelement-Toolbox implementieren und folgenden Code zuweisen.
Dieser Code bewirkt, dass inder Zeile des gesuchten Begriffs solange gesucht wird, bis eine leere Zelle gefunden wird. Sodann wird eine Spalte nach links gesprungen und der Wert im "Label eins auf der UserForm1 angezeigt.
Der CommandButton "cmdEnde" erhält übrigens den Code "Unload Me". Dieser bewirkt, das die Form nach anklicken des Buttons verschwindet.
Falls gewünscht, schicke ich eine Tabelle mit Ihren daten und meinem Code zu:
Private Sub cmdOK_Click()
Range("a1").Select
Cells.Find(What:=UserForm1!txtSuche, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell(1, 2).Select
s = 2
While ActiveCell(1, s) <> ""
s = s + 1
Wend
s = s - 1
ActiveCell(1, s).Select
UserForm1.Label1 = Selection
End Sub
Mit freundliche Grüßen
Mike E.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen