Mit diesem Makro kann ich eine ListBox füllen und es werden mir die Datensätze eingelesen, deren Spalte P(16) nicht leer ist, funzt klasse.
Jetzt möchte ich eine zweite Möglichkeit, die mir alle Datensätze einliest, wenn in Spalte R die Werte TEMP, MULTI und ABT nicht vorkommen.
InStr gibt ja z.B. 0 und 1 zurück.
Aber wie muß ich die InStr- Funktion ersetzen, nach dem Motto: Liste alles
außer TEMP, MULTI und ABT in der ListBox auf?
Geht so etwas überhaupt?
Sub suchen()
Dim lng As Long
Dim i As Integer
Application.ScreenUpdating = False
With frmData
.ListBox1.Clear
Worksheets(4).Activate
i = 0
For lng = 3 To ActiveSheet.UsedRange.Rows.Count
If InStr(LCase(Cells(lng, 16).Value), LCase(.TextBox16.Value)) > 0
Then
.ListBox1.AddItem Cells(lng, 16).Value
.ListBox1.Column(1, i) = Cells(lng, 16).Value
.ListBox1.Column(2, i) = Cells(lng, 17).Value
.ListBox1.Column(3, i) = Cells(lng, 18).Value
.ListBox1.Column(4, i) = Cells(lng, 19).Value
.ListBox1.Column(5, i) = Cells(lng, 20).Value
.ListBox1.Column(6, i) = Cells(lng, 7).Row
i = i + 1
Else
End If
Next lng
End With
Application.ScreenUpdating = True
End Sub
Gruß Herbert