Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Postcode cel opmaken als '9999 XX' herhaalde oproep
567 views
Skip to first unread message
Guus
Jul 16, 2003, 4:55:07 AM7/16/03
to
Hallo,
Gisteren heb ik een vraag gesteld inzake opmaken van een
cel die de postcode bevat als volgt: 8421AB
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
Niek Otten
Jul 16, 2003, 5:11:58 AM7/16/03
to
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
"Guus" <G.Sm...@educ.unimaas.nl> wrote in message
news:0a5c01c34b77$f4ab6310$a101...@phx.gbl...
Rob
Jul 16, 2003, 5:18:21 AM7/16/03
to
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
>.
>
vandi...@gmail.com
Oct 20, 2016, 5:50:58 AM10/20/16
to
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
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
Nov 8, 2023, 4:45:49 AM11/8/23
to
Op donderdag 20 oktober 2016 om 11:50:58 UTC+2 schreef vandi...@gmail.com:
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.
=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.
0 new messages