Type Mannschaft
    MannschaftsName As Integer
    Körbe As Long
    DifferenzKörbe As Integer
    Punkte As Integer
    SpielerName() As String
End Type
 
Dim MannschaftsName As String
Mannschaft(Mannschaften).MannschaftsName  = MannschaftsName

Mit freundlichen Gr??en,
Andy G.