VBA Suchfunktion erweitern
21.07.2008 09:04:00
Glen
Folgendes Sheet habe ich mir ab der Herber CD gezogen.
Zur Funktion:
Nach Eingabe in Suchbegriff und Klick auf Eintragen, wird der Begriff gesucht und wenn dieser gefunden wurde, wird das Resultat - Begriff unterhalb des Suchbegriffs in der Tabelle - in der UserForm ausgegeben.
Nun wollte ich fragen, ob mich jemand dabei unterstützen kann, die Funktion dahingehend zu erweitern, dass nicht nur eine Zelle unterhalb gesucht wird, sondern in allen Zellen bis die nächste leere Zelle erscheint.
Hier der bestehende Code:
Private Sub CommandButton1_Click()
Dim gZelle As Range
Set gZelle = Worksheets("Daten").Columns(1).Find(TextBox1.Text, lookat:=xlWhole)
If gZelle Is Nothing Then
Label3.Caption = "Nicht gefunden!"
Else
Label3.Caption = gZelle.Offset(1, 0)
End If
End Sub
Für eure Hilfe schon im voraus tausend Dank.
Freundlicher Gruss, Glen