Listbox Suche erweitern
27.08.2019 14:35:39
Julius
vor kurzen hat mir der User ounor hier weitergeholfen.
Ich möchte nun diese Lösung um einen (ggf später um einen anderen) Punkt erweitern.
Leider Blick ich den Aufbau der Listbox nicht ganz.
Es soll in einer weiteren Spalte nach einem Eintrag gesucht und entsprechende Funde ausgewertet werden.
Ich habe angefangen rum zu probieren, komme aber nicht ganz auf eine Lösung.
Das was ich auskommentiert habe, ist dass was ich dazu gepackt habe.
Wie müsste ich es umstellen, dass ich in der Listbox 3 Spalten habe, deren Inhalt angezeigt wird.
KdNr | Kundenname | Aktion 1 Vielen Dank
Private Sub SuchText_Change()
Dim z, Nam, Kud, Akt1
zl = Sheets("Aktive").UsedRange.Rows.Count
FoundList.Clear
With Sheets("Aktive")
For z = 5 To zl
'Akt1 = .Cells(z, 29).Text ' Spalte Aktion 1
Nam = .Cells(z, 2).Text ' Zweite Spalte Kundenname
Kud = .Cells(z, 1).Text ' Erste Spalte Kundennummer
If Nam "" Then
If InStr(1, Nam, SuchText, 1) > 0 Then
FoundList.AddItem Cells(z, 1)
FoundList.List(FoundList.ListCount - 1, 1) = Cells(z, 2)
End If
' If Akt1 "" Then
' If InStr(1, Akt1, SuchText, 1) > 0 Then
' FoundList.AddItem Cells(z, 29)
' FoundList.List(FoundList.ListCount - 1, 29) = Cells(z, 2)
' End If
If Kud "" Then
If Len(SuchText) > 30 Then SuchText = Left(SuchText, 30)
If Left(Kud, Len(SuchText)) = SuchText Then
FoundList.AddItem Cells(z, 1)
FoundList.List(FoundList.ListCount - 1, 1) = Cells(z, 2)
End If
End If
End If
'End If
Next z
End With
End Sub