19.03.2020, 15:20
Hi zusammen
Ich habe in meinem Formular ein nächstes Problem.
Auf dem Formular 2 habe ich ein "Antragsformular" bei welchem durch anwählen von Checkboxen vers. Elemente bestellt werden können. Hier im Beispiel Wert 1 bis Wert 7.
Daneben befindet sich eine Listbox, hier sollen durch anklicken von Wert_1 bis Wert 7 bestimmte Checkboxen zum vorschein kommen.
Dieser Part funktioniert soweit dank der Hilfe hier im Forum. :)
Mein nächstes Problem ist das ich leider den Code noch nicht richtig verstanden habe und ihn daher nicht schaffe selber anzupassen (Google konnte mir leider auch nicht helfen :20: )
Ich hätte gerne wie in der Beispieldatei die Werte in der Spalte B auch als neue Spalte in der Listbox.
Kann mir da wieder jemand behilflich sein? :)
Hier der Code:
Vielen Dank
Ich habe in meinem Formular ein nächstes Problem.
Auf dem Formular 2 habe ich ein "Antragsformular" bei welchem durch anwählen von Checkboxen vers. Elemente bestellt werden können. Hier im Beispiel Wert 1 bis Wert 7.
Daneben befindet sich eine Listbox, hier sollen durch anklicken von Wert_1 bis Wert 7 bestimmte Checkboxen zum vorschein kommen.
Dieser Part funktioniert soweit dank der Hilfe hier im Forum. :)
Mein nächstes Problem ist das ich leider den Code noch nicht richtig verstanden habe und ihn daher nicht schaffe selber anzupassen (Google konnte mir leider auch nicht helfen :20: )
Ich hätte gerne wie in der Beispieldatei die Werte in der Spalte B auch als neue Spalte in der Listbox.
Kann mir da wieder jemand behilflich sein? :)
Hier der Code:
Code:
Private Sub Weiter_Click()
Dim i As Long, j As Long
Dim varMatrix As Variant
varMatrix = Worksheets("Matrix").Range("A2:H19").Value
With Me
.ListBox1.Clear
For i = 1 To 9
For j = 1 To 7
If Len(varMatrix(i, j + 1)) Then
If Me.Controls(j) Then
.ListBox1.AddItem varMatrix(i, 1)
Exit For
End If
End If
Next j
Next i
.ListBox1.ListStyle = fmListStyleOption
.ListBox1.MultiSelect = fmMultiSelectMulti
End With
End Sub
Vielen Dank