von felix » Sa, 15.09.2007 11:46
Hallo,
ich habe ein Problem. Unzwar habe ich vor, wenn in Zelle BB5 40 steht, ein Makro ausgeführt wird. Ich habe es Probiert indem ich bei meinem Makro, welches ich mit dem Rekorder aufgenommen habe. Das Sub durch function zu ersetzen. Mein Makro heißt Eingabe und führt dazu, dass das Tabelenbaltt 1 Aufgerufen wird und der Cursor zu A1 springt.
In zelle BC5 steht dann
=WENN(BB5=40;EINGABE();"")
Hier das Makro bzw. Function
Code: Alles auswählen
function EINGABE
wait(5000)
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 = "Nr"
args1(0).Value = 1
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$A$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
end function
Das ganze funktioniert soweit ganz gut. Speichere und schließe ich dann meine Calc Datei und öffne sie noch einmal steht in Zelle BC5
#Name?
Was ist falsch oder ist mein Wunsch überhaupt nicht möglich?
MfG Felix
Hallo,
ich habe ein Problem. Unzwar habe ich vor, wenn in Zelle BB5 40 steht, ein Makro ausgeführt wird. Ich habe es Probiert indem ich bei meinem Makro, welches ich mit dem Rekorder aufgenommen habe. Das Sub durch function zu ersetzen. Mein Makro heißt Eingabe und führt dazu, dass das Tabelenbaltt 1 Aufgerufen wird und der Cursor zu A1 springt.
In zelle BC5 steht dann [quote]=WENN(BB5=40;EINGABE();"")[/quote]
Hier das Makro bzw. Function
[code]function EINGABE
wait(5000)
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 = "Nr"
args1(0).Value = 1
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$A$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
end function
[/code]
Das ganze funktioniert soweit ganz gut. Speichere und schließe ich dann meine Calc Datei und öffne sie noch einmal steht in Zelle BC5 [quote] #Name?[/quote]
Was ist falsch oder ist mein Wunsch überhaupt nicht möglich?
MfG Felix