Sub Tabelle_erstellen(Tabelle As Table, Kom As Map, Folge As List)
Tabelle.SetHeader(Array As String("Name", "Mo", "Di", "Mi", "Do", "Fr", "Sa", "So"))
For i=0 To Folge.Size-1
Dim key As String = Folge.Get(i)
Dim w1 As Woche = Kom.Get(key)
Tabelle.AddRow(Array As String(key, w1.Montag.Eintrag, w1.Dienstag.Eintrag, w1.Mittwoch.Eintrag, w1.Donnerstag.Eintrag, w1.Freitag.Eintrag, w1.Samstag.Eintrag, w1.Sonntag.Eintrag))
Next
Tabelle.EvenRowColor=Colors.Gray
Tabelle.OddRowColor=Colors.Gray
Tabelle.AddRow(Array As String("Vorplanung", "", "", "", "", "", "", ""))
Tabelle.EvenRowColor=Colors.LightGray
Tabelle.OddRowColor=Colors.LightGray
Tabelle.AddRow(Array As String("Stärke", "", "", "", "", "", "", ""))
Tabelle.EvenRowColor=evenColor
Tabelle.OddRowColor=oddColor
Tabelle.SetColumnsWidths(Array As Int(30%x, 10%x, 10%x, 10%x, 10%x, 10%x, 10%x, 10%x))
End Sub