AW: Suchen und über Listbox ausgeben
01.06.2014 19:44:45
Ewald
Hallo,
hier mal ein Beispiel, Eingabe in eine Textbox, Button Suche, Anzeige in Listbox (es werden 26 Spalten in die Listbox geschrieben)
Private Sub CommandButton4_Click() 'Suchbutton
Dim SN As String
Dim myrow As Long
Dim lngrow As Long
Dim ws As Worksheet
Dim myarr()
Dim i As Long
Dim j As Long
Dim k As Long
Dim z As Long
z = 0
Set ws = ThisWorkbook.Sheets("Datenbank")
myrow = ws.Cells(Rows.Count, 1).End(xlUp).Row
SN = TextBox1.Text
If SN = "" Then MsgBox "ohne Eingabe keine Suche"
If SN "" Then 'Nach Textbox1 suchen
ReDim myarr(myrow, 26)
With ws
For i = 1 To myrow
If InStr(.Cells(i, 3).Value, SN) > 0 Then
For j = 1 To 26
myarr(z, j) = .Cells(i, j).Value
Next
z = z + 1
End If
Next
If z = 0 Then MsgBox "Es wurde nichts gefunden"
End With
For k = 0 To UBound(myarr)
myarr(k, 10) = Format(myarr(k, 10), "dd.mm.yyyy")
myarr(k, 11) = Format(myarr(k, 11), "yy")
Next
ListBox1.List = myarr
End If
End Sub
Tabelle,Anzahl Spalten, usw. müssen natürlich angepaßt werden
Gruß Ewald