OpenOffice.info

Hallo Karo,
vielen Dank für Deinen Tip. Es ist genau das, was ich gesucht habe. Es funktioniert tadellos.
Also nochmals vielen Dank

MfG - dkledi

sub godown_goup
' Recorded by Karo
' Date: Fri Jan 18 23:10:58 2008
' get access to the document
	oFrame = ThisComponent.getCurrentController().Frame
	oDispatcher = CreateUnoService("com.sun.star.frame.DispatchHelper")
	Dim mArgs3(1) As New com.sun.star.beans.PropertyValue
	mArgs3(0).Name = "By"
	mArgs3(0).Value = 1
	mArgs3(1).Name = "Sel"
	mArgs3(1).Value = False
	oDispatcher.executeDispatch(oFrame, ".uno:GoDown" ,"" ,0 ,mArgs3())
	oDispatcher.executeDispatch(oFrame, ".uno:GoUp" ,"" ,0 ,mArgs3())
end sub

Hallo
Setze folgende Aufzeichnung der Tastenfolge ↓↑ an den Anfang deines Codes:
[code]sub godown_goup
' Recorded by Karo
' Date: Fri Jan 18 23:10:58 2008
' get access to the document
oFrame = ThisComponent.getCurrentController().Frame
oDispatcher = CreateUnoService("com.sun.star.frame.DispatchHelper")
Dim mArgs3(1) As New com.sun.star.beans.PropertyValue
mArgs3(0).Name = "By"
mArgs3(0).Value = 1
mArgs3(1).Name = "Sel"
mArgs3(1).Value = False
oDispatcher.executeDispatch(oFrame, ".uno:GoDown" ,"" ,0 ,mArgs3())
oDispatcher.executeDispatch(oFrame, ".uno:GoUp" ,"" ,0 ,mArgs3())
end sub[/code]

Gruß Karo

Hallo,
ich habe gerade mittels OOo Basic ein Makro für das Calc-Modul geschrieben. Dabei muss der Anwender in eine Zelle einen Wert eingeben und anschließend über einen Button das Makro starten. Das klappt alles so, wie ich es mir vorstelle.
Allerdings ist es auf Dauer nervtötend, das der eingegebene Wert erst mittels Eingabetaste bestätigt werden muss. Jetzt suche ich nach einer Möglichkeit, das im Makro zu automatisieren, also bevor das eigentliche große Rechnen beginnt.
Hat jemand eine Umsetzungsidee?

MfG - dkledi