Office: Suchfunktion mit Makro

Hallo!
Muss bei uns im Betrieb ein Ordnerarchiv anlegen. Ist es möglich, eine Suchfunktion mit einem Makro zu erstellen, die mir dann die ganze Zeile (A-F) von dem Ergebnis anzeigt? In Zeile 1 befinden sich die Spalten Auftragsnummer, Kundenauftragsnummer, Werkzeugname, Auslegung, Änderung, Ordnernummer. Ich möchte je nach Fall, was meinem Kollegen bekannt ist, nur einen von den 6 Werten eintragen und die Suche starten und mir dann die Gesamte Zeile angezeigt wird. Hab mal ein Bsp angefügt

 

Du hast leider nicht geschrieben woher die restlichen Angaben kommen.

 

Als "quick and dirty" Ansatz könntest Du mal folgendes probieren:

Code:

Option Explicit

Sub SpaltenSuche()

    Dim SuchWert As String

    SuchWert = InputBox("Wonach soll gesucht werden?")

    If (SuchWert <> "") Then

        Cells(1, 1).Activate
        Columns("A:F").Find( _
            What:=SuchWert, _
            After:=ActiveCell, _
            LookIn:=xlFormulas, _
            LookAt:=xlPart, _
            SearchOrder:=xlByRows, _
            SearchDirection:=xlNext, _
            MatchCase:=False).Activate

    End If

End Sub

Pack das in ein neues Modul (Alt-F11 - Einfügen - Modul) und leg einen Hotkey drauf (Extras - Makro - Makros... - Optionen). Vielleicht reicht das so schon?

Alternativ oder als Ergänzung würde ich die Aktivierung des Autofilters (A1 anklicken, dann: Daten - Filter - Autofilter) empfehlen

Gruß, Michael

 

@ Hajo_Zi

@ Hajo_Zi
die restlichen Daten muss ich selber von Hand eintragen. Mit jedem neuen Auftrag wo kommt, wird alles fortlaufend manuell eingetragen.