Suchenfunktion VBA
Frank
Wie immer hoffe ich auf eure professionelle Hilfe!!!
In einer UF befinden sich TextBoxen und ComboBoxen und andere Steuerelemente.
Mittels folgendem Code:
Dim lng As Long
Dim i As Integer
With frmEingabe
.ListBox1.Clear
Sheets("1. Hj.").Activate
i = 0
For lng = 8 To ActiveSheet.UsedRange.Rows.Count
If InStr(LCase(Cells(lng, 42).Value), LCase(.TextBox1.Value)) > 0 Then
.ListBox1.AddItem Cells(lng, 42).Text
.ListBox1.Column(1, i) = Cells(lng, 43).Text
.ListBox1.Column(2, i) = Cells(lng, 44).Text
.ListBox1.Column(3, i) = Cells(lng, 45).Row
i = i + 1
Else
End If
Next lng
End With
werden die Daten gesucht und entsprechend in eine ListBox eingetragen.
Nun möchte ich aber gern, dass wenn der Wert in TextBox1 gefunden wurde, noch geprüft wird wwas in der ComboBox1 steht und somit soll wenn in ComboBox1 der Wert aus Zelle AP1 steht die Werte aus den Spalten 42, 43, 44 angezeigt werden, wenn der Wert in ComboBox1 gleich AP2 die Werte aus den Spalten 42, 43, 45 angezeigt werden. Das ganze so weit bis der Wert aus Zelle AP6 erreicht wurde.
Ich hoffe, dass ich mich einigermaßen verständlich ausgedrückt habe und nun erwarte ich euer Know How.
Danke im Vorraus!!!
Freundlichst Frank H.