Postcode cel opmaken als '9999 XX' herhaalde oproep

[Niek Otten]

Hi Guus,

Opmaak werkt alleen voor getallen. Jouw celinhoud is tekst, dus werkt opmaak
niet. Alleen een fomule, zoals al als antwoord is gegeven.
--
Regards,

Niek Otten
Microsoft MVP - Excel

Hallo,
Gisteren heb ik een vraag gesteld inzake opmaken van een
cel die de postcode bevat als volgt: 8421AB
Met het antwoord van Rita, (=left(A1);4)& " " & right
(A1);2) is mijn vraag niet beantwoord, ik moet immers weer
met referenties gaan werken.
De vraag blijft: KUN je dit in een opmaak of
stijl zetten. Ik zie bijvoorbeeld in de voorbeelden dat je
zoiets kunt doen met Sofi-nummer of Rekeningnummer.
Zo wil ik nu de postcode ook opmaken dus
8421AB opmaken als 8421 AB.
Ik ben benieuwd.
Alvast bedankt,
Guus

[Rob]

Kijk eens onder Help: About number format codes for text
and spacing. Het antwoord: kan niet ("@" is format voor
hele text string).
Postcode wordt gezien als text - en text is niet deelbaar
in custom format. Zolang het alleen cijfers zijn of zolang
de text niet gedeeld hoeft te worden is een hoop
mogelijk.....

Groeten,

Rob

-----Original Message-----
Hallo,
Gisteren heb ik een vraag gesteld inzake opmaken van een
cel die de postcode bevat als volgt: 8421AB
Met het antwoord van Rita, (=left(A1);4)& " " & right
(A1);2) is mijn vraag niet beantwoord, ik moet immers

weer

met referenties gaan werken.
De vraag blijft: KUN je dit in een opmaak of
stijl zetten. Ik zie bijvoorbeeld in de voorbeelden dat

je

zoiets kunt doen met Sofi-nummer of Rekeningnummer.
Zo wil ik nu de postcode ook opmaken dus
8421AB opmaken als 8421 AB.
Ik ben benieuwd.
Alvast bedankt,
Guus
.

[v***@gmail.com]

Een late reactie maar misschien heeft iemand er nog wat aan.

Via Alt+F11 naar VBA en klik daar op het betreffende werkblad. Plaats daar de volgende code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 5 Then ' = plaatsnaam
Target.Value = StrConv(Target.Value, vbUpperCase)
End If

If Target.Column = 4 And Len(Target.Value) = 6 Then ' = postcodeveld en zonder spatie
Target.Value = Left(Target.Value, 4) & " " & upper(Right(Target.Value, 2))
End If

End Sub

Na bijwerken van kolomveld postcode (kolom 4 bij mij) wordt de postcode in de juiste notatie gezet en na het bijwerken van de woonplaats (kolom 5 bij mij) wordt de woonplaats in hoofdletters gezet.

Groetjes

Wolter

[M. de Jong]

Post by v***@gmail.com
Een late reactie maar misschien heeft iemand er nog wat aan.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then ' = plaatsnaam
Target.Value = StrConv(Target.Value, vbUpperCase)
End If
If Target.Column = 4 And Len(Target.Value) = 6 Then ' = postcodeveld en zonder spatie
Target.Value = Left(Target.Value, 4) & " " & upper(Right(Target.Value, 2))
End If
End Sub
Na bijwerken van kolomveld postcode (kolom 4 bij mij) wordt de postcode in de juiste notatie gezet en na het bijwerken van de woonplaats (kolom 5 bij mij) wordt de woonplaats in hoofdletters gezet.
Groetjes
Wolter

ik heb een formule gemaakt die de PC valideert op 7 posities, eerst 4 cijfers, dan een spatie en dan twee hoofdletters:
=EN(ISGETAL(WAARDE(LINKS(A1;4))); LENGTE(A1)=7; EN(ISTEKST(A1); CODE(RECHTS(A1;1)) >= 65; CODE(RECHTS(A1;1)) <= 90; CODE(RECHTS(A1;2)) >= 65; CODE(RECHTS(A1;2)) <= 90); CODE(RECHTS(A1;3)) = 32)
dit werkt prima.