Suchen in Excel Tabelle inhalt in Textbox

Computer: Software & Programmierung Visual Basic
#1

Hallo,
Ich habe eine Excel Tabelle und möchte über VBA in dieser Tabelle SUCHEN und die Zeilen da wo der gesuchte Begriff drinsteht in einer Textbox anzeigen lassen. Mein Problem ist . daß nach dem ersten fund die suche aufhört.

Hier der Code :

’ Suchen
Private Sub CommandButton1_Click()

Dim WkSh As Worksheet
Dim rZelle As Range

Set WkSh = ThisWorkbook.Worksheets(„DVD“)

If TextBox1.Value „“ Then
With WkSh.Columns(10)
Set rZelle = .Find(TextBox1.Value, lookat:=xlWhole, LookIn:=xlValues)
If Not rZelle Is Nothing Then

TextBox2.Value = WkSh.Cells(rZelle.Row, 2)

Else

MsgBox „Der gesuchte Begriff „““ & TextBox1.Value & _
„“" wurde nicht gefunden.", _
48, " Hinweis für " & Application.UserName
End If
End With
Else
End If

End Sub

Wenn jemand mal drüber schaut , wo der Fehler liegt.

Danke

#2

Ich habe eine Excel Tabelle und möchte über VBA in dieser
Tabelle SUCHEN und die Zeilen da wo der gesuchte Begriff
drinsteht in einer Textbox anzeigen lassen. Mein Problem ist .
daß nach dem ersten fund die suche aufhört.

Hallo Andreas,

die Hilfe zeigt zu FindNext:

With Worksheets(1).Range("a1:a500")
 Set c = .Find(2, LookIn:=xlValues)
 If Not c Is Nothing Then
 firstAddress = c.Address
 Do
 c.Interior.Pattern = xlPatternGray50
 Set c = .FindNext(c)
 Loop While Not c Is Nothing And c.Address firstAddress
 End If
End With

Kriegste es eingebaut?

Gruß
Reinhard

#3

Danke hat funktioniert.