Suche nach Wort in Zelle
25.02.2021 08:17:13
Alexandro
ich habe hier ein Code mit der Suchfunktion. Suche funktioniert, aber es wird leider nur der erste Wert der Zellen durchgesucht, der Rest der Zelle bleibt unberücksichtigt.
Ich möchte gerne, dass der Coder ganze Zelle/Zellen durchsucht un nicht nur das Erste Wort.
Hoffe Ihr könnt mir weiterhelfen.
Der Code macht folgendes. Durch Eingabe eines Suchwortes in C5 und anschließend auf Schaltfläche drücken sucht das Wort und gibt alle Zeilen aus der Tabelle mit dem Wort raus.
zuzüglich bei Leeren C5 aktualisieren durch "Einblenden Sub"
Sub BeiTrefferEinblenden()
Dim lngZeile As Long
Dim lngBis As Long
lngBis = Cells.SpecialCells(xlCellTypeLastCell).Row
Rows("11:" & lngBis).Hidden = True
For lngZeile = 11 To lngBis
If Application.CountIf(Rows(lngZeile), Range("C5").Value) > 0 Then
Rows(lngZeile).Hidden = False
End If
If Range("C5").Value = "" Then
If Range("C5").Value = "" Then AllesEinblenden
MsgBox "Bitte Suchtext eingeben.", vbCritical, "Abbruch"
Exit Sub
End If
Next lngZeile
End Sub