Dim i As Integer
        Dim s1 As Integer
        Dim s2 As Integer
        Dim s3 As Integer
        Dim s4 As Integer
 
        s1 = 3
        s2 = 4
        s3 = 5
        s4 = 6
        re = 2
 
        For i = 1 To 21
            sLine = ""
            sLine = s1 & ";" & "0;" & s2 & ";" & "0;" & re & ";" & s3 & ";" & _
              "0;" & s4 & ";" & "0"
            Set oItem = .AddItem(Replace(sLine, ";", vbTab))
            With oItem
               If .CellText("bb1") = 1 Then
                  .CellImage("sitz1") = 2
               Else
                  .CellImage("sitz1") = 1
               End If
               If .CellText("bb2") = 1 Then
                  .CellImage("sitz2") = 2
               Else
                  .CellImage("sitz2") = 1
               End If
               If .CellText("bb3") = 1 Then
                  .CellImage("sitz3") = 2
               Else
                  .CellImage("sitz3") = 1
               End If
               If .CellText("bb4") = 1 Then
                  .CellImage("sitz4") = 2
               Else
                  .CellImage("sitz4") = 1
               End If
           End With
           re = re + 1
           s1 = s4 + 1
           s2 = s4 + 2
           s3 = s4 + 3
           s4 = s4 + 4
        Next