Hallo Edgar
Folgendes Makro schliest eine Eingabe ab, dividiert einen eingegebenen
Zahlenwert durch hundert und formatiert auf Eurowährung mit 2 Kommastellen.
Wenn dies über ->Extras->Anpassen->Tastatur einer Tastenkombi zugewiesen
wird, ist es recht effizient zur Eingabe
_________________________________________________________
Sub Eurodurchhundert
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "By"
args1(0).Value = 1
args1(1).Name = "Sel"
args1(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:GoUp", "", 0, args1())
myDoc = thisComponent
mycell= mydoc.getcurrentSelection()
if mycell.value = 0 then
dispatcher.executeDispatch(document, ".uno:GoDown", "",0,args1())
exit sub
end if
mycell.value = mycell.value /100
mycell.numberformat = 106 '€ mit 2 Kommastellen
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args1())
end sub
___________________________________________________________
Gruß Werner
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
