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

Option Explicit
 
Public AnzMannschaften As Integer
 
 
Private Sub Form_Load()
AnzMannschaften = 0
End Sub
 
 
Private Sub cmd_addManschaft_Click()
AnzMannschaften = AnzMannschaften + 1
 
ReDim Preserve Mannschaft(AnzMannschaften)
 
Mannschaft(AnzMannschaften).MannschaftsName = InputBox("Bitte Mannschaftsname" & _
  "eingeben.")
 
lst_mannschaft.AddItem Mannschaft(AnzMannschaften).MannschaftsName
 
'lst_rang.RowsAdd , ",", Mannschaft(AnzMannschaften).MannschaftsName
End Sub

Gru?, Stefan