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 SubBei
.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