Ich erstelle einen Textcursor, gehe an das Ende vom Text in der Zelle, füge eine 1 ein und stelle diese Hoch.
Code: Alles auswählen
Sub FuZeile
Formate = oDoc.sheets.getByName("Angebot").getCellByPosition(3,9)
textcur = Formate.gettext().createtextcursor()
textcur.gotoend(false)
textcur.String = "1"
textcur.goleft(1,true)
textcur.CharEscapement = 33
textcur.CharEscapementHeight = 80
End Sub
Mike