OpenOffice.info

Verfasst: **Di, 26.09.2006 15:10**

Hallo,

ich habe eine Spalte B, die mit kommagetrennten Werten (Preisangaben. Bsp. 4,5) befüllt ist. Ich benötige ein Skript welches vor jeden Wert der Zeile B ein 1: hinzufügt.

Beispiel

B
2,3
4,5
5,6
7,8

Nach Ausführung des Skript soll die Spalte wie folgt aussehen.

B
1:2,3
1:4,5
1:5,6
1:7,8

Danke, für eure Hilfe.

Verfasst: **Di, 26.09.2006 16:47**

Hey Golom,

Also, ein paar Daten fehlen (z,B. sind die Kommazahlen Werte oder Texte?) und ich nehme an, du meinst Calc?

hier ein Beispielcode:

Code: Alles auswählen

Sub WerteWechseln
	oSheet = thisComponent.sheets(0)
	dim s as string
	for i = 1 to 5
		s = "1:" & oSheet.getCellRangeByName("b"& i).value 
		oSheet.getCellRangeByName("b"& i).string = s
	next
End Sub

Dies wechselt im 1. Tabellenbaltt (Index 0) in den Zellen B1 bis B5 die Werte in Strings mit Vorangestellten "1:xxx".
Das musst du halt entsprechend anpassen.
Sind die Zahlen in den Zellen schon Texte, so ersetzt du den Begriff "value" mit "String"

Gruss
Thomas

OpenOffice.info

Skript um in einer Zeile Wert einzufügen

Skript um in einer Zeile Wert einzufügen