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

Private Sub Form_Load()
Mannschaften = "0"
End Sub

Private Sub cmd_addManschaft_Click()
Dim MannschaftsName As String
Mannschaften = Mannschaften + 1
 
ReDim Manschaften(0 To Mannschaften)
 
MannschaftsName = InputBox("Bitte Mannschaftsname eingeben.")
 
lst_Manschaft.ItemsAdd MannschaftsName
Mannschaft(Mannschaften).[u]MannschaftsName  = MannschaftsName <-- Hier _
  tretet der Fehler auf 7: typen unverträglich)
 
frm_rang.lst_rang.RowsAdd , ",", Mannschaft(Mannschaften).MannschaftsName
End Sub