Zunächst noch allen ein gesundes Jahr 2012!!!
Mit folgendem Code suche ich in der Tabelle nach Werten.
Private Sub cmdSuchen_Click()
Dim lng As Long
Dim i As Integer
Application.ScreenUpdating = False
With frm_Daten
.ListBox1.Clear
Sheets("DATEN").Activate
i = 0
For lng = 3 To ActiveSheet.UsedRange.Rows.Count
If InStr(LCase(Cells(lng, 1).Value), LCase(.TextBox1.Value)) > 0 Then
.ListBox1.AddItem Cells(lng, 1).Value
.ListBox1.Column(1, i) = Cells(lng, 2).Value
.ListBox1.Column(2, i) = Cells(lng, 3).Value
.ListBox1.Column(3, i) = Cells(lng, 4).Value
.ListBox1.Column(4, i) = Cells(lng, 5).Value
.ListBox1.Column(5, i) = Cells(lng, 6).Row
i = i + 1
Else
End If
Next lng
End With
Application.ScreenUpdating = True
End Sub
Suche ich nach einer 1, zeigt er mir alles mit 'ner 1 an. Z.Bsp.: 1, 10, 11 usw. Nun möchte ich aber nur den Wert 1 und die dazugehörigen Werte mir in der ListBox anzeigen lasssen. Was muss ich am Code ändern?Bitte um Hilfe und schon jetzt mein Dank!
Gruß Frank H.!!!