OOO Calc (Makro) - Vorzeichen der Zellen andern?

[Frank (Gast)]

Ich habe ne Menge Werte die mit dem falschen Vorzeichen eingegeben 
worden sind. Wie kann ich die auf einen Schlag ändern?

Ich habe ein Makro aufgezeichnet aber meine Änderung bringt nix (so 
geht's nicht):

REM  *****  BASIC  *****

Sub Main

End Sub


sub negativ
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 = "StringName"
args1(0).Value = "-" + args1(0).Value

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args1())


end sub