Suchfunktion Frage

[Luffy]

Hallo @ all :)

Ich wollte fragen ob jemand von euch eine Möglichkeit kennt, einen Text zu suchen der durch eine Formel erzeugt wird.

Bsp. Ich holte mir durch einen =Sverweis() den Namen Maximilian her.

Kann ich diesen dann durch eine bestimmte Suchfunktion suchen? Oder ist das nicht möglich?

[Crazy Tom]

Hi

in meinem Test steht das Ergebnis den SVerweis in Spalte I
und da funktionierte dann dieser Code

Code:

Sub test()
   Dim c As Range
   Set c = Columns(9).Find("Maximilian", LookIn:=xlValues, lookat:=xlWhole)
   If Not c Is Nothing Then
       MsgBox c.Address
   End If
End Sub

MfG Tom

[Luffy]

Hallo Crazy Tom,

Vielen dank für die schnelle Antwort, 
das mit Maximilian war natürlich nur ein Beispiel.
Könnte man den Code so umschreiben dass man in einer Msg Box eine Eingabe macht und dann die Aktuelle Matrix durchsucht wird ?
Kann man auch machen dass man automatisch zum gesuchten Begriff springt ? Wie beim normalen Suchen.

[WillWissen]

Hallo,

ist das nicht wenig überdimensioniert? Reicht da nicht die normale Tastenkombination STRG-F?

[RPP63]

Moin auch von mir!
Per Formel ginge sowas:
="Maximilian "&WENNFEHLER("gefunden in Zeile: "&VERGLEICH("Maximilian";I:I;0);"nicht gefunden")

Gruß Ralf

[Luffy]

Hallo Günther,

Wenn ich den Sverweis Matrix übergreifend mache funktioniert es mit STRG+F bei mir nicht.
Mache ich was falsch?

Hallo Ralf

Danke für deine Antwort, ist mir aber auch ein bisschen zu unflexibel :)

[Crazy Tom]

Hi

hier mal ohne Fehlerbehandlung

Code:

Sub test()
   Dim c As Range
   Dim strSuche As String
   strSuche = InputBox("was wird gesucht")
   Set c = Selection.Find(strSuche, LookIn:=xlValues, lookat:=xlWhole)
   If Not c Is Nothing Then
       Range(c.Address).Select
   End If
End Sub

MfG Tom

[RPP63]

Wenn ich den Sverweis Matrix übergreifend mache funktioniert es mit STRG+F bei mir nicht.

Strg+f, Optionen, Suchen in: Werte

Bedenke, dass die Suche die letzten Änderungen speichert.
Wenn Du also nächstes mal in Formeln suchen willst, musst Du das explizit ändern!

Gruß Ralf

[Luffy]

Hallo Ralf,

Danke für die Antwort, genau das ab ich gesucht. Thema erledigt :)

[WillWissen]

Hallo Günther,

Wenn ich den Sverweis Matrix übergreifend mache funktioniert es mit STRG+F bei mir nicht.
Mache ich was falsch?

Hallo Ralf

Danke für deine Antwort, ist mir aber auch ein bisschen zu unflexibel :)

Was verstehst du unter matrixübergreifend? In meinem Tabellenausschnitt hole ich mir die Daten per SVERWEIS von einem anderen Tabellenblatt und suche über die bordeigene Suchfunktion:

[
Bild bitte so als Datei hochladen: Klick mich!
]

Die betreffende Zelle wurde "angesprungen". Und damit du siehst, dass tatsächlich Formeln hinter den Namen liegen, hier der Tab.-Ausschnitt:

Datenauslese

	A	B	C	D
4	PersNr.	Name	Vorname	Ort
5	1234	Wagner	Stefan	München
6	1236	Meier	Wolfgang	Hamburg
7	1238	Schmidt	Helmut	Hamburg

Formeln der Tabelle

Zelle Formel B5 =SVERWEIS($A5;Stammdaten!$A$2:$D$6;SPALTE(B1)) C5 =SVERWEIS($A5;Stammdaten!$A$2:$D$6;SPALTE(C1)) D5 =SVERWEIS($A5;Stammdaten!$A$2:$D$6;SPALTE(D1))

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8