Unterlisten/mehrschichtige Listbox? Auch richtige Codierung für diese Schleife

Question

So habe ich eine Listbox jetzt mit den Monaten Januar-Dezember. Ich habe mich gefragt, ob es einen Weg gibt, es zu einer Unterliste zu machen? Also wenn sie gerne Q1 checken würden, dann würde Januar-März überprüft werden.

Auch ich habe diesen Code jetzt:

If audienceListbox.Selected(1) = True Then 
    .Cells(iRow, 4).Value = "Yes" 
    Else: .Cells(iRow, 4).Value = "No" 
    End If 
    If audienceListbox.Selected(2) = True Then 
    .Cells(iRow, 5).Value = "Yes" 
    Else: .Cells(iRow, 5).Value = "No" 
    End If 
    If audienceListbox.Selected(3) = True Then 
    .Cells(iRow, 6).Value = "Yes" 
    Else: .Cells(iRow, 6).Value = "No" 
    End If 
    If audienceListbox.Selected(4) = True Then 
    .Cells(iRow, 7).Value = "Yes" 
    Else: .Cells(iRow, 7).Value = "No" 
    End If 
    If audienceListbox.Selected(5) = True Then 
    .Cells(iRow, 8).Value = "Yes" 
    Else: .Cells(iRow, 8).Value = "No" 
    End If 
    If audienceListbox.Selected(6) = True Then 
    .Cells(iRow, 9).Value = "Yes" 
    Else: .Cells(iRow, 9).Value = "No" 
    End If 
    If audienceListbox.Selected(7) = True Then 
    .Cells(iRow, 10).Value = "Yes" 
    Else: .Cells(iRow, 10).Value = "No" 
    End If 
    If audienceListbox.Selected(8) = True Then 
    .Cells(iRow, 11).Value = "Yes" 
    Else: .Cells(iRow, 11).Value = "No" 
    End If 
    If audienceListbox.Selected(9) = True Then 
    .Cells(iRow, 12).Value = "Yes" 
    Else: .Cells(iRow, 12).Value = "No" 
    End If 
    If audienceListbox.Selected(10) = True Then 
    .Cells(iRow, 13).Value = "Yes" 
    Else: .Cells(iRow, 13).Value = "No" 
    End If 
    If audienceListbox.Selected(11) = True Then 
    .Cells(iRow, 14).Value = "Yes" 
    Else: .Cells(iRow, 14).Value = "No" 
    End If 
    If audienceListbox.Selected(12) = True Then 
    .Cells(iRow, 15).Value = "Yes" 
    Else: .Cells(iRow, 15).Value = "No" 
    End If 

Gibt es einen besseren Weg, diese Schleife zu schreiben? Gerade jetzt bekomme ich einen Fehler auf der 12. ausgewählten Eigenschaft, die besagt, dass es nicht gefunden werden kann, obwohl ich 12 Optionen auf meiner Liste habe (Januar-Dezember).

Entschuldigung, ich habe gestern angefangen, VBA zu benutzen, also bin ich immer noch dabei, die Grundlagen herauszufinden.

Answer 1

Hier ist eine Option für eine Neuschreibung.

Wie gruppiert man Spalten zusammen, sieht es so aus, als würde man nach Quartalen (Kalender) arbeiten?

Wenn dies der Fall ist, könnten Sie stattdessen nach Quartalen auswählen. Wenn Sie eine benutzerdefinierte Gruppierung wünschen, fügen Sie die Gruppierungen zu einem zweidimensionalen Array hinzu und durchlaufen Sie sie.

Public Sub Tester() 
    Dim MonthNumber As Byte 
    Dim ColumnNumber As Integer: ColumnNumber = 4 

    For MonthNumber = 0 To 11 
     If audienceListbox.Selected(MonthNumber) Then 
      Cells(iRow, ColumnNumber).Value = "Yes" 
     Else 
      Cells(iRow, ColumnNumber).Value = "No" 
     End If 
     'Increase the column Index for each time through the loop 
     ColumnNumber = ColumnNumber + 1 
    Next 
End Sub