Wenn BB5=40 dann Makro starten
Verfasst: 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
Das ganze funktioniert soweit ganz gut. Speichere und schließe ich dann meine Calc Datei und öffne sie noch einmal steht in Zelle BC5
MfG Felix
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
Hier das Makro bzw. Function=WENN(BB5=40;EINGABE();"")
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
Was ist falsch oder ist mein Wunsch überhaupt nicht möglich?#Name?
MfG Felix
