hi,
Sub Main
Dim alt as long
Dim b as long
Dim i
alt = ThisComponent.Sheets(0).getCellByPosition(0,0).value
for i = 1 to 400
b = ThisComponent.Sheets(0).getCellByPosition(0,i).value
if b<>0 then
if alt+1<b then
ThisComponent.Sheets(0).Rows.insertByIndex(i,b-alt-1)
end if
alt=b
else
alt=alt+1
end if
Next i
End Sub
Wenn es denkbar wäre, dass die Liste nicht korrekt ist, also irgendwo ein Datum mal zurück springt oder gleich bleibt, müsste man das noch abfangen.
Die 400 einfach der Länge der fertigen Tabelle anpassen. Wenn das regelmäßig eingesetzt wird, könnte man das mit 1-2 Zeilen mehr noch alles bissl schöner machen.
grüße
lipi