Sorry,
wenn ich hier nicht si firm drin bin, was ich alles gleich hier einstellen muss.
Warum sollte ich im falschen Forum sein???
Habe das Programm ja unter Calc geschieben.
hier auf jeden Fall als anhang eines der Makros:
Sub C18_hochrechnen
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$C$18"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
odoc = thisComponent
osheet = odoc.sheets(0) 'zwölftes Tabellenblatt
eingabe = osheet.getcellrangebyname("F113").value
ausgabe = osheet.getcellrangebyname("C18").value
osheet.getcellrangebyname("C18").value = eingabe + ausgabe
osheet.getcellrangebyName("B18").value = osheet.getcellrangebyName("B18").value + 1
osheet.getcellrangebyname("E113").value = 1
End Sub
Geschrieben unter OpenOffice.orgBasic
Vieln Dank

)