' 2-dimensionales Array anlegen
        ' 21 Zeilen à 9 Spalten
        Dim BusArray(0 To 21, 0 To 8)
        ' Array füllen
        AddToArray BusArray, 0, 1, "Fahrer", "1", " ", "1", "01", _
          aRs!BusSitz01, aRs!BusBp01, aRs!BusSitz02, aRs!BusBp02
        AddToArray BusArray, 1, 2, aRs!BusSitz03, aRs!BusBp03, aRs!BusSitz04, _
        aRs!BusBp04, aRs!BusReihe02, aRs!BusSitz05, aRs!BusBp05, aRs!BusSitz06, _
        aRs!BusBp06
        AddToArray BusArray, 2, 3, aRs!BusSitz07, aRs!BusBp07, aRs!BusSitz08, _
        aRs!BusBp08, aRs!BusReihe03, aRs!BusSitz09, aRs!BusBp09, aRs!BusSitz10, _
        aRs!BusBp10
        AddToArray BusArray, 3, 4, aRs!BusSitz11, aRs!BusBp11, aRs!BusSitz12, _
        aRs!BusBp12, aRs!BusReihe04, aRs!BusSitz13, aRs!BusBp13, _
        aRs!BusSitz014, aRs!BusBp14
        AddToArray BusArray, 4, 5, aRs!BusSitz15, aRs!BusBp15, aRs!BusSitz16, _
        aRs!BusBp16, aRs!BusReihe05, aRs!BusSitz17, aRs!BusBp17, aRs!BusSitz18, _
        aRs!BusBp18