Public Type tp_tbl_Teamworkers
  tp_Name As String
  tp_Vorname As String
  tp_Org As String
  tp_email As String
  tp_Telwork As String
  tp_TelPrivat As String
  tp_Handy As String
  tp_Fax As String
  tp_Strasse As String
  tp_plz As String
  tp_Ort As String
  tp_pro_Postition As String
  tp_pro_Zuordnung As String
  tp_pro_temp1 As String
  tp_pro_temp2 As String
  tp_CHANGE_USER As String
  tp_CHANGE_DATE As String
  tp_CHANGE_TIME As String
End Type
 
' das ist eine 2-dimensionale Tabelle (also wie in Excel 2 Datenblätter)
' mit 652 Zeilen, wo jeder Typ-Eintrag der Spaltenkopf ist
Public Teamw_Table(1 To 652, 1 To 2) As tp_tbl_Teamworkers
' das ist eine eindimensionale Tabelle ...
Public Teamw_Table(1 To 378) As tp_tbl_Teamworkers
'  das ist eine eindimensionale Tabelle, die aber keine feste Größe hat
' die würdest du erst bei Laufzeit mit ReDim Teamw_Table(Anzahl) oder
' mit ReDim Preserve Teamw_Table(Anzahl) setzen
Public Teamw_Table()   As tp_tbl_Teamworkers