Kann man aus einer Liste mehrere Einträge wählen?

Ja. Listenfelder besitzen die Eigenschaft MultiSelect, die man in diesen Fällen von SingleSelect auf MultiSelect zunächst einmal umstellen sollte.

Script zum Füllen des Listenfeldes, wenn das Formular geladen wird:
Private Sub UserForm_Activate()
   Me.ListBox1.Clear
   Me.ListBox1.AddItem "Text1"
   Me.ListBox1.AddItem "Text2"
   Me.ListBox1.AddItem "Text3"
   Me.ListBox1.AddItem "Text4 "
End Sub

Script zum Auslesen der gewählte(n) Einträge nach Verwendung der ENTER-Taste:
Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   Dim i As Integer
   Dim GewText As String

   GewText = ""

   For i = 0 To Me.ListBox1.ListCount - 1
       If Me.ListBox1.Selected(i) = True Then
           GewText = GewText & Me.ListBox1.Column(0, i)
       End If
   Next
   MsgBox GewText
End Sub

-- KerstinSchiebel - 03 Jul 2008
Topic revision: r1 - 2008-07-03, KerstinSchiebel
 
This site is powered by FoswikiCopyright © by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding GSI Wiki? Send feedback
Imprint (in German)
Privacy Policy (in German)