Code om nederlandse postcodes weer te geven.

[Bert2010]

Beste hulpen,
ik ben op zoek naar een code om in een kolom in een database de postcode juist weer te geven.
Deze gegevens worden via een invoerformulier in gegeven, vaak zonder spatie of met kleine letters.
Ik heb op internet en diverse forums gezocht, maar heb niet de juiste code kunnen vinden.
Wie kan mij verder helpen?
Bert

 

[HSV]

a = Replace(TextBox1, " ", "")
Range("A1") = Left(a, 4) & " " & UCase(Mid(a, 5, 2))

 

[Bert2010]

Beste Harry, fijn dat je wilt helpen. Ik ben nog een groentje on VB-gebied.
Zou je mij nog willen helpen waar ik deze code moet plaatsen?
Ik zal een voorbeeld bij voegen.
B.v.h.d.
Bert

 

[HSV]

Private Sub Wijzigen_Click()
With Sheets("Database")
    .Cells(SpinButton1.Value, KolomNaam) = Naam.Value
    .Cells(SpinButton1.Value, KolomStraat) = Straat.Value
    .Cells(SpinButton1.Value, KolomNr) = Nr.Value
  [COLOR="#FF0000"]If Postcode Like "*-*" Then
    MsgBox "Geen streepjes in de postcode gebruiken"
   Postcode = ""
  End If
  a = Replace(Postcode, " ", "")
    .Cells(SpinButton1.Value, KolomPostcode) = Left(a, 4) & " " & UCase(Mid(a, 5, 2))[/COLOR]
    .Cells(SpinButton1.Value, KolomWoonplaats) = Woonplaats.Value
    .Cells(SpinButton1.Value, KolomTel_nr) = Tel_nr.Value
    .Cells(SpinButton1.Value, KolomAfdeling) = Afdeling.Value
    .Cells(SpinButton1.Value, KolomLidmaatschap_nr) = Lidmaatschap_nr.Value
    .Cells(SpinButton1.Value, KolomSeizoenplaats) = Seizoenplaats.Value
    .Cells(SpinButton1.Value, KolomOvern_abonn) = Overn_abonn.Value
    .Cells(SpinButton1.Value, KolomKenteken_auto) = Kenteken_auto.Value
    .Cells(SpinButton1.Value, KolomKenteken_caravan) = Kenteken_caravan.Value
  End With
End Sub

Hoofdletters maak je d.m.v.

 Ucase(Afdeling)

 

[Warme bakkertje]

Ik zou de postcode-controle vooraan plaatsen en dan de sub verlaten, anders wordt er al een deel weggeschreven voor de controle.

Private Sub Wijzigen_Click()
If Postcode Like "*-*" Then
    MsgBox "Geen streepjes in de postcode gebruiken"
    Postcode.SetFocus: Exit Sub
End If
With Sheets("Database")
    .Cells(SpinButton1.Value, KolomNaam) = Naam.Value
    .Cells(SpinButton1.Value, KolomStraat) = Straat.Value
    .Cells(SpinButton1.Value, KolomNr) = Nr.Value
    .Cells(SpinButton1.Value, KolomPostcode) = Left(Replace(Postcode, " ", ""), 4) & " " & UCase(Mid(Replace(Postcode, " ", ""), 5, 2))
    .Cells(SpinButton1.Value, KolomWoonplaats) = UCase(Woonplaats.Value)
    .Cells(SpinButton1.Value, KolomTel_nr) = Tel_nr.Value
    .Cells(SpinButton1.Value, KolomAfdeling) = UCase(Afdeling.Value)
    .Cells(SpinButton1.Value, KolomLidmaatschap_nr) = UCase(Lidmaatschap_nr.Value)
    .Cells(SpinButton1.Value, KolomSeizoenplaats) = Seizoenplaats.Value
    .Cells(SpinButton1.Value, KolomOvern_abonn) = Overn_abonn.Value
    .Cells(SpinButton1.Value, KolomKenteken_auto) = UCase(Kenteken_auto.Value)
    .Cells(SpinButton1.Value, KolomKenteken_caravan) = UCase(Kenteken_caravan.Value)
End With
End Sub

 

[HSV]

Dank voor je correctie Rudi.

 

[Bert2010]

Harry en Rudi hartelijk dank voor jullie hulp. Alles werkt nu!

Bert