title image


Smiley Re: Listbox mit Mehrfachauswahl
Hallo,



versuchst Du es so? Der Listindex ist bewusst auf -1 (keine Auswahl) gesetzt, damit der Commandbutton nicht aktiviert wird, bis der User mindestens einen Eintrag gewählt hat.



      Hubert

Private Sub UserForm_Activate()

Dim i As Integer



For i = 1 To 25

Me.ListBox1.AddItem "Eintrag " & i

Next i



With Me.ListBox1

.MultiSelect = fmMultiSelectMulti

.ListStyle = fmListStyleOption

.ListIndex = -1

'.Selected(0) = True

End With

'

Me.CommandButton1.Enabled = False

End Sub

'

Private Sub ListBox1_Change()

Me.CommandButton1.Enabled = True

End Sub

'

Private Sub CommandButton1_Click()

Dim i, z, sMess

z = Me.ListBox1.ListCount

'

For i = 0 To z - 1

If Me.ListBox1.Selected(i) = True Then

sMess = sMess & Me.ListBox1.List(i) & vbNewLine

End If

Next i

'

MsgBox sMess

End Sub



geschrieben von

Anhang
Bild 164 zu Artikel 35567

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: