BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!

❤️ DANKE >><< DANKE ❤️

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

Convert cell value to currency via code in Basic

Alles zur Programmierung im LibreOffice.
Antworten
TorbenIT
Beiträge: 9
Registriert: Do 1. Apr 2021, 10:32

Convert cell value to currency via code in Basic

Beitrag von TorbenIT » Di 6. Apr 2021, 15:19

Hello, this code works just fine - I just need to convert my interger number to a currency, but I think it doesn't work like that:

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


TorbenIT
Beiträge: 9
Registriert: Do 1. Apr 2021, 10:32

Re: Convert cell value to currency via code in Basic

Beitrag von TorbenIT » Di 6. Apr 2021, 15:58

Solution:

Code: Alles auswählen

		CCur(dest.Value)
		CCur(inputC.Value)

mikele
Beiträge: 1642
Registriert: Mo 1. Aug 2011, 20:51

Re: Convert cell value to currency via code in Basic

Beitrag von mikele » Di 6. Apr 2021, 16:19

Hello,
a cell content is either a value, a string or a formula. So what do you mean with convert a value into a currency? I think it's only the format of the cell. CCur() doesn't change this format.
By the way: I'm confused about the language - english or deutsch?
Gruß,
mikele

An alle, die das LibreOffice-Forum nutzen:


Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.

❤️ Vielen lieben Dank für Ihre Unterstützung ❤️

Antworten