Macro code

[verluc]

Teneinde mijn programma verder te vervolledigen, zou ik graag volgende code=

=REST(DEEL(A1;1;LENGTE(A1)-2)*1;97)=RECHTS(A1;2)*1

willen opnemen in mijn macro "Sub Worksheet_Change"

Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then
Exit Sub
Else
If Range("E1") = 0 Then
MsgBox ("Ongeldig banknummer !!")
End If
Exit Sub
End If
End Sub

Kan iemand mij een hier een aanzet geven ?
Dank bij voorbaat.

 

[verluc]

Aanvullend :
de hogervermelde formule staat onder cel E1 en zou dus een onderdeel moeten worden van deze macro, zodanig dat geen formule meer moet worden gebruikt

 

[Wigi]

Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        If Left([A1], Len([A1]) - 2) * 1 Mod 97 <> Right([A1], 2) * 1 Then MsgBox "Ongeldig banknummer !!"
    End If
End Sub

Graag code tags gebruiken als je code plaatst op het forum, bedankt.

Wigi

 

[Ginger]

Ik zou deze eerder oplossen met je formule in Data Validatie... Heb je ook geen VBA nodig!

Groet, Leo

 

[Warme bakkertje]

Aangezien heden ten dage nog enkel gebruik wordt gemaakt van IBAN-rekeningnummers is deze formule toch eigenlijk helemaal niet meer aan de orde, aangezien de controle van deze IBAN-nummers totaal anders is.

 

[verluc]

Wigi, bedankt voor Uw snelle reactie om de formule te verwerken in mijn macro.
Zal deze, gezien de mededeling van Warme Bakkertje, niet lang meer kunnen gebruiken en dien ik inderdaad mij toe te leggen om IBAN-rekeningnummers in te voeren ipv gewone banknummers.
Kom hier dan ook later op terug wanneer dit zich opdringt.
Intussen zeer bedankt voor jullie reactie.