makro um sverweis-liste zu kopieren u. a. a. stelle einfügen

[mostpatiently]

Hallo an alle,
ich hab zwar eifrig gesucht aber im Internet leider nichts gefunden, deshalb meine Frage (Bitte) an dieser Stelle: Ich habe im OrdnerC:/Daten eine Datei namens "Belegung", hier ein Tabellenblatt "Belegung1". Auf diesem Tabellenblatt befindet sich von A3 bis I1000 eine mit SVERWEIS kreierte Liste mit Namen. Diese Liste soll mit einem Makro kopiert werden und auf dem selben Blatt wieder eingefügt werden bei AI3 und zwar mittels Rechtsklick "Inhalte einfügen", Auswahl "Text", "Zahlen"und "Datum", um den Inhalt der aktuellen Ausgangsliste zu archivieren. Das Makro habe ich schon erstellt mithilfe der Makro-aufzeichnen-Funtion. Ich hätte aber gerne ein "richtiges", selbst geschriebenes Makro in OpenOffice.orgBasic, da mir das aufgezeichnete Makro fehleranfällig erscheint. Kann mir jemand helfen?
Hier das aufgezeichnete Makro:
sub Makro6
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 = "$A$3:$J$1000"

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 = "$A$3"

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

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ToPoint"
args4(0).Value = "$AI$3"

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

rem ----------------------------------------------------------------------
dim args5(5) as new com.sun.star.beans.PropertyValue
args5(0).Name = "Flags"
args5(0).Value = "SVD"
args5(1).Name = "FormulaCommand"
args5(1).Value = 0
args5(2).Name = "SkipEmptyCells"
args5(2).Value = false
args5(3).Name = "Transpose"
args5(3).Value = false
args5(4).Name = "AsLink"
args5(4).Value = false
args5(5).Name = "MoveMode"
args5(5).Value = 4

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

end sub
Vielen Dank
Mostpatiently

[Karolus]

Hallo

Code: Alles auswählen

sub copydata
    with thisComponent.sheets().getByName("Belegung1")
        source = .getCellRangeByName("A3:J1000").getDataArray()
        .getCellRangeByName("AI3:AR1000").setDataArray( source )
    end with
end sub

Karo

[mostpatiently]

Hallo Karo,
ich merk schon, alles ganz einfach...
Vielen Dank
Mostpatiently

[mostpatiently]

Wobei,
jetzt hätte ich doch noch eine Frage: Wenn ich diese neue Liste ("AI3:AR1000") nun in einem 2. Schritt mit einem Makro sortieren möchte, z. B. nach Spalte AK aufsteigend, wie müßte dieses Makro dann aussehen?

Viele Grüße
Mostpatiently

[Karolus]

Hallo

Wobei,
jetzt hätte ich doch noch eine Frage: Wenn ich diese neue Liste ("AI3:AR1000") nun in einem 2. Schritt mit einem Makro sortieren möchte, z. B. nach Spalte AK aufsteigend, wie müßte dieses Makro dann aussehen?

Wobei -

• - man im Calcforum eigentlich keine Fragen stellen sollte, die ins Makroforum gehören.
  - man für eine neue Frage ein neues Thema erstellen sollte.

gib im Makroforum mal sortieren als Suchbegriff ein...

Karo

[mostpatiently]

Hallo Karo,
werd ich machen!
Viele Grüße
mostpatiently

[mostpatiently]

Hallo an alle Helfer,
zu dem von Karo freundlicherweise zur Verfügung gestellten Makro
sub copydata
with thisComponent.sheets().getByName("Belegung1")
source = .getCellRangeByName("A3:J1000").getDataArray()
.getCellRangeByName("AI3:AR1000").setDataArray( source )
end with
end sub
hätte ich doch noch eine Frage: Wie müsste der Code aussehen, wenn die mit diesem Makro durchgeführte Anderung auch gleich gespeichert werden soll, das Makro also auch das Speichern beinhalten soll?

Viele Grüße
Mostpatiently

[F3K Total]

Hi,
du fügst eine Zeile hinzu:

Code: Alles auswählen

sub copydata
    with thisComponent.sheets().getByName("Belegung1")
        source = .getCellRangeByName("A3:J1000").getDataArray()
        .getCellRangeByName("AI3:AR1000").setDataArray( source )
    end with
    thisComponent.store
end sub

Gruß R

[Thomas Mc Kie]

und du stellst Makrofragen auch am Besten hier: viewforum.php?f=18

Grüße

Thomas

[mostpatiently]

Hallo F3K Total,
vielen Dank für die schnelle Hilfe
Hallo Thomas,
beim nächsten mal wird alles besser...

Viele Grüsse
Mostpatiently