BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!

DANKE >><< DANKE

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des OpenOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als OO-SUPPORTER gekennzeichnet. 🤗

Warum werden Einträge durch das Makro doppelt kopiert?

CALC ist die Tabellenkalkulation, die Sie immer wollten.
Antworten
LEO
Beiträge: 3
Registriert: So 30. Jul 2017, 10:27

Warum werden Einträge durch das Makro doppelt kopiert?

Beitrag von LEO » So 30. Jul 2017, 11:17

Hallo Zusammen

Ich bin absolut unerfahren in Dingen wie diesen .

Ich habe ein recht einfaches Makro welches über mehrere Tabellenblätter reicht aufgezeichnet .
Dieses Makro kopiert Datenbereiche der ersten drei Tabellenblätter in ein viertes Tabellenblatt untereinander.
Zum Abschluss werden diese Daten im vierten Tabellenblatt sortiert .

Alle Datensätze im vierten Tabellenblatt werden nach ausführen des Makros doppelt angezeigt.
Was ist zu tun um jeden Datensatz nur einmal angezeigt zu bekommen?

Vielen Dank ich hoffe ihr wisst Rat !


Hier mein kaputtes Auto :) :

Code: Alles auswählen

sub gverm
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 = "$Barvermögen.$A$5:$E$370"

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 = "$Gesamtvermögen.$A$5:$E$371"

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

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

rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ToPoint"
args5(0).Value = "$Kontostand.$A$5:$E$370"

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

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

rem ----------------------------------------------------------------------
dim args7(0) as new com.sun.star.beans.PropertyValue
args7(0).Name = "ToPoint"
args7(0).Value = "$Gesamtvermögen.$A$372:$E$738"

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

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

rem ----------------------------------------------------------------------
dim args9(0) as new com.sun.star.beans.PropertyValue
args9(0).Name = "ToPoint"
args9(0).Value = "$Postbank.$A$5:$E$370"

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

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

rem ----------------------------------------------------------------------
dim args11(0) as new com.sun.star.beans.PropertyValue
args11(0).Name = "ToPoint"
args11(0).Value = "$Gesamtvermögen.$A$739:$E$1106"

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

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

rem ----------------------------------------------------------------------
dim args13(0) as new com.sun.star.beans.PropertyValue
args13(0).Name = "ToPoint"
args13(0).Value = "$Gesamtvermögen.$A$5:$E$1107"

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

rem ----------------------------------------------------------------------
dim args14(6) as new com.sun.star.beans.PropertyValue
args14(0).Name = "ByRows"
args14(0).Value = true
args14(1).Name = "HasHeader"
args14(1).Value = false
args14(2).Name = "CaseSensitive"
args14(2).Value = false
args14(3).Name = "IncludeAttribs"
args14(3).Value = true
args14(4).Name = "UserDefIndex"
args14(4).Value = 0
args14(5).Name = "Col1"
args14(5).Value = 1
args14(6).Name = "Ascending1"
args14(6).Value = true

dispatcher.executeDispatch(document, ".uno:DataSort", "", 0, args14())


end sub

Zuletzt geändert von LEO am So 30. Jul 2017, 14:18, insgesamt 2-mal geändert.

F3K Total
Beiträge: 1007
Registriert: Mo 1. Aug 2011, 00:03

Re: Warum werden Einträge durch das Makro doppelt kopiert?

Beitrag von F3K Total » So 30. Jul 2017, 13:20

LEO, LEO,
mein Auto fährt nicht, wisst ihr warum?
Diese Qualität hat deine Frage.
Sollen wir jetzt das Makro "auch aufnehmen" um dann festzustellen, dass es doch funktioniert?
Lade wenigstens den Code hier hoch und setze ihn in Code-Tags:
CT.PNG
CT.PNG (616 Bytes) 2693 mal betrachtet
R
Windows 10: AOO, LO Linux Mint: AOO, LO

LEO
Beiträge: 3
Registriert: So 30. Jul 2017, 10:27

Re: Warum werden Einträge durch das Makro doppelt kopiert?

Beitrag von LEO » So 30. Jul 2017, 20:51

Vielen Dank für den Hinweis F3K Total !

Ich habe meinen ersten Post mit dem Code ergänzt .

Kalk
Beiträge: 482
Registriert: Do 6. Feb 2014, 19:45

Re: Warum werden Einträge durch das Makro doppelt kopiert?

Beitrag von Kalk » Mo 31. Jul 2017, 12:45

Hallo,

die Werte der einzelnen Tabellen werden untereinander in der 4 Tabelle angezeigt.
Doppelte Anzeigen gibt es nicht.


Gruß Kalk
Dateianhänge
Makro.ods
(9.58 KiB) 106-mal heruntergeladen
Gruß Kalk

LEO
Beiträge: 3
Registriert: So 30. Jul 2017, 10:27

Re: Warum werden Einträge durch das Makro doppelt kopiert?

Beitrag von LEO » Mo 31. Jul 2017, 14:13

War bei mir der Fall mit den doppelten Werten
Habe es gerade selber hinbekommen dass das
Makro bei mir so läuft wie es soll.
Was ich gerade besser gemacht habe als die Male zuvor kann ich nicht sagen .

Würde gerne wissen weswegen die Datensätze bei mir
doppelt waren ?!?

Trotz allem Vielen Dank Kalk !!!

Ich glaub ich geh demnächst mal zu Bücherei und hol mir ein Buch über VBA Scripting ich glaub das ist nützlich .
Es werden dann bestimmt noch weitere Fragen von mir im Forum folgen.

Kalk
Beiträge: 482
Registriert: Do 6. Feb 2014, 19:45

Re: Warum werden Einträge durch das Makro doppelt kopiert?

Beitrag von Kalk » Mo 31. Jul 2017, 16:25

Gruß Kalk

Antworten