For i = 2 To List.count
                Set OneLine = New SingleLine
                Set NextLine = New SingleLine
                Set OneLine = List.Item(i - 1)
                Set NextLine = List.Item(i)
                arrRow = OneLine.Get_row()
                comp = OneLine.Get_key()
                comp2 = NextLine.Get_key()
 
                If (comp2 = comp) Then
 
                    For x = 0 To (UBound(arrRow))
 
                        .Worksheets(u).Cells(count, (x + 1)) = arrRow(x)
 
                    Next
                    count = count + 1
                Else
                    count = 1
 
                    For x = 0 To UBound(arrRow)
 
                        .Worksheets(u + 1).Cells(count, (x + 1)) = arrRow( _
                         x) ' Fehler!!
 
                    Next
 
                    u = u + 1
                End If
 
            Next i