Kopieren ohne Formeln

[Toxitom]

Hey Uwe,

ich fürchte, mit "CopyRange" wird das nicht funktionieren. Diese Methode besitzt keine weiteren Einstellmöglichkeiten.

Da ich nicht genau weiss, was du erreichen möchtest - nur ein kleiner Tipp:
Schau dir mal die Möglichkeiten des Interfaces "com.sun.star.sheet.XCellRangeData" an, dort kanst du zwischen Formeln und Daten unterscheiden.
Nicht übertragen werdfen aber Formate - die müsstest du dann seperat kopieren.

Viele Grüße
Thomas

[Toxitom]

Hey Uwe,

dein Beispielmakro "Bsp_Calc_14.ods" zu verstehen. Wie ich sehe werden die Formeln nicht kopiert. Wie kann ich nun die Funktion "Zufällig sortieren" umgehen?

In dem du alles weglässt, was das "Sortieren" ausmacht. Achte nur darauf, dass die beiden Zellbereich gleich groß sind! (Zeilen/Spalten Anzahl)
Das, was übrig bleibt, wäre dann:

Code: Alles auswählen

...
oBereich1 = oDoc.sheets(0).getCellRangeByName("a6:a13") 'der zu kopierende Bereich
aDat = oBereich1.getDataArray()
oBereich2 = oDoc.sheets(0).getCellRangeByName("c6:c13") 'der Ziel-Bereich
oBereich2.setDataArray(aDat)
...

Viele Grüße
Thomas