Re: Suchen in Listbox
20.02.2003 13:47:34
Gusti
Hi NikeWie gesagt die Ausgabe sollte in der selben Listbox erfolgen, in welcher vorher die Daten gestanden haben. Ausgabe nach anklicken in verschiedene Textboxen.
ich habe:
userform1
Listbox1 (10 spalten)
textbox1 (wert zum suchen)
textbox2 bis textbox10 (ausgabe der Werte aus Listbox1)
Tabellenblatt "Daten" Bereich, A2:N300
der code lautet:
Dim s As String
Dim Found As Range
Dim FirstAddress As String
'Dim I As Integer ' Zeile
'I = 0
If suchentxt.Text = "" Then
MsgBox "Kein Eintrag vorhanden!", vbCritical, "Was soll ich den suchen?"
suchentxt.SetFocus
Else
End If
Eingabe = suchentxt.Text
If Eingabe = "" Then Exit Sub
ListBox1.Clear
With ActiveSheet
Set Found = .Cells.Find(Eingabe, LookAt:=xlPart)
If Not Found Is Nothing Then
FirstAddress = Found.Address
ListBox1.ColumnCount = 3
ListBox1.AddItem Found
ListBox1.List(i, 1) = Cells(Found.Row, 13)
Do
Found.Activate
Set Found = Cells.FindNext(After:=ActiveCell)
On Error Resume Next
If Found.Address = FirstAddress Then Exit Do
ListBox1.AddItem Found
ListBox1.List(i, 1) = Cells(Found.Row, 13)
Loop
End If
End With
End Sub
danke bestens