Office: Suchfunktion

Hallo,

ich brauche Eure Hilfe.

Ich habe eine Ergebnisspalte "B" und Suchspalten "R" bis "HI".
Gewünscht ist, dass nur Zeilen mit dem Suchwert (Buchstaben- und Zahlenkombination) angezeigt werden. :?:

Wie komme ich da zum richtigen Ergebnis? :-|

Im Voraus dankend

Carleopold

 

Hi Carle,

hast du es schon mal mit dem Autofilter versucht?

Bis später,
Karin

 

Hi Karin,

mit Autofilter habe ich´s schon versucht, doch das haut nicht hin.

Es ist ja so, ich habe einen bestimmten Suchwert z.B. A1000, dieser Wert wird in der Suchzelle angegeben. Anhand dieser Information sollen dann alle Zeilen in denen u.a. der Suchwert in den Spalten "R" bis "HI" aufgeführt ist angezeigt werden und der Rest ausgeblendet werden (wie bei dem Autofilter).

Vieleicht gibt es da einen Lösungsvorschlag?

Gruß
Carleopold

 

Hi Carle,

Code:

Sub Filtern()
   Dim lngZeile As Long
   For lngZeile = 20 To 2 Step -1
      Rows(lngZeile).Hidden = Application.CountIf(Range("R" & lngZeile & ":HI" & lngZeile), Range("A1")) = 0
   Next lngZeile
End Sub

Da du keine Angaben zu deinem Tabellenblattaufbau machst, bin ich davon ausgegangen, dass der Suchwert in A1 steht. Es werden alle Zeilen von 20 bis 2 im Bereich der Spalten R:HI geprüft - ist der Wert in keiner Zelle vorhanden, wird die Zeile ausgeblendet.

Bis später,
Karin

 

Hallo Karin,

wow, es funktioniert! :-D

Vielen Dank für das Engagement!

Kann mann die ausgeblendete Zeilen nach der Suche einfacher wieder einblenden als mit Rechtsklick?

Bis später,
Carleopold

 

Hi Carle,

ich würde nicht den Rechtsklick sondern den Doppelklick verwenden:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Rows("2:20").Hidden = False
   Cancel = True
End Sub

Bis später,
Karin

 

Hallo Karin,

irgendwie will es nicht so ganz mit den beiden Makros.

Wenn ich ein zweites Makro anlege und dieses dann aktiviere verschwinden beide Makros spurlos. :-?

Woran liegt das?

Bis dann,
Carleopold

 

Hi Carle,

beschreibe mal genau Schritt für Schritt was du machst und wann sie "verschwinden".
Du hast die arebitsmappe im Format XLSM gespeichert?

Bis später,
Karin

 

Hallo Karin,

ich habe zum Einblenden der Zeilen den Autofilter eingesetzt, in diesem Fall ist es auch besser, da ich zum Einpflegen weiterer Daten nur die aktuelle Zeile angezeigt haben möchte.

Trotzdem interessiert mich die Sache mit den 2x Makros.
Ablauf:
Arbeitsmappe ist als XLSM gespeichert, Makros>Makroname "Filtern">Erstellen>Visual Basic>hier überschreibe ich die vorhandene Programierung mit deinem ersten Program>dann schließe ich beide Fenster>über "Ausführen" teste ich das Makro>es funktioniert, die Zeile mit dem Suchwert wird angezeigt und der Rest ausgeblendet.

>Makros>Makroname "Worksheet_BeforeDoubleClick">Erstellen>Visual Basic>es öffnet sich jetzt das erste Makro mit einer Unterteilung (langer Strich). Anschließend beginnt das Program vom zweiten Makro. Diese habe ich dann mit deiner zweiten Programierung überschrieben und beide Fenster wieder ausgeblendet>es wird nur das erste Makro angezeigt.

Ich denke hier hat sich ein simpler Fehler eingeschlichen. Doch da ich mit Makros noch nicht viel gemacht habe weiß ich nicht woran das liegt.

Bis später,
Carleopold

 

Hi Carle,

die komplette Prozedur Worksheet_BeforeDoubleClick gehört nicht in ein allgemeines Modul wie das Makro Filtern, sondern ins Codemodul des Tabellenblattes: Rechtsklick auf den Tabellenreiter -> Code anzeigen und dann den Code ins rechte (obere) codefenster kopieren.

Bis später,
Karin

 

Hallo Karin,

es funktioniert einwandfrei! :-D

wie schon vermutet lag das Problem an den "70cm vor dem Bildschirm". ;-)

Vielen Dank für die zuverlässigen und zeitnahen Antworten!

Mit freundlichem Gruß
Carleopold