Skript um in einer Zeile Wert einzufügen

[G0L0M]

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.

[Toxitom]

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