So, ich dachte ich stell euch noch meine Lösung im Detail vor. Ich finde diese aber immer noch zu umständlich und wollte fragen ob einer von euch mir am konkreten Beispiel zeigen kann wie ich es einfach gestalten  kann:

Public Daten As New Collection
Daten.Add EQID1
    Daten.Add EQType1
    Daten.Add SPNote1
    Daten.Add SPNote11
    Daten.Add EQDraw1
    Daten.Add EQID2
    Daten.Add EQType2
    Daten.Add SPNote2
    Daten.Add SPNote12
    Daten.Add EQDraw2
    Daten.Add EQID3
    Daten.Add EQType3
    Daten.Add SPNote3
    Daten.Add SPNote13
    Daten.Add EQDraw3
    Daten.Add EQID4
    Daten.Add EQType4
    Daten.Add SPNote4
    Daten.Add SPNote14
    Daten.Add EQDraw4
    Daten.Add EQID5
    Daten.Add EQType5
    Daten.Add SPNote5
    Daten.Add SPNote15
    Daten.Add EQDraw5
    Daten.Add EQID6
    Daten.Add EQType6
    Daten.Add SPNote6
    Daten.Add SPNote16
    Daten.Add EQDraw6
    Daten.Add EQID7
    Daten.Add EQType7
    Daten.Add SPNote7
    Daten.Add SPNote17
    Daten.Add EQDraw7
    Daten.Add EQID8
    Daten.Add EQType8
    Daten.Add SPNote8
    Daten.Add SPNote18
    Daten.Add EQDraw8


Private Sub EQCheck1_Click()
'Wenn Haken bei Equipemt gesetzt wird, wird die Zeile aktiviert für EQ 1
    If EQCheck1 = True Then
        For Each Item In Daten
            If Right(Item.Name, 1) = "1" Then
                Item.Enabled = True
                Item.BackColor = vbWhite
           End If
        Next
    Else
        For Each Item In Daten
            If Right(Item.Name, 1) = "1" Then
                Item.Enabled = False
                Item.BackColor = &HE0E0E0
            End If
        Next
    End If
End Sub

Dieser Abschnitt ist dann aber auch nur für die erste Zeile. Für die restlichen sieben Zeilen habe ich den selben code eben nur mit 2 -8 anstatt der 1. Für mich wäre es bereits vereinfacht genug wenn das Sub EQCheck1_Click() nur noch einmal da steht. Irgendwelche konkreten Ideen?

VG Jerome