Ich habe es jetzt so das die gefundenen Daten aus der Datei Member in eine Listbox geschrieben werden.
1. Kann mir jemand helfen das die Daten in der Listbox in Spalten sind ?
2. Wie kann man das Rechteck zu Auswahl in jeder Zeile wegbekommen?
lg
Tobias
Private Sub cmdSearch_Click()
Dim rng As Range
Dim sFirst As String
Dim I As Integer
ListBox1.Clear
Set rng = Workbooks("Member.xls").Worksheets("Daten").Range("V:V").Find(What:=txtSearch, _
LookIn:=xlValues, _
LookAt:=xlPart, After:=Range("V5000"))
If Not rng Is Nothing Then
sFirst = rng.Address
ListBox1.AddItem rng & " | " & rng.Offset(0, 1) & " | " & rng.Offset(0, 2) & " | " & rng. _
Offset(0, 3) & " | " & rng.Offset(0, 4), I
ListBox1.List(I, 1) = rng.Row
I = I + 1
Do
Set rng = Workbooks("Member.xls").Worksheets("Daten").Range("V:V").FindNext(After:=rng)
If rng.Address = sFirst Then Exit Do
ListBox1.AddItem rng & " | " & rng.Offset(0, 1) & " | " & rng.Offset(0, 2) & " | " & rng. _
Offset(0, 3) & " | " & rng.Offset(0, 4), I
ListBox1.List(I, 1) = rng.Row
I = I + 1
Loop
Else
If ListBox1.ListCount = 0 Then
Unload Me
End If
End If
End Sub
Private Sub txtSearch_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then cmdSearch_Click
End Sub
Private Sub UserForm_Activate()
txtSearch.Value = Range("A1").Value
cmdSearch_Click
End Sub