Suchfeld für mehrere Tabellenblätter erstellen und komplette Ergebniszeile ausgeben

[koeppie]

Hallo zusammen,



ich bin schon seit einiger Zeit am Grübeln, komme aber irgendwie nicht ans Ziel.

Vielleicht könnt ihr mir helfen.



Ich habe eine Excel-Datei mit den Tabellenblättern P1-P12 und B1-B9. Die Spaltenbezeichnung ist bei allen Tabellenblättern identisch.



Nun möchte ich gerne auf einem weiteren Tabellenblatt "Suchfeld" ein Suchfeld erzeugen, sodass nach einem bestimmten Begriff gesucht werden kann und anschließend alle Treffer inkl. der kompletten dazugehörigen Zeile aufgelistet werden. Idealerweise würde die Spaltenbezeichnung/Überschrift einmal mit angezeigt werden.

Von VBA hab ich leider nicht wirklich Ahnung.

Die Excel-Datei habe ich mal mit beigefügt.

Vielen Dank für Eure Hilfe.

Gruß Jens

[marose67]

Hallo,

wozu brauchst Du ein Makro, was das macht, was mit Excel Bordmitteln bereits funktioniert? Du hast doch in der Start Symbolleiste Das Fernglas (Suchen). Dort wechselst Du auf ganze Arbeitsmappe.
Du kannst auch ein Makro aufzeichnen.:

Sub Makro1()
'
' Makro1 Makro
'

'
    Sheets("Tabelle1").Select
    Cells.Find(What:="", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
End Sub


Alles andere kann man drumrum bauen.

Gruß
Marcus

[koeppie]

Hallo Marcus,

vielen Dank für den Tipp.

Insgesamt ist die Excel-Datei jedoch noch umfangreicher und die Suche soll sich ausschließlich auf die genannten Tabellenblätter beziehen.

Da mit dieser Datei zukünftig mehrere Kollegen arbeiten sollen, ist die Einbettung eines Suchfeldes glaube ich sinnvoller als wenn jeder die Suchfunktion separat aufrufen muss.

Gruß Jens

[00202]

Hallo Jens, :19:

eventuell so: :21:
[attachment=29700]

[koeppie]

Hallo Case,

vielen, vielen Dank für deine Hilfe. Genauso hatte ich mir das vorgestellt.

Gruß Jens