Office: (Office 2010) Suche VAB Zeilen ausblenden die nicht suche entsprechen

Guten Abend zusammen,

ich habe eine Tabelle in der in Spalte B Kundennummern stehen, in Spalte C Kundennamen(siehe Anhang).

ich möchte jetzt eine Makro das wenn ich in Zelle C5 eine Kundennummer eingebe und per Button bestätige mir die Kundennummer gesucht wird.

das habe ich auch schon

Code:

Sub Suchen()
Dim rngzelle As Range
Set rngzelle = Columns("B").Find(Range("C5"), Lookat:=xlWhole)
If Not rngzelle Is Nothing Then
        Application.Goto reference:=rngzelle
Else
        MsgBox "Nicht Gefunden"
        End If
        Set rngzelle = Nothing
        
End Sub

Also gib in C5 eine Kundennummer ein und es wir in Spalte B gesucht.

woran ich mir die Zähne ausbeiße, ich möcht noch das alle Zeilen die nicht der Suche entspreche ausgeblendet werden.
könnt ihr mir dabei helfen???
Und was auch noch schön wäre ist wenn man eine Kundennummer eingibt und mit Enter bestätigt das dann gesucht wird und nicht eine Zeile nach unten gesprungen wird.

Hat jemand eine Idee?

Danke im Voraus
Gruß

 

Hallo,

in deiner Tabelle hast du in der Kriterienspalte auch Verbundzellen enthalten. Ich habe dir das Makro so erstellt, dass auch diese korrekt zurückgegeben werden. Ferner können auch Mehrfachfunde zurückgegeben werden.

 

Hallo Anton Exl,

ich sag mal ganz großes Kino!!! Hätte ich nie hin bekommen!

Danke Danke

Gruß
Karsten

 

Hallo Anton Exl,

Eine kleine Frage hab ich noch.
Da dein Code so mega funktioniert wollte ich den gleichen für eine andere Zelle quasi als zweite Filter Möglichkeit nehmen.
Suche wird in E5 eingegeben und in Spalte f soll gesucht werden nach Abholort.
Kann ich das Makro einfach kopieren?
Und was muss ich dann anpassen?

Sorry für die dumme Frage aber ich hab von Makros keine Ahnung.

VG
KW

 

Hallo,

ich habe in der beiliegenden Datei die 2. Filterzelle hinzugefügt, sodass jetzt sowohl in Zelle C5 nach der "Nr."-Spalte gefiltert werden kann als auch in Zelle E5 nach der "Abholort"-Spalte.
Entscheidend dabei ist das letzte Wort in der jeweiligen Zelle darüber: in C4 der Text "Filtere nach Nr." und in E4 der Text "Filtere Abholort" (hier rot gekennzeichnet): Das sind die Zauberwörter für die Tabellenspalten, in denen dann gesucht/gefiltert wird.
Wenn du also in E4 den Text "Filtere Abholort" durch "Filtere Nummernkreis" ersetzt, so wird in der Nummernkreisspalte gesucht/gefiltert. Du darfst daher diesen Text in C4 bzw. E4 nicht entfernen, ansonsten kannst mit den (beiden) Zellen die Tabelle nicht mehr filtern.