Problem mit aufgezeichnetem Makro
Verfasst: Fr, 01.05.2015 13:13
Hallo OO Fans
Ich habe mit dem Recorder ein Makro aufgezeichnet mit dem ich ein Arbeitsblatt Namens Belegeliste aufrufe um darin dann ein anderes Makro aus zu führen. Das Problem an dem Makro ist jedoch, dass sich das Makro nicht den Namen des Arbeitsblattes merkt sondern die Nr. von der stelle wo sich das Arbeitsblatt befindet. Wird also z. B. vor dem Arbeitsblatt, im dem ein Makto ausgeführt werden soll ein neues Arbeitsblatt eingefügt, wird das falsche Blatt ausgewählt. Kann mir jemand das nachfolgende Makro so abändern dass es in jedem Fall das Arbeitsblatt mit dem Namen Belegeliste auf ruft?
Und wie würde das nachfolgende Makro aussehen wenn man die Auswahl des Arbeitsblattes dierekt in das Makro aufnehmen würde das dort ausgeführt werden soll?
Mfg. Peter
_________________
Moderation: Thema verschoben von OOo Calc nach OOo Basic und Java, wo alle Themen zur individuellen Programmierung hingehören.—lorbass, Moderator
Ich habe mit dem Recorder ein Makro aufgezeichnet mit dem ich ein Arbeitsblatt Namens Belegeliste aufrufe um darin dann ein anderes Makro aus zu führen. Das Problem an dem Makro ist jedoch, dass sich das Makro nicht den Namen des Arbeitsblattes merkt sondern die Nr. von der stelle wo sich das Arbeitsblatt befindet. Wird also z. B. vor dem Arbeitsblatt, im dem ein Makto ausgeführt werden soll ein neues Arbeitsblatt eingefügt, wird das falsche Blatt ausgewählt. Kann mir jemand das nachfolgende Makro so abändern dass es in jedem Fall das Arbeitsblatt mit dem Namen Belegeliste auf ruft?
Code: Alles auswählen
sub U_BelegelisteAuswaehlen
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 = 3
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 = "$C$8"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
end sub
Code: Alles auswählen
sub U_HinterLetzeEingabe
rem ----------------------------------------------------------
rem Makro von Karolus aus Open Office Forum
rem http://de.openoffice.info/viewtopic.php?f=18&t=65704
rem ----------------------------------------------------------
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$C$7"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "By"
args2(0).Value = 1
args2(1).Name = "Sel"
args2(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoDownToEndOfData", "", 0, args2())
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args2())
end sub
_________________
Moderation: Thema verschoben von OOo Calc nach OOo Basic und Java, wo alle Themen zur individuellen Programmierung hingehören.—lorbass, Moderator
