automatisch karakters invoegen

[Anton1970]

Hoi,

Ik ben bezig met een macro waarbij ik aan een waarde van een cel, automatisch op plaats 5 een streepje (-) in wil voegen en op plaats 9 de tekst (-DNA-0). Bijvoorbeeld
in de eerste cel staat PMB1012341 in de cel ernaast moet dan komen PMB10-1234-DNA-01. In de eerste kolom staan waarden van 10 karakters. In de kolom ernaast moeten dan de 'aangevulde' waarden komen. Hoe kan ik dit het beste aanpakken?

alvast bedankt voor de hulp,
Anton

 

[danny147]

Beste Anton1970

Ziehier bestandje met formules.

Groetjes Danny. :thumb:

 

[Ginger]

Hoe kan ik dit het beste aanpakken?

Hmmm.... gewoon met een formule???

[English]	=LEFT(A1;5) & "-" & MID(A1;6;4) & "DNA-" & TEXT(RIGHT(1;1);"00")

[Dutch] 	=LINKS(A1;5) & "-" & DEEL(A1;6;4) & "DNA-" & TEKST(RECHTS(1;1);"00")

Groet, Leo

 

[gGerretje]

Hallo Mega en Giga senioren,

Jullie zijn veel te snel.



Ik moet nog even oefenen in snelheid.

Groetjes,
Ger

 

[danny147]

Beste Ginger

Even een aanpassing op jouw formule.

[English]	=LEFT(A1;5) & "-" & MID(A1;6;4) & "DNA-" & TEXT(RIGHT([COLOR="Red"][B]A[/B][/COLOR]1;1);"00")

[Dutch] 	=LINKS(A1;5) & "-" & DEEL(A1;6;4) & "DNA-" & TEKST(RECHTS([COLOR="red"][B]A[/B][/COLOR]1;1);"00")

Groetjes Danny.

 

[gGerretje]

Hallo allemaal,

Dan doe ik toch nog even een aanvulling.

[English]	=LEFT(A1;5) & "-" & MID(A1;6;4) & "-DNA-0" & (RIGHT(A1;1)

[Nederlands] 	=LINKS(A1;5) & "-" & DEEL(A1;6;4) & "-DNA-0" & RECHTS(A1;1)

Groetjes,
Ger

 

[danny147]

Beste gGerretje

Deze heb je toch niet overgenomen uit mijn bestandje hé :thumb:
Staat in cel B1 in mijn bestandje.

Groetjes Danny. :thumb:

 

[gGerretje]

Hallo Danny,

Nee, hoor. Ik reageerde op de laatste aanpassing.
Maar ik zie nu dat je die inderdaad ook in het bestandje had gebruikt.
Was niet mijn bedoeling hoor.

Ik was er zo enthousiast mee bezig,

Groetjes,
Ger

 

[Ginger]

Even een aanpassing op jouw formule.

Heel goed! Dank!

Groet, Leo

 

[snb]

=substitueren(a1;deel(a1;6;4);"-" & deel(a1;6;4)&"-dna-0")

 

[Anton1970]

Hoi,

Dit is snel! Dank jullie, ik kan weer verder. :thumb:

groetjes,
Anton

 

[danny147]

Beste Anton1970

Hoi,

Dit is snel! Dank jullie, ik kan weer verder. :thumb:

groetjes,
Anton

Graag gedaan, kan je dan ook de vraag op opgelost zetten, onderaan rechts.
En ook bij Visual Basic mag je deze op opgelost zetten.

Groetjes Danny. :thumb:

 

[Anton1970]

Hoi Danny,

Staat nu op opgelost. Ik was er naar aan het zoeken, dank je en de rest ook uteraard.

groetjes,
Anton

 

[snb]

Nog 2 alternatieven met VBA:

Sub tst()
  c3 = Format([A1], "@@@@@-@@@@-DNA-0@")
  c4 = Format([A1], "&&&&&-&&&&-DNA-0&")
End Sub

in de vorm van een UDF

Function DNA(tekst)
  DNA=Format(tekst, "&&&&&-&&&&-DNA-0&")
End Function

Bijv. in Cel B1
=DNA(A1)

of

Function DNA2(tekst)
  DNA2=Format(tekst, "&&&&&-&&&&-DNA-0&")
End Function

Bijv. in Cel B2
=DNA2(A1)