Automatische spatie in postcode's

[FragHank]

Hallo

Ik had een vraagje over Excel. Ik moet vaak adressen kopieren en plakken en postcode's staan in een apart vakje. Nu staan de postcode's als volgt genoteerd:

3207HB

Ik wil wanneer ik plak eenvoudig de postcode's van een spatie voorzien, als volgt:

3207 HB

Ik was een flink eind opweg met celeigenschappen, maar dan kan ik alleen iets verzinnen om alleen cijfers van een spatie te voorzien.

3207 45 bijvoorbeeld.

Dit doe ik door #### ## bij celeigenschappen -> aangepast in te voeren, dus het leek mij dat dit ook kan met letters.

Iemand een oplossing ?

 

[Wigi]

Stel dat A1 een postcode bevat. Gebruik dan:

=LINKS(A1;4)&" "&RECHTS(A1;2)

 

[Valijn]

Ik heb wel een oplossing, n.l door een formule in een extra kolom.
Weet niet of je er wat aan hebt en wellicht komt er nog een mooiere middels VBA

Zie bijlage

 

[Roncancio]

Wellicht is dit een idee:
Onderstaande macro controleert in de A-kolom naar cellen waarvan
- de lengte van de waardes 6 is
- de eerste 4 waardes numerieke waardes zijn
- de laatste 2 waardes niet numerieke waardes zijn.

De gevonden waardes worden voorzien van een spatie.

Sub Macro1()
Dim Rij As Integer
Rij = 1
While Cells(Rij, "A") <> ""
If Len(Cells(Rij, "A")) = 6 And IsNumeric(Left(Cells(Rij, "A"), 4)) = True And IsNumeric(Right(Cells(Rij, "A"), 2)) = False Then
Cells(Rij, "A") = Left(Cells(Rij, "A"), 4) & " " & Right(Cells(Rij, "A"), 2)
End If
Rij = Rij + 1
Wend


End Sub