Nach weiteren Ergebnissen suchen

[D K]

Hallo an alle!

Mit folgendem Code suche ich über eine TextBox und einen CommandButton in einem UserForm in 2 Spalten nach Ergebnissen. Bei einem Treffer springt man zum Ergebnis. 

Private Sub CommandButton1_Click()

Dim Zelle As Range
    With Worksheets("Tabelle1")
        Set Zelle = .Range("C:D").Find(what:=TextBox1.Text, Lookat:=xlPart, LookIn:=xlValues)
        If Not Zelle Is Nothing Then
            Zelle.Activate
        Else
            MsgBox "Nichts gefunden"
            Unload Me
        End If
    End With
End Sub

Bisher zeigt es mir aber nur das erste Ergebnis an. 
Ich hätte gerne die Funktion "Weitersuchen". Also wenn ich nochmal auf den CommandButton "Suchen" klicke wird mir das zweite Ergebnis angezeigt usw. 
Auch eine Lösung mit einem zweiten CommandButton "Weitersuchen" wäre denkbar. 

Habe im Internet schon sehr viel herumgesucht aber nichts für mich passendes gefunden. 

Vielleicht kann mir einer von euch helfen? 

Ich bedanke mich schon mal vielmals!!

Viele Grüße
Kathi

[D K]

Soll natürlich 

Set Zelle = .Range("C:D").Find(what:=TextBox1.Text, Lookat:=xlPart, LookIn:=xlValues)

heißen.......

[schauan]

Hallöchen,

hast Du schon mal in unserer Suche nach "weitersuchen" gesucht? Schaue mal in den 4. Treffer.

[D K]

Hallo, 

ja nagut... manchmal sieht man den Wald vor lauter Bäumen nicht - oder vor lauter suchen...

Vielen Dank für den Hinweis!