Private Type Material
  Name As String
  Menge As Byte
End Type
 
Private Type Stücklisten
  AuftragsNummer As String
  Position() As Material
  Endtermin As Date
  Menge As Byte
End Type
 
Private Auftrag() As Stücklisten
 
Private Sub CommandButton1_Click()
 
  ReDim Auftrag(200)
 
End Sub

Gruss,

Zardoz