Public Structure Zuordnung
    Dim MK1VB1 As Boolean
    Dim MK2VB1 As Boolean
    Dim MK3VB1 As Boolean
...
End Structure
 
Public Structure Gewichtung
    Dim MK1Gew As Integer
    Dim MK2Gew As Integer
    Dim MK3Gew As Integer
...
End Structure
 
...
 
Public Structure Rezept
    Dim Teachin As String
    Dim Zuordnung As Zuordnung
    Dim Gewichtung As Gewichtung
...
End Structure
 
Public Shared Rezept(8, 16) As Rezept

mfg
rt