VBA: code om formaat IBAN toe te passen op bereik

[tomswaelen]

Prima! Ik zal nog even de uiteindelijke code zetten, moest nog iemand op zoek zijn naar de oplossing:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, y As Long
If Not Intersect(Target, Range("a1:a11")) Is Nothing And Target.Count = 1 Then
 Application.EnableEvents = False
      Target = Replace(Target, " ", "")
      For i = 1 To Len(Target) Step 4
         Target.Characters(i + y, 0).Insert (" ")
         y = y + 1
       Next i
    Target = Mid(UCase(Target), 2)
   Application.EnableEvents = True
 End If
End Sub

Bedankt allemaal! En vrolijk Kerstfeest ;-)

 

[edmoor]

Hetzelfde gewenst
Toch ben ik nog benieuwd naar het antwoord op mijn vraag aan snb

 

[HSV]

Bedankt voor het overnemen @edmoor.
kan ook zo.

target = trim(UCase(Target))

wachten we nog even op @snb.

 

[Ginger]

Hmmm... lijkt mij persoonlijk niet verstandig om zo'n bankrekeningnummer te "verkrachten" door er spaties aan toe te voegen. Wat snb doet, lijkt mij het enige juiste. Namelijk het aanpassen van de opmaak, maar onder water blijft de waarde intact. Zo kan je 'me veel eenvoudiger blijven gebruiken.

 

[snb]

@ginger

Natuurlijk ben ik het wer eens 100% met je eens.

@edm

dat lukt jou ook zelf wel...

 

[edmoor]

@edm

dat lukt jou ook zelf wel...

Gelukt :d

 

[tomswaelen]

Gelukt :d

En hoe ziet dat resultaat er uit?

 

[tomswaelen]

Hmmm... lijkt mij persoonlijk niet verstandig om zo'n bankrekeningnummer te "verkrachten" door er spaties aan toe te voegen. Wat snb doet, lijkt mij het enige juiste. Namelijk het aanpassen van de opmaak, maar onder water blijft de waarde intact. Zo kan je 'me veel eenvoudiger blijven gebruiken.

Ik zie je punt, maar voor mij werkt het wel. In mijn geval dient het enkel om af te drukken, de nummers worden enkel ingetikt en nadien niet meer gemanipuleerd.

 

[edmoor]

En hoe ziet dat resultaat er uit?

Function Rekening(Nummer) As String
    Rekening = Trim(UCase(Format(Nummer & String(4 - Len(Nummer) Mod 4, " "), Replace(Space(Len(Nummer) \ 4), " ", "@@@@ "))))
End Function

 

[HSV]

Even getest, en volgens mij kan de 4 in de string er nog uit.

Function Rekening(Nummer) As String
    Rekening = Trim(UCase(Format(Nummer & String(Len(Nummer) Mod 4, " "), Replace(Space(Len(Nummer) \ 4), " ", "@@@@ "))))
End Function

 

[edmoor]

Dan mag de Trim er ook nog af, al hou je dan een extra spatie aan het einde over.

Function Rekening(Nummer) As String
    Rekening = UCase(Format(Nummer & String(Len(Nummer) Mod 4, " "), Replace(Space(Len(Nummer) \ 4), " ", "@@@@ ")))
End Function

 

[snb]

Mij is niet helemaal duidelijk of het IBAN nummer aangeuld moet worden tot een veelvoud van 4 teken.
Indien niet:

Function F_snb(c00) As String
  F_snb = UCase(Format(c00, Replace(Space((Len(c00) - 1) \ 4), " ", "@@@@ ")))
End Function

 

[tomswaelen]

Nee, het moet enkel gegroepeerd worden in groepjes van 4, met de rest op het einde. Een fictief nummer van 26 nummers zou dus zijn:

XXXX XXXX XXXX XXXX XXXX XXXX XX