ListBox selected item
05.02.2023 17:16:19
Antonio
man merkt das heute Sonntag ist und man hat viel Zeit
Ich versuche eine Listbox zu füllen mit dem selektiert Item einer zwite listbox:
Private Sub ListBox7_Click() 'Bünde aufrufen
Dim a, rF As Range
Dim i, x As Integer
Sheets("Tabelle1").Activate
For a = 1 To Me.ListBox7.ListCount
If ListBox7.ListIndex = -1 Then
With Sheets("Tabelle1")
Set rF = Columns(1).Find(what:=ListBox7, lookat:=xlWhole)
a = Range(rF, rF.End(xlDown).Offset(-1)).Offset(i, 1).Resize(i, 6)
End With
End If
Next
With ListBox9
.Clear
.ColumnCount = 6
.List = a
End With
End Sub
Bei .List = abekomme ich ein Fehler " Eigenschaft List kan nicht gesetzt werden"
Ich bin den Code oft durchgegangen, finde aber keine Unstimmigkeit.
Kann mir bitte jemand helfen?
Vielen Dank im Voraus
LG Antonio