ich hab hier eine Liste mit Hilfe von Visual Basic Listenfeld gemacht. Jetzt kann ich aber immer nur ein Wort der Liste auswählen, ich will aber bis zu 20 Wörter auswählen können.
Danke für die Hilfe, Johanna
Private Sub ListBox1_LostFocus()
Dim i As Integer, z As Integer
z = 10 'schreibt ab Zeile 10
With ListBox1
'Lösche Bereich
Range(Cells(z, 1), Cells(z + .ListCount, 1)).ClearContents
For i = 0 To .ListCount - 1
If .Selected(i) Then
Cells(z, 1) = .List(i)
z = z + 1
End If
Next i
End With
End Sub