For c = 0 To UBound(sLine5, 2)
    If (c Mod 4 = 0) Then
        AddNew
    Else
        Felder speichern (sLine5(FeldIndex, c))
    End If
Next c
Update nicht vergessen (UpdateBatch eigenet sicht hier gut)

________________________________________________________________________
::Nicht weil es schwer ist wagen wir es nicht, sondern weil wir es nicht wagen ist es schwer::