AW: Liste mit mehrfachauswahl soll Auswahl ausgeben
23.07.2010 11:17:47
ChrisL
Hi Sebastian
Beispiel im Anhang...
https://www.herber.de/bbs/user/70724.xls
cu
Chris
Private Sub ListBox1_Change()
If Not checkauswahl Then
MsgBox "Es dürfen nicht alle Städte gleichzeitig ausgewählt werden"
Call auswahlaufheben
Exit Sub
End If
Call auswahlübertragen
End Sub
Private Function checkauswahl() As Boolean
Dim i As Long
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = False Then
checkauswahl = True
Exit For
End If
Next i
End Function
Private Sub auswahlaufheben()
Dim i As Long
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = False
Next i
End Sub
Private Sub auswahlübertragen()
Dim i As Long
Range("B2:B100").ClearContents
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then Cells(Range("B65536").End(xlUp).Row + 1, 2) = ListBox1.List(i)
Next i
End Sub