Hier een voorbeeld van een UDF, de basis voor een OGM controle
In bijlage een voorbeeld
Option Explicit
Public Function OgmDigit(x As Range) As String
Dim dbldeelL As Double
Dim dbldeelR As Double
Dim dbldeelMOD As Double
dbldeelL = Val(Left(x, 10))
dbldeelR = Val(Right(x, 2))
dbldeelMOD = dbldeelL - (Int(dbldeelL / 97) * 97)
OgmDigit = dbldeelMOD
OgmDigit = Format(OgmDigit, "00")
If dbldeelMOD = 0 Then
dbldeelMOD = 97
OgmDigit = dbldeelMOD
OgmDigit = Format(OgmDigit, "00")
End If
If dbldeelMOD <> dbldeelR Then
OgmDigit = 0
OgmDigit = Format(OgmDigit, "0")
End If
End Function
Hoe zou ik bijv. automatisch in een lus een OGM nummer kunnen genereren als ik op een knop klik?
Mvg,
Diezel