My current Solution at the end of the code snippet is: dest.NumberFormat = "€#,##0.00"
Code: Alles auswählen
Dim objDatei as Object
Dim objBlaetter As Object
Dim objBlatt As Object
Dim inputC As Object
Dim dest As Object
objDatei = ThisComponent
objBlatt = objDatei.Sheets(0)
inputC = objBlatt.getCellByPosition(1, 6)
row = 3
column = 18
dest = objBlatt.getCellByPosition(row, column)
Do While dest.Value <> 0
column = column + 1
dest = objBlatt.getCellByPosition(row, column)
Loop
dest = objBlatt.getCellByPosition(row, column)
dest.NumberFormat = "€#,##0.00"
dest.Value = inputC.value
objBlatt.Columns(0).OptimalWidth = True