Opgelost Getalnotatie aangepast

[Senso]

Ik wil een getalnotatie automatisch wijzigen
van 12345678912345
naar > altijd drie cijfers aan het eind maar geen 0 aan het begin tenzij er werkelijk een nul staat.

1.23.45.67.89.12.345
dus voor de 1 mag geen 0 geplaatst worden

Het mag wel worden in dit geval (liever). De binnengroep bestaat altijd uit twee cijfers. > .12.55.66.
123.45.67.89.12.345
Let op het getal kan langer of korter worden. Excel 2007.

00\.00\.00\.00\.00\.000 ik heb zoiets, maar het lukt nog niet goed.

 

[JEC.]

Misschien?

=TEXT(A1;IF(ISODD(LEN(A1));REPT( "00\.";(LEN(A1)-3)/2) & "000";"000\." & REPT("00\.";(LEN(A1)-6)/2) & "000"))

 

[Senso]

Ja, heel mooi. Een getalnotatie zal dan wel niet kunnen? Bedankt voor de inzet en snelle hulp.

 

[JEC.]

Nee helaas met een standaard getalnotatie lukt dit niet. Je kunt het wel omzetten naar VBA waarbij de getalnotatie telkens wordt omgezet naar de juiste.

 

[AlexCEL]

Als de getallen te groot worden krijg je wel afrondingsfouten heb ik gemerkt...

Bijvoorbeeld:

1234567891234545	123.45.67.89.12.34.540
123456789123453333	123.45.67.89.12.34.53.000

 

[AlexCEL]

Met Power Query krijg ik het ook voor elkaar.

 

[Senso]

Bedankt. Ik zal het in de gaten houden en kijken wat het beste lukt. Voorlopig is het niet verder aan de orde. Het zijn factuurnummers, banknummers e.d. vaak niet langer dan 15 tekens en soms met twee letters aan het begin en om die dan goed leesbaar te maken. Handmatig corrigeren kan altijd.

 

[AlexCEL]

Was wel een leuke oefening in Power Query

 

[JEC.]

Hier ook nog eentje in Power Query

let
    Source = Excel.CurrentWorkbook(){[Name="Tabel2"]}[Content],
    cType = Table.TransformColumnTypes(Source,{{"Nummer", type text}}),
    result = Table.AddColumn(cType, "Output", each
          let
              txt = Text.Length([Nummer]),
              xList = List.Skip(List.Alternate({1..txt-2},1,1,(if Number.IsEven(txt) then 1 else 2)))
          in    
              List.Accumulate(xList,[Nummer],(s,c)=>
                  Text.Insert(s,c+List.PositionOf(xList,c) ,".")
                )
          )  
in
    result