Werte von zwei Listbox speichern
06.07.2017 20:58:25
zwei
Folgendes Problem:
Ich habe eine Userform erstellt. In dieser sind zwei (idente) Listenfelder. Am Ende der Userform ist ein Button zum Speichern der Daten in einem Tabellenblattt
Für ein Listenfeld (mit Mehrfachauswahl) ist das kein Problem, siehe Code.
Nun möchte ich mit dem Button aber beide (oder mehr) idente Listenfelder speichern.
Wie mach ich das? Nehm an mit einer zusätzlichen forEach oder so? aber ich bekomm das trotz stundenlanger Recherche im Netz und hier im Forum nicht hin..
Bitte um Unterstützung!
Danke!
LG, Jakob
Private Sub cmdAuswertung_Click()
Dim i As Integer
Dim Auswahl As Range
frmTestformular.Hide
'Listenfeld Multiselect auswerten
For i = 0 To lstMultiAusZellen.ListCount - 1
If lstMultiAusZellen.Selected(i) Then
Range("C" & (i + 1)).Value = lstMultiAusZellen.List(i)
Else
Range("C" & (i + 1)).Clear
End If
Next i
End Sub