Listboxeinträge begrenzen
Frank
Über eine Userform Listbox trage ich ausgewählte Einträge mittels unten stehendem VBA Code in eine Tabelle ein. Ich würde allerdings gerne die Anzahl der Einträge begrenzen. Also wenn z.B. mehr als 5 Begriffe ausgewählt werden sollen die nicht mehr eingetragen werden, sondern es sollte eine MSG Box erscheinen, die den Hinweis darauf gibt.
Wie wäre da der Code abzuändern?
Danke schon einmal für eure Mühen.
Gruß Frank
Private Sub CommandButton2_Click()
Dim iRow As Integer, iCounter As Integer
For iRow = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iRow) Then
iCounter = iCounter + 2
Cells(iCounter + 2, 17).Value = ListBox1.List(iRow)
End If
Next iRow
End Sub