Suche mit mehreren Ergebnissen
17.01.2019 19:51:44
Shiva
und zwar habe ich eine Liste mit diversen Daten, die durchsucht werden sollen. Der Suchbegriff kann über ein Steuerelement bzw. Userform eingegeben werden. Nun kann es vorkommen, dass ein Suchbegriff in verschiedenen Zellen auftaucht, wie kann ich dies bei der Ausgabe berücksichtigen, sprich, dass in meiner Messagebox alle Treffer (Zellen) angezeigt werden?
Private Sub TextBox1_Change()
Dim Suchergebnis As Range
Dim Suchwert
Suchwert = InputBox("Bitte gesuchten Wert eingeben")
If Suchwert = "" Then Exit Sub
With Range("A1:T200")
Set Suchergebnis = .Find(Suchwert, LookIn:=xlValues, lookat:=xlWhole)
If Not Suchergebnis Is Nothing Then
MsgBox Suchergebnis.Row
Else
MsgBox "Der Suchbegriff wurde nicht gefunden."
End If
End With
End Sub
Vorab schon mal vielen Dank ;)!!
Anzeige