Per Makro Zahlen aus einer Spalte in eine andere kopieren

[berndz2001]

Guten Abend zusammen,
ich bin kein Makroprogrammierer und habe mir mit der Aufzeichnungsfunktion in einer Tabelle Makros aufgezeichnet, die Daten kopieren oder in eine andere Sortierreihenfolge bringen.
Ein Makro soll Daten aus einer Spalte kopieren und in eine andere einfügen. Dieses hat in einer frühen 4er-Version gut gearbeitet, verweigert aber jetzt in der Version 4.2.6.2 seine Arbeit.
Das Makro sieht folgendermaßen aus:

Code: Alles auswählen

sub Uebertrag_Wahl1_Setzung
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 = "ToPoint"
args1(0).Value = "$F$10:$F$400"

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

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$I$10"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())


end sub

Nun habe ich versucht, das Makro in der neuen Version erneut aufzuzeichnen und während der Aufzeichnung werden die Daten auch in der Zielspalte eingefügt. Rufe ich das Makro anschließend per "Extras-Makros-Makro ausführen" oder über eine Schaltfläche auf, passiert nichts mehr. Das neu aufgezeichnete Makro hat den gleichen Aufbau wie mein erster Versuch.
Ich würde mich freuen, wenn mir hier jemand helfen könnte.

Schon jetzt vielen Dank.
Bernd

[F3K Total]

Moin,
das Makro läuft bei mir unter LO 4.2.6 und Windows 7 ohne Probleme.
Gruß R

[berndz2001]

Hallo R,
besten Dank für deine schnelle Antwort.

Ich stelle gerade fest, dass der gepostete Code nicht vollständig war. Hier noch einmal der komplette Schnipsel:

Code: Alles auswählen

sub Uebertrag_Wahl1_Setzung
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 = "ToPoint"
args1(0).Value = "$F$10:$F$400"

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

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$I$10"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())


rem ----------------------------------------------------------------------
args3(0).Name = "ToPoint"
args3(0).Value = "$C$10"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())


end sub

Ich habe jetzt den Teil ganz unten mal entfernt

Code: Alles auswählen

rem ----------------------------------------------------------------------
args3(0).Name = "ToPoint"
args3(0).Value = "$C$10"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())

und das Makro ausgeführt und siehe da, es geht wieder.
Woran liegt's?
Danke für deinen Anstoß.
Gruß.
Bernd

[F3K Total]

Auch der vollständige Code läuft problemlos, nur das der Fokus am Ende auf Zelle C10 gesetzt wird.
Gruß R

[berndz2001]

Danke für die Rückmeldung.
Ich habe noch etwas mit dem Schalter "gespielt". Wenn ich bei dem Kontrollfeld das Ereignis von "Aktion ausführen" auf "Maustaste gedrückt" ändere, läuft das Makro wieder wie früher. Vielleicht haben die Programmierer an den Ereigniseinstellungen etwas geändert.
Hauptsache es funktioniert wieder.
Gute Nacht.
Bernd

[F3K Total]

Na, da hast du einen Bug gefunden. Aktion ausführen funktioniert tatsächlich nicht.
Gruß R

[berndz2001]

Sollte ich den melden? Habe so etwas noch nie gemacht.
Wie geht das?

Grüße.
Bernd

[karolus]

Na, da hast du einen Bug gefunden. Aktion ausführen funktioniert tatsächlich nicht.
Gruß R

Das Ereignis "Aktion ausführen" sollte meinem Erachtens nur benutzt werden wenn unter 'Allgemein' eine "Aktion" <>'keine' benutzt wird ??