[gelöst] Wert aus Berechnung in neue Zelle schreiben

[yeti]

Hallo,

es geht um eine Calc-Tabelle.
Ich möchte gerne den Wert aus einer Zelle (C3) in eine andere Zelle schreiben (D3).
Das Problem ist, daß in der Zelle C3 eine Formel steht (=A3+B3). Hinterher sollen die Spalten A bis C gelöscht werden können.

Gibt es hier ein einfaches Beispiel, daß ich selbst anpassen kann?

Viele Grüße
Yeti

[turtle47]

Hi Yeti,

Das Problem ist, daß in der Zelle C3 eine Formel steht (=A3+B3). Hinterher sollen die Spalten A bis C gelöscht werden können.

Das ist kein Problem, da man ja nur den Wert der Zelle auslesen kann um diesen dann in eine andere Zelle zu übertragen.

Gibt es hier ein einfaches Beispiel, daß ich selbst anpassen kann?

Ja, wie folgt:

Code: Alles auswählen

Sub Wert_Uebertragen
   odoc = thisComponent
   mysheet = oDoc.sheets(0)'erstes Tabellenblatt
   myValue = mysheet.getcellrangebyname("C3").value
   mysheet.getcellrangebyname("D3").value = myValue
End Sub

Hilft das weiter?

Jürgen

[yeti]

Hi,

kurz nachdem ich den Beitrag geschrieben habe, hab ich dann gleich als nächstes hier im Forum noch das hier gefunden, was auch funktioniert:

Code: Alles auswählen

Sub Wert_uebernehmen
oCell1 = thisComponent.sheets().getbyname("Test1").getcellrangebyname("C3").value 'lesen
thisComponent.sheets().getbyname("HauptTabelle").getcellrangebyname("D3").Value =oCell1 'schreiben
End Sub

Entsprechend angepasst für eine Zelle funktioniert das auch.
Jetzt hab ich das ganze für einen Zellbereich angepasst und bekomme eine Fehlermeldung.

Code: Alles auswählen

oCell1 = thisComponent.sheets().getbyname("Test1").getcellrangebyname("C3:C6").value 'lesen
thisComponent.sheets().getbyname("Test1").getcellrangebyname("D3:D6").Value =oCell1 'schreiben
End Sub

Fehler:
Basic Laufzeitfehler.
Eigenschaft oder Methode nicht gefunden.

Wie gebe ich einen Zellberiech an? Ich dachte getcellrangebyname würde man so schreiben... ?

Gruß Yeti

[yeti]

....

Hilft das weiter?

Jürgen

Vielen Dank Jürgen,

hat sich direkt mit meiner nächsten Frage überschnitten
Dein Vorschlag und mein gefundener Code sind sozusagen identisch? (Frage, weil ich mich kaum auskenne )

Gruß Yeti

[turtle47]

Dein Vorschlag und mein gefundener Code sind sozusagen identisch?

Ja.

Jetzt hab ich das ganze für einen Zellbereich angepasst und bekomme eine Fehlermeldung.

Code: Alles auswählen

oCell1 = thisComponent.sheets().getbyname("Test1").getcellrangebyname("C3:C6").value 'lesen

Das kann so nicht funktionieren, weil das Variable "oCell1" in Verbindung mit ".Value" nur einen Wert aufnehmen kann und nicht wie in Deinem Beispiel gleichzeitig vier Werte.

Man muss also die Zellen nacheinander abarbeiten.

Code: Alles auswählen

Sub Werte_Uebertragen
   odoc = thisComponent
   mysheet = oDoc.sheets(0)
   for i = 3 to 6
   myValue = mysheet.getcellrangebyname("C" + i).value
   mysheet.getcellrangebyname("D" + i ).value = myValue
   next i
End Sub

Man kann auch mit einem Array arbeiten was den Vorteil hat, dass diese bei grösseren Zellbereichen wesentlich schneller arbeitet.

Code: Alles auswählen

Sub Werte_Uebertragen_Array
	myValue1 = ThisComponent.Sheets().getByIndex(0).getCellRangeByName("C3:C6")
	x = myValue1.getDataArray()
	myValue2 = ThisComponent.Sheets().getByIndex(0).getCellRangeByName("D3:D6")
	myValue2.setDataArray(x())
End Sub

Jürgen

[yeti]

Super, vielen Dank!
Hab beides probiert und bin sehr glücklich damit

Ich hab die beiden Codes denke ich sogar verstanden...

Gruß Yeti