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

Suche VBA 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ß
KW

 

Hallo KW,

ich bin jetzt mal davon ausgegangen, dass deine Liste, die du ausblenden willst erst in Zeile 6 beginnt (sonst würdest Du ja evtl. auch die Zelle C5 ausblenden).
Dein Suchergebnis habe ich nicht markiert, da ja alle übrigen Zeilen ausgeblendet werden.

Der Code läuft bei jeder Änderung der Zelle C5.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Zeile

Application.EnableEvents = False

If Not Application.Intersect(Target, Cells(5, 3)) Is Nothing Then
    For Zeile = 6 To Cells(Rows.Count, 2).End(xlUp).Row
        If Cells(Zeile, 2) <> Target.Value Then
            Cells(Zeile, 2).EntireRow.Hidden = True
        End If
    Next Zeile
End If

Application.EnableEvents = True

Target.Select

End Sub

Dieser Code gehört im VB-Editor in die Mappe, in der er arbeiten soll.

Gruß,
Lutz

 

Hallo Lutz,

Erstmal danke!!!!

Nein meine Liste geht ab Zeile 9 los aber das zu ändern ist ja leicht.
Aber irgendwas stimmt nicht.
Folgende Zeile geht immer in einen Fehler.

Code:

 If Cells(Zeile, 2) <> Target.Value Then

?????????
Ich bin Rat los :-(

VG
KW

 

Ok Fehler gefunden:-)

Problem ist jetzt nur das die ausgeblendeten Zellen nicht wieder eingeblendet werden.
Also Filter raus.

Kann mir da noch jemand helfen.

VG
Kw

 

Hallo KW,

wann sollen die Zeilen wieder eingeblendet werden?

Wenn es darum geht, dass Du die Liste mehrfach durchsuchen willst, einfach vorm ersten if die Zeile:

Code:

Cells.EntireRow.Hidden = False

einfügen.
Damit werden erst alle Zeilen eingeblendet, bevor die nicht zutreffenden wieder ausgeblendet werden.

Gruß,
Lutz

 

Hi Lutz,

Wenn nix in C5 steht sollen alle Zeilen eingeblendet werden.

Mit dem letzten was du geschrieben hast werden warum auch immer nicht alle Zeile. Wieder eingeblendet.

VG
KW

 

Hi Lutz,

Wenn nix in C5 steht sollen alle Zeilen eingeblendet werden.

Mit dem letzten was du geschrieben hast werden warum auch immer nicht alle Zeile. Wieder eingeblendet.

VG
KW

 

Hallo KW,

die letzte Ergänzung hat zuerst alle wieder eingeblendet und sofort alle nicht passenden ausgeblendet.
Ohne diese Ergänzung sind bei jeder Änderung der Zelle C5 mehr Zeilen verschwunden.

Probier mal so:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Zeile

Application.EnableEvents = False

Cells.EntireRow.Hidden = False

If Not Application.Intersect(Target, Cells(5, 3)) Is Nothing And Target.Value <> "" Then
    For Zeile = 6 To Cells(Rows.Count, 2).End(xlUp).Row
        If Cells(Zeile, 2) <> Target.Value Then
            Cells(Zeile, 2).EntireRow.Hidden = True
        End If
    Next Zeile
End If

Application.EnableEvents = True

Target.Select

End Sub

Der Code blendet bei einer Änderung der Zelle C5 alles wieder ein. Anschließend wird geprüft, ob die geänderte Zelle die Zelle C5 ist UND ob die geänderte Zelle einen Wert hat. Ist das der Fall werden alle Zeilen, die nicht der Zelle C5 entsprechen, ausgeblendet.

Bei mir funktioniert's.
Sollte es bei Dir Probleme geben, poste einfach die Datei oder schick sie in einer PN.

Gruß,
Lutz