Dezimalpunkte löschen mit SUBSTITUTE

[F. Hebel]

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: Alles auswählen

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

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

[DPunch]

Aloha

Code: Alles auswählen

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

[F. Hebel]

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: Alles auswählen

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

Cheerio
FingerHebel

[DPunch]

Aloha

Deine Lösung hat zwar auch noch nicht so richtig funktioniert, aber sie hat mich auf den richtigen Weg gebracht.

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.