VBA nummer veld maken

[Sanders69]

Onderstaande code wil ik de bedrag als nummer wordt ingesteld echter blijft dit een tekst veld.
Nu moet er handmatig nog de kolom als getal geconverteerd worden.
Er zal vast iemand zijn die dit al heeft opgelost.
Ik heb ook: wbs.Application.Selection.NumberFormat = "0.00" geprobeerd maar ook dan blijft het een tekstveld.

If InStr(LCase(strFieldname(j)), "bedrag") > 0 Then
wbs.Application.Selection.NumberFormat = "#,##0.00"
Else
wbs.Application.Selection.NumberFormat = "@"
End If

 

[snb]

Wat ontbreekt ?

De Code tags ontbreken.
Het voorbeeldbestand ontbreekt.
Het juiste voorzetsel bij 'bedrag'.

 

[Sanders69]

Sorry het is een deel van de code en in mijn optiek moet het duidelijk zijn.
Als je deze code runt is de inhoud van de cell links uitgelijnd, dus als tekst, en de bedoeling is dat bij getallen het als getal geformatteerd wordt.
Mocht je het niet weten dan wacht ik wel een ander reactie af.

 

[VenA]

Ik denk dat jouw optiek niet strookt met het reactie in #2. Er is niets duidelijk aan. Wie of wat is wbs? Om maar een vraag te stellen.

 

[Sanders69]

Dim wbk As Workbook
Dim wbs As Worksheet

Set xl = New Excel.Application
xl.Visible = True
Set wbk = xl.Workbooks.Add
Set wbs = wbk.Worksheets(1)

en verderop krijg je dan onderstaande regels:

If InStr(LCase(strFieldname(j)), "bedrag") > 0 Then
wbs.Application.Selection.NumberFormat = "#,##0.00"
Else
wbs.Application.Selection.NumberFormat = "@"
endif

het gaat puur om de eigenschappen van de cell te wijzigen naar een getal ipv tekst.
Als ik bovenstaande run dan zijn de waardes in cell links uitgelijnd dus als tekst is geformatteerd.

 

[Sanders69]

strFieldname(j) is een loop van veldnamen welke uit een recordset komt.
En bedrag is dus het veldnaam en is dus een getal.

 

[VenA]

Het ziet er wel spannend uit. Maar geef vooral geen relevante informatie dan kunnen de helpers lekker gokken.

 

[snb]

Gebruik code tags (voor de tweede keer)
Lees de gebruiksvoorwaarden voor dit forum eerst eens door.

 

[JEC.]

Vermenigvuldig met 1 als het een getal is.