Problem mit aufgezeichnetem Makro

[popofz]

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?

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

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?

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

Mfg. Peter
_________________
Moderation: Thema verschoben von OOo Calc nach OOo Basic und Java, wo alle Themen zur individuellen Programmierung hingehören.—lorbass, Moderator

[Karolus]

Hallo

Code: Alles auswählen

sub U_HinterLetzeEingabe

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 = "Belegliste.$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

[popofz]

Hallo Karolus

Ein dickes Danke für Deine schnelle Hilfe. Klappt einwandfrei.

Nun habe ich noch ein anderes Problem das nur diese Datei betrifft die ich beigefügt habe. Egal welchen der drei Button ich selektiere, es kommt immer eine Fehlermeldung.

Test2_Kasse_2014.ods

(56.41 KiB) 70-mal heruntergeladen

Mfg. Peter

[clag]

hallo popofz,

du hast es schlicht versäumt den Buttons die passenden Makros zuzuweisen,
Guckst du hier noch einmal !

[Karolus]

Das ist ja auch schon vier Tage her, da kann man schonmal vergessen wies geht

[popofz]

Hallo Ihr 2

Wie sagt man manchmal dazu? Alzheimer läst grüßen?
Also hinter der Fehlermeldung habe ich nicht erwartet dass damit die Makros gemeint sind. Die müssen irgendwie beim Kopieren u. Umbenennen der Datei verloren gegangen sein.
Danke für die Hilfe.

Mfg. Peter