Bereiche Kopieren (nur Ergebnisse keine Formel)

[bebhbgebb]

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

[Karolus]

Hallo

..mit getDataArray kenne mich nicht gut aus

dem kann man abhelfen

Code: Alles auswählen

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

Karolus

[willi64de]

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

[hebbe]

Hallo

..mit getDataArray kenne mich nicht gut aus

dem kann man abhelfen

Code: Alles auswählen

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

Karolus

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

[Karolus]

Code: Alles auswählen

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

Karolus

Mit mri lassen sich solche Dinge relativ einfach herausfinden!

[hebbe]

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