Formel aus einer Zelle in einen Bereich kopieren??
Verfasst: Mi, 18.06.2008 16:47
hallo Zusammen,
ich bin relativ neu in der Programmierung von OpenOffice und habe bisher aus den vorhanden Beiträgen einiges lernen könne aber - wie jeder hier der fragt - ein kleines Problem bleibt:
wie kann ich aus einer Zelle (z.B. E2 ) die Formel auf einen Bereich (E2:M7000) kopieren?
in E2 steht folgende Formel: "=value($Rohdaten.E2)", da hole ich mir einen String und mach daraus eine Zahl...
in dem Bereich soll dann natürlich in der Zelle E3 "=value($Rohdaten.E3)" stehen usw. auch in den andern Zellen...
so wie mit Zelle kopieren in die Zwischenablage, dann bereich markieren und dann strg-v einfügen...
ich habe es mal mit einer Schleife versucht - funktionert ist aber langsam.... mir fehlt noch etwas ... der richtige Befehl...
wer weiss da was???
Vielen Dank ...
ich bin relativ neu in der Programmierung von OpenOffice und habe bisher aus den vorhanden Beiträgen einiges lernen könne aber - wie jeder hier der fragt - ein kleines Problem bleibt:
wie kann ich aus einer Zelle (z.B. E2 ) die Formel auf einen Bereich (E2:M7000) kopieren?
in E2 steht folgende Formel: "=value($Rohdaten.E2)", da hole ich mir einen String und mach daraus eine Zahl...
in dem Bereich soll dann natürlich in der Zelle E3 "=value($Rohdaten.E3)" stehen usw. auch in den andern Zellen...
so wie mit Zelle kopieren in die Zwischenablage, dann bereich markieren und dann strg-v einfügen...
ich habe es mal mit einer Schleife versucht - funktionert ist aber langsam.... mir fehlt noch etwas ... der richtige Befehl...
wer weiss da was???
Vielen Dank ...
Code: Alles auswählen
oSheet1 = oDocument.Sheets.getByName("Arbeitsdaten") rem Quelle Arbeitsdaten
oSheet2 = oDocument.Sheets.getByName("Arbeitsdaten") rem Ziel Arbeitsdaten
oQuelleRange=oSheet1.getCellRangeByName("e2")
oQuellRangeAddresse = oQuelleRange.getRangeAddress
'jetzt mit schleife... des tut - aber sehr lange!!!
for j = 4 to 12
for i = 1 to 7000 ' E bis M
oZiel = oSheet2.getCellByPosition(j,i)
oZielCellAdresse=oZiel.getCellAddress
oSheet2.copyRange(oZielCellAdresse,oQuellRangeAddresse)
next i
next j