Wert aus Textbox mit Tabelle vergleichen/ ausgeben
15.06.2007 16:28:23
Herzele
Bisher habe ich durch die Hilfe hier bei herber.de folgendes erreicht: Bei klicken auf den commandbutton wird der wert in Spalte A gesucht, sobald ein Wert gefunden ist, wird aber wieder derselbe Wert ausgegeben und nicht die restlichen Spalten.
Private Sub cmdSuchen_Click()
Dim rngFind As Range, rngFirst As Range
lstfind.Clear
Set rngFind = ActiveSheet.Cells.Find( _
what:=txtsuchen.Text, _
lookat:=xlPart, _
LookIn:=xlValues)
If rngFind Is Nothing Then
Beep
MsgBox "Kein Suchbegriff gefunden!"
Exit Sub
End If
Set rngFirst = rngFind
Do
lstfind.AddItem rngFind
Set rngFind = ActiveSheet.Cells.FindNext(rngFind)
Loop While Not rngFind Is Nothing And _
rngFind.Address rngFirst.Address
End Sub