Een punt in een waarde toevoegen

[jjmermen]

Hallo,
Ik heb een aantal nummers in kolom A staan waarvan ik bij allemaal op de tweede plaats een punt (.) wil hebben. Ik heb het via Celeigenschappen gedaan met als notatie "#"."#####", echter dan blijft in het adressenbalk de waarde zonder punt weergeven. In de bijlage een voorbeeld.Bekijk bijlage 304189
Heeft iemand hier een oplossing voor?
bvd.

 

[AlexCEL]

Als je dit er nu eens naast zet:

=LINKS(A1;1)&"."&RECHTS(A1;LENGTE(A1)-1)

Is het een eenmalige actie of een terugkerende actie?

 

[danny147]

Beste jjmermen ,

Via celeigenschappen --> aangepast --> 0.00000
Enkel als het getal uit 6 cijfers bestaat anders met formule een punt toevoegen.

 

[jjmermen]

Als je dit er nu eens naast zet:

=LINKS(A1;1)&"."&RECHTS(A1;LENGTE(A1)-1)

Is het een eenmalige actie of een terugkerende actie?

Met deze formule kan ik zeker wat mee dank je. Dit is een terugkerende actie.

 

[jjmermen]

Beste jjmermen ,

Via celeigenschappen --> aangepast --> 0.00000
Enkel als het getal uit 6 cijfers bestaat anders met formule een punt toevoegen.

Via celeigenschappen krijg ik de notatie wel. Als ik deze exporteer naar een XML bestand laat hij de punt weg.

 

[SjonR]

Met vba kan je omzetten. Deze onder een knop?

Private Sub CommandButton1_Click()
For Each cell In Range("A:A")
If cell.Value <> "" Then
cell.Value = Left(cell, 1) & "." & Right(cell, 5)
End If
Next
End Sub

 

[dnties]

@SjonR: Let wel op dat sommige waarden (in het voorbeeldbestand dan toch) al zijn geformatteerd met die '.' er in. Vlgs. mij zou jouw knop-code er dan een tweede '.' bij zetten, want je code lijkt alleen te checken op "niet leeg", dus niet of Left(cell,1) toevallig (al) een '.' is...

Tijs.

 

[VenA]

Om meer dan een miljoen rijen te doorlopen lijkt mij ook niet handig.

For Each cl In Columns(1).SpecialCells(2)
  If Mid(cl, 2, 1) <> "." Then cl.Value = Left(cl, 1) & "." & Mid(cl, 2)
Next cl

 

[jjmermen]

Met vba kan je omzetten. Deze onder een knop?

Private Sub CommandButton1_Click()
For Each cell In Range("A:A")
If cell.Value <> "" Then
cell.Value = Left(cell, 1) & "." & Right(cell, 5)
End If
Next
End Sub

Helaas werkt deze macro niet.

 

[jjmermen]

Om meer dan een miljoen rijen te doorlopen lijkt mij ook niet handig.

For Each cl In Columns(1).SpecialCells(2)
  If Mid(cl, 2, 1) <> "." Then cl.Value = Left(cl, 1) & "." & Mid(cl, 2)
Next cl

Top.. deze macro werkt. Precies wat ik zocht bedankt.

 

[HSV]

Om meer dan een miljoen rijen te doorlopen lijkt mij ook niet handig.

Precies.

Sub hsv()
 Columns(1).SpecialCells(2).Name = "bereik"
 Range("bereik") = [if(mid(bereik,2,1)<>".",left(bereik,1) & "." & mid(bereik,2,len(bereik)),bereik)]
 Application.Names("bereik").Delete
End Sub