ich bin auf der Suche nach einer VBA Lösung, die die Anzahl von möglichen Auswahlen in einer Listbox auf 3 begrenzt (multiselect-Eigenschaft).
Die Auswahl der Listbox soll in Tabellenblatt 1 Range (K14:K16) geschrieben werden. Ich habe folgenden Sub gebastelt (siehe unten). Das Problem ist, dass bei der Auswahl von mehr als 3 Auswahlmöglichkeiten (es gibt mehr als 100) die Zellen K17, K18 etc. überschrieben werden.
Private Sub ListBox1_Change()
Tabelle1.Range("K14:K16).ClearContents
Const zeile = 3
Const spalte = 8
Dim zähler As Integer
Dim i As Integer
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
Cells(zeile + zähler, spalte) = .List(i)
zähler = zähler + 1
End If
Next i
End With
End Sub
Vorab vielen Dank! Ich hoffe ich finde jemand der mir weiterhelfen kann. Brauche eine Lösung für meine Abschlussarbeit bis nächste Woche und schaffe es einfach nicht allein :/
Henny