Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Suche mit mehreren Ergebnissen


Betrifft: Suche mit mehreren Ergebnissen von: Shiva
Geschrieben am: 17.01.2019 19:51:44

Hallo zusammen,

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 ;)!!

  

Betrifft: AW: Suche mit mehreren Ergebnissen von: Werner
Geschrieben am: 17.01.2019 20:06:06

Hallo,

du kannst gerne mal die Archiv-Suche hier im Forum bemühen, Stichwort Find.Next.
Sicher könnte ich dir auch einen Code dazu schreiben. Nur stellt sich mir die Frage was du mit dem Ergebnis denn eigentlich willst. Ich kann mir nicht vorstellen, dass die Ausgabe von z.B. 10 oder mehr Fundstellen in einer Messagebox dein eigentliches Ziel ist.

Gruß Werner


Beiträge aus dem Excel-Forum zum Thema "Suche mit mehreren Ergebnissen"