Opgelost getallen scheiden door punten

[68Yael]

Beste forumleden,

Ik heb een kolom met 8 of meer getallen aan elkaar per cel.
De celopmaak is standaard.
Deze wil ik scheiden in xx.xxx.xxx oftewel na twee getallen een punt, na drei getallen een punt en dan de rest.
Is dit eenvoudig om te realiseren ipv elke cel de punten er tussen zetten?

32.500.0800

322753009

alvast bedankt voor jullie hulp.

 

[emields]

celopmaak aanpassen of een voorbeeldbestandje plaatsen.

 

[68Yael]

celopmaak staat op standaard en het aanpassen naar ##.###. werkt niet

 

[emields]

000.000.00

 

[68Yael]

Helaas werkte deze oplossing ook niet.
hierbij een voorbeeld wat hoop ik duidelijkheid brengt.

 

[peter59]

Bedoel je zo iets?

 

[AHulpje]

Of met formules:

 

[68Yael]

Hoi Peter,

inderdaad, alleen zie ik niet hoe je dit hebt benoemd.
het lijkt een tabel alleen kan ik niet werken/uploaden van data met filters.

 

[Senso]

@peter
Onduidelijk hoe de resultaten tot stand komen.

 

[edmoor]

@Senso:
Met PowerQuery.

 

[peter59]

@Senso en @68Yael
@edmoor had het bij het goede eind.
Dat is idd gedaan met power query.

alleen kan ik niet werken/uploaden van data met filters

Jawel, welke versie van excel gebruik je?

 

[AD1957]

nog eentje, maar die van AHulpje is korter

=LINKS(SUBSTITUEREN(A1;".";""); 2) & "." &DEEL(SUBSTITUEREN(A1;".";"");3;3) & "." & RECHTS(SUBSTITUEREN(A1;".";""); LENGTE(SUBSTITUEREN(A1;".";"")) - 5)

 

[emields]

veel duidelijkheid brengt rij 7 toch niet.

 

[AD1957]

Misschien een foutje in het voorbeeld
anders nog maar eens =substitueren("_";"")

 

[68Yael]

het is opgelost met de formules.

bedankt allen.

 

[edmoor]

Of met functie in VBA:

Public Function ZETPUNT(Data As String) As String
    ZETPUNT = Data
    If InStr(1, Data, ".") = 0 Then
        ZETPUNT = Left(Data, 2) & "." & Mid(Data, 3, 3) & "." & Mid(Data, 6)
    End If
End Function

 

[popipipo]

celopmaak staat op standaard en het aanpassen naar ##.###. werkt niet

##\.###\.####

Misschien deze celopmaak wel?

 

[AlexCEL]

Nog een formule-optie:

=VERVANGEN(VERVANGEN(SUBSTITUEREN(A1;".";"");3;0;".");7;0;".")