OpenOffice.info

Hallo Karolus,

vielen Dank für die Hilfe, es funktioniert einwandfrei, habe es eben getestet.

Habe aber noch eine weitere Frage. Gibt es die Möglichkeit, alle Felder des benannten Bereichs anstatt mit
Werten aus einem anderen Bereich auch mit "0" zu füllen?

Danke für die Hilfe und viele Grüße

hebbe

sub kopieren_NamedRanges
doc = thisComponent
NamedRanges = doc.NamedRanges
source = NamedRanges.getByName("Bereich1").getReferredCells()
target = NamedRanges.getByName("Bereich2").getReferredCells()
data = source.getDataArray()
target.setDataArray( data )
end sub

[code=php]
sub kopieren_NamedRanges
doc = thisComponent
NamedRanges = doc.NamedRanges
source = NamedRanges.getByName("Bereich1").getReferredCells()
target = NamedRanges.getByName("Bereich2").getReferredCells()
data = source.getDataArray()
target.setDataArray( data )
end sub[/code]

Karolus

Mit [url=http://extensions.services.openoffice.org/de/project/MRI]mri[/url] lassen sich solche Dinge relativ einfach herausfinden!

[quote="Karolus"]Hallo
[quote]..mit getDataArray kenne mich nicht gut aus[/quote]
dem kann man abhelfen
[code=php]
sub kopieren
doc = thisComponent
sheet = doc.Sheets.getByName("Tabelle1")
data = sheet.getCellRangeByName("A5:A35").getDataArray()
sheet.getCellRangeByName("B5:B35").setDataArray( data )
end sub[/code]

Karolus[/quote]


Hallo Karolus,

wie würde den der Code aussehen, wenn ich für den Bereich A5:A35 über Einfügen | Namen festlegen den
Namen Bereich1 und für B5:B35 den Namen Bereich2 definiert hätte(sog. namendranges). Will damit verhindern,
dass sich durch einfügen/löschen von Zeilen davor evtl. die falschen Zellen kopiert werden.

Hoffe Du kannst mir da weiterhelfen.

Viele Grüße

hebbe

Hallo Karolus
Kurz und schmerzlos. Das verstehe sogar ich und konnte es problemlos anpassen.
danke :-)

sub kopieren
doc = thisComponent
sheet = doc.Sheets.getByName("Tabelle1")
data = sheet.getCellRangeByName("A5:A35").getDataArray()
sheet.getCellRangeByName("B5:B35").setDataArray( data )
end sub

Hallo
[quote]..mit getDataArray kenne mich nicht gut aus[/quote]
dem kann man abhelfen
[code=php]
sub kopieren
doc = thisComponent
sheet = doc.Sheets.getByName("Tabelle1")
data = sheet.getCellRangeByName("A5:A35").getDataArray()
sheet.getCellRangeByName("B5:B35").setDataArray( data )
end sub[/code]

Karolus

ich möchte gern die ergebnisse von formeln kopieren, die in einem bestimmten bereich stehen.
angenommen in den zellen A5:A35 befinden sich formeln, die unterschiedliche ergebnisse auswerfen.
diese ergebnisse möchte ich gern mit einem kleinen makro in die danebenliegende spalte kopieren.

mit getdataarray und setdataarray kenne ich mich noch nicht wirklich gut aus :(