min strepje zetten

[Timolias]

Hoe kan ik een min(-) streepje zetten zonder een voor een te doen

Voorbeeld

112345
112346
112347

om met een formule in een keer te doen want er zijn 6500 nummers
Dus ik wil na de 2 of 3 eerste nummers een - streepje to zetten

11-2345
11-2346
11-2347


Alvast Bedankt
Timolias

 

[zapatr]

Voor een streepje na het tweede cijfer:
als het eerste getal in A1 staat, typ dan in B1:
=LINKS(A1;2)&"-"&RECHTS(A1;LENGTE(A1-2))

en kopieer naar beneden in kolom B.
Voor een streepje na het derde cijfer, wijzig je in de formule de 2 in een 3.

 

[Wigi]

Kleine typfout:

LENGTE(A1-2)

moet zijn

LENGTE(A1)-2

 

[vanveelen]

Hoe kan ik een min(-) streepje zetten zonder een voor een te doen
om met een formule in een keer te doen want er zijn 6500 nummers
Dus ik wil na de 2 of 3 eerste nummers een - streepje to zetten

Streepje na 2e cijfer:
In B2: =LINKS(A2;2)&"-"&DEEL(A2;3;4)

Streepje na 3e cijfer:
In B2: =LINKS(A2;3)&"-"&DEEL(A2;4;3)

... en deze formule naar beneden kopiëren

Twee vragen:
1. Waarvan is dat streepje na het tweede of derde cijfer afhankelijk?
2. Is het een eenmalige actie, waarna die formule eigenlijk weer 'weg' moet?

 

[zapatr]

Kleine typfout:
LENGTE(A1-2) moet zijn LENGTE(A1)-2

Je hebt gelijk,
niet goed opgelet

 

[zapatr]

Streepje na 2e cijfer:
In B2: =LINKS(A2;2)&"-"&DEEL(A2;3;4)

Streepje na 3e cijfer:
In B2: =LINKS(A2;3)&"-"&DEEL(A2;4;3)
... en deze formule naar beneden kopiëren

Is wel juist, maar alleen als alle getallen hetzelfde aantal cijfers bevatten( wat wellicht het geval is).
Als dat het geval is, kun je ook gebruiken: =LINKS(A1;2)&"-"&RECHTS(A1;4)
resp. =LINKS(A1;3)&"-"&RECHTS(A1;3)

 

[vanveelen]

Je bedoelt: als de cellen eventueel meer dan die zes tekens bevatten?
Maakt niet uit, dan wordt de functie 'DEEL' gewoon:

DEEL(A2;3;20)
of
DEEL(A2;4;20)

Hij pakt gewoon 'alle' tekens (tot 20) vanaf het derde of vierde teken ....

 

[gGerretje]

Hallo Tée,

Nog een leuke partij: de TVV
Iedereen die vóór Tée van Veelen is

Groetjes,
Ger

 

[Superzeeuw]

Timolias,

Cel eigenschap instellen op 00-0000

Selecteer de gewenste cellen, rechtermuisknop, celeigenschappen, aangepast, vul bij Type in 00-0000 en je ziet erboven het voorbeeld.

 

[snb]

of voor de hele kolom A:

Sub tst()
  With Columns(1).SpecialCells(2)
    .Value = Evaluate("INDEX(left(" & .Address & ",2)&" & """ - """ & "&MID(" & .Address & ",3,20),,)")
  End With
End Sub

 

[Superzeeuw]

Timolias,

Als je vraag beantwoord is wil je dan de vraag op opgelost zetten.