title image


Smiley Re: Listbox - multiselect (VBA - Excel)
nun würde ich gerne die selbe funktionalität auf multiselect erweitern.



bis jetzt habe ich folgendes.



eigenschaften für listbox

.MultiSelect = fmMultiSelectMulti



Private Sub Command1_Click()

For i = 1 To (List1.ListCount - 1)

If List1.Selected(i) = True Then

List2.AddItem List1.List(i)

List1.RemoveItem List1.ListIndex(i)

end if

next i

if List1.ListIndex < 0 Then

Command1.Enabled = False

Command2.Enabled = False

else

Command1.Enabled = True

Command2.Enabled = True

end if

End Sub



aber jetzt geht gar nichts mehr es wird nur noch die form geladen aber alles andere wird ignoriert außer cancel & ok.



wer weiß rat?





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: