ich habe leider nichts gefunden und bitte ich euch um Hilfe.
Scenario:
Tabelle mit 300 einträge,
mit Array in LB,
über SUCHE mit:
Private Sub TextBox12_Change()
Dim lng As Long 'Suchen
Dim i As Integer
Worksheets("Tabelle5").Activate
With ListBox1
.Clear
.ColumnCount = 10
.ColumnWidths = "30;350;100;30;30;30;30;30;30;30"
For lng = 2 To Tabelle5.Cells(Rows.Count, 1).End(xlUp).Row
If InStr(LCase(Cells(lng, 2).Value), LCase(Me.MultiPage1.Pages(2).TextBox12.Value)) > 0 _
_
_
_
_
Then
.AddItem Cells(lng, 1)
.Column(1, i) = Tabelle5.Cells(lng, 2)
.Column(2, i) = Tabelle5.Cells(lng, 3)
.Column(3, i) = Tabelle5.Cells(lng, 4)
.Column(4, i) = Tabelle5.Cells(lng, 5)
.Column(5, i) = Tabelle5.Cells(lng, 6)
.Column(6, i) = Tabelle5.Cells(lng, 7)
.Column(7, i) = Tabelle5.Cells(lng, 8)
.Column(8, i) = Tabelle5.Cells(lng, 9)
.Column(9, i) = Tabelle5.Cells(lng, 10)
i = i + 1
End If
Next lng
End With
Me.MultiPage1.Pages(2).Label14.Caption = Me.MultiPage1.Pages(2).ListBox1.ListCount
End Sub
reduziere ich die Einträge auf das gesuchten item.
Mein Wünsch:
durch click auf ein eintrag, soll die gesamt Liste wiederhergestellt und den eintrag markieren.
Zur Info, die erste Spalte sind ID Nummer.
Habe mit diesem Code versucht:
With ListBox1
.Value = [a1]
.TopIndex = .ListIndex
End With
klappt aber nicht weil Value kann nicht gesetzt werden
Vielen Dank in Voraus
Antonio