OpenOffice.info

Aloha

[quote="F. Hebel"]Deine Lösung hat zwar auch noch nicht so richtig funktioniert, aber sie hat mich auf den richtigen Weg gebracht.[/quote]
Inwiefern? :?:
Meine Lösung ergibt haargenau das gleiche Ergebnis wie Dein Weg, nur musst Du Dich darauf verlassen, dass OOo das fehlende Ende Deiner Formel ergänzt.

oCell.Formula = "=Substitute(F2;""."";"""

Moinsen DPunch!

Vielen Dank für die Hilfe. Deine Lösung hat zwar auch noch nicht so richtig funktioniert, aber sie hat mich auf den richtigen Weg gebracht.

So läuft´s:
[code]oCell.Formula = "=Substitute(F2;""."";"""[/code]

Cheerio
FingerHebel

oCell.Formula = "=Substitute(F2;""."";"""")"

Aloha

[code]oCell.Formula = "=Substitute(F2;""."";"""")"[/code]

Sub DezPunkteEntfernen
	SpaltenEinfuegen
	Dim oCell as Object, s as String, i as Long
	oDocument = ThisComponent
	oSheet = oDocument.Sheets.getByIndex(0)
	oCell = ThisComponent.sheets(0).getCellRangeByName("F2")
	i = oCell.getValue()
	If i = 0 then
		oCell = oSheet.getCellRangeByName("G2")
		oCell.Formula = "=Substitute(F2;.;"""
	Endif
End Sub

Moin auch!

Ich bin blutiger Anfänger im Bereich Makro-Programmierung und habe ein kleines Problem:

In einer csv-Datei möchte ich bei einer durch Punkt getrennten Dezimalzahl den Punkt entfernen und so eine ganze Zahl draus machen.
Im View Mode ist das eine einfache Sache durch: =wechseln(F2,".";"")

Leider funktioniert dieser Code so nicht als Makro. Ich habe bereits alles Mögliche versucht, und dies ist bislang mein Ergebnis:
[code]Sub DezPunkteEntfernen
SpaltenEinfuegen
Dim oCell as Object, s as String, i as Long
oDocument = ThisComponent
oSheet = oDocument.Sheets.getByIndex(0)
oCell = ThisComponent.sheets(0).getCellRangeByName("F2")
i = oCell.getValue()
If i = 0 then
oCell = oSheet.getCellRangeByName("G2")
oCell.Formula = "=Substitute(F2;.;"""
Endif
End Sub[/code]

Es scheint irgendetwas mit den Anführungszeichen zu tun zu haben, aber ich habe keinen Plan, wie man die setzt. Bin für jede Hilfe dankbar!!!

Cheers
FingerHebel