Kann mir einer weiter helfen bei dem Problem, wie kann ich die in einem Listenfeld, ausgewählt Multiselect, makierten Zeilen ausdrucken lassen.
Freue mich auf jeden Lösungsansatz
Danke
Hans
Private Sub CommandButton1_Click()
Dim I As Long
For I = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(I) Then
Dim str As String
str = ListBox1.List(ListBox1.ListIndex)
Dim II As Long
For II = 1 To 9
str = str & " " & ListBox1.List(ListBox1.ListIndex, II)
Next II
MsgBox str
End If
Next I
End Sub
Gruß
Chris