Dezimalpunkte löschen mit SUBSTITUTE
Verfasst: Di, 18.01.2011 11:27
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:
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
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 SubCheers
FingerHebel
