Hoe kan ik een cel opmaken als kenteken

[René Dijk]

Ik wil een hele kolom met kentekens zonder
tussenstreepjes (vb: KLHN99) opmaken, zodat er
automatisch streepjes tussen komen (vb:KL-HN-99)
Ik weet dat het met 6 cijfers ( vb:111111 ) wel kan door
in de celopmaak een aangepaste opmaak in te typen (vb: 00-
00-00). Indien deze opmaak wordt gekozen dan worden cel
met 6 cijfers wel omgezet in bijv. 11-11-11.
Het probleem is dus dat ik een opmaak wil hebben waarbij
kan lezen dat er zowel cijfers als letters in een cel
staan en dat het programma daar automatisch streepjes (-)
tussen zet.
Wie kan mij helpen.
Alvast bedankt,

René Dijk

[tim van dinther]

René,

Als je nou de celeigenschappen zet op ######, dat moet volgens mij afdoende
zijn.

Tim

"René Dijk" <r.d...@vandermolen.nl> wrote in message
news:324201c10aa8$07f05920$9ee62ecf@tkmsftngxa05...

[Roland Greve]

Hallo René,

Met opmaak lukt dit niet. Je zou een formule kunnen proberen:
=LINKS(A1;2)&"-"&MIDDEN(A1;3;2)&"-"&RECHTS(A1;2)

Groet,
Roland

[tim van dinther]

Beste allemaal,

Het lukt me wel met celeigenschappen en dan custom opmaak als volgt:
##"-"##"-"##
Wanneer je dan in een cel 111111 typt wordt het na de enter 11-11-11

groeten
Tim van Dinther
"Roland Greve" <rola...@my-deja.com> wrote in message
news:3B4DD1BE...@my-deja.com...

[Roland]

Hallo Tim,

Met alleen cijfers is dit via celeigenschappen ook goed te doen. Bij
een kenteken lukt dit niet, omdat daar ook letters in voorkomen.

Groet,
Roland

"tim van dinther" <timvan...@hotmail.com> wrote in message news:<eVr5mUxCBHA.1940@tkmsftngp05>...

[Harry Linckens]

Hallo René
Ik heb hiervoor 2 oplossingen die overigen beide dezelfde
formule gebruiken als Roland. Ben er van uitgegaan dat de
kentekens in kolom A staan en altijd in totaal 6 cijfers
en/of letters bevatten, anders moet je bij de
eerste oplossing Range("A1") vervangen door bv. "C1" en in
de tweede oplossing in Macro2
(Entertoets_numeriek_aangepast) in de derde regel (If
ActiveCell.Column = 1)door het juiste kolomnummer
vervangen.

Oplossing 1 (aanpassing achteraf door starten volgende
macro)

Sub kolomopmaak_met_tussenstreepjes()
Range("A1").select 'aannemende dat de kentekens in
kolom A staan
Selection.EntireColumn.Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
For Each cell In Selection
getal = ActiveCell.Text
gewgetal = Left(getal, 2) + "-" + Mid(getal, 3, 2) + "-
" + Right(getal, 2)
ActiveCell.Value = gewgetal
ActiveCell.Offset(1, 0).Select
Next cell
End Sub

Oplossing 2(aanpassing na bevesting invoer van een
kenteken door entertoets van
het numerieke blok)

Hier heb ik drie macros voor gemaakt die in een module van
de persnlk(persoonlijke macromap moeten worden
geplaatst, niet in de module van de werkmap want dan lukt
het niet).

Macro 1.
Sub Entertoets_numeriek_aangepast()
Application.OnKey "{enter}", "Entertoets_numeriek_aanpassen
"
End Sub

Macro 2(wordt aangeroepen door macro 1
Sub Entertoets_numeriek_aanpassen()
getal = ActiveCell.Text
If ActiveCell.Column = 1 And Len(getal) = 6 Then
gewgetal = Left(getal, 2) + "-" + Mid(getal, 3, 2) + "-" +
Right(getal, 2)
ActiveCell.Value = gewgetal
ActiveCell.Offset(1, 0).Select
Else: ActiveCell.Offset(1, 0).Select
End If
End Sub

Macro 3
Sub Entertoets_numeriek_normaal()
Application.OnKey "{enter}"
End Sub

De bedoeling is dat je 2 macroknoppen maakt op een
werkbalk. De eerste met bv. de naam
Entertoetsnum normaal, waaraan je dan macro 3
(Entertoets_numeriek_normaal) toewijst
en de tweede met Entertoetsnum.aangepast waaraan je macro 1
(Entertoets_numeriek_aangepast)
toewijst.

De tweede knop zorgt dan voor het invoeren van de
streepjes waneer je in een cel op de Entertoets van het
numerieke blok drukt. De eerste knop zorgt dat de
Entertoets van het numerieke blok weer zijn normale
functie krijgt.
Succes.

Harry

>-----Oorspronkelijk bericht-----

>.
>