Opgelost Keuzes op bepaalde posities plaatsen

[ExcelTonnie]

Uit een lijst 9 verschillende keuzes waarvan ik er max. 4 mag kiezen.
Deze keuze op positie plaatsen zonder lege cellen.
Voorbeeld bestand bijgeplaatst.

 

[AHulpje]

Zo:

Private Sub CommandButton1_Click()
    Dim a()
    n = 0
    Range("A2:I2").ClearContents
    Range("L2:O2").ClearContents
    
    For i = 1 To 9
        If Controls("Checkbox" & i) Then
            Cells(2, i) = "K" & i
            ReDim Preserve a(n)
            a(n) = Cells(2, i)
            n = n + 1
        End If
    Next
    If Range("J2") > 4 Then
        MsgBox "Max. 4 keuze mogelijk", vbCritical
        Range("A2:I2").ClearContents
        Range("L2:O2").ClearContents
        Exit Sub
    Else
        Range("L2").Resize(, Range("J2")) = a
    End If
    Unload Me
End Sub

 

[AHulpje]

En met het hele document?

 

[HSV]

Of:

Private Sub CommandButton1_Click()
Dim a(8), b(8)
 Range("A2:I2,L2:O2").ClearContents
    For i = 1 To 9
     If Me("checkbox" & i) Then
          a(n) = Me("label" & i)
          b(i-1) = Me("label" & i)
          n = n + 1
            If n > 4 Then
              MsgBox "Max. 4 keuze mogelijk", vbCritical
              Exit Sub
            End If
     End If
    Next
  Range("L2").Resize(, n) = a
  Range("a2:I2") = b
    Unload Me
End Sub

 

[ExcelTonnie]

Heb inmiddels de code aangepast zodat het ook werkt in mijn project.
Het werkt naar behoren, mijn dank voor jullie hulp.