ich bekomme immer die Fehleremeldung: Objekt erforderlich
Sub X_Leerzeilen()
Dim nStartRow As Integer
Dim nDeltaRow As Integer
nStartRow = InputBox("Erste Leerzeile in Zeile:", "Erste Leerzeile", 7)
nStartRow = nStartRow - 1
nDeltaRow = InputBox("Nach wievielen Zeilen soll jeweils eine Leerzeile eingefügt werden?", _
"Leerzeilen", 5)
osheet = Thiscomponent.Currentcontroller.ActiveSheet
oCursor = osheet.createCursor
oCursor.gotoendofusedarea (False)
nEndRow = oCursor.Rangeaddress.EndRow
nFirstNewRow = Int((nEndRow - nStartRow) / nDeltaRow) * nDeltaRow + nStartRow
oRows = osheet.Rows
For i = nFirstNewRow To nStartRow Step (-nDeltaRow)
o = Rows.insertByIndex(i, 1)
Next i
End Sub
Hat jemand eine Lösung oder Idee ?
Vielen Dank und ein guten Start ins Wochenende
Carlo