Referenz Nummer prüfen
08.11.2017 13:46:31
Peter(silie)
ich habe in einer Tabelle eine Spalte mit Ref-Nummern
diese sehen wie folgt aus: 160000000
Die ersten beiden Zahlen stellen das Jahr dar, die anderen Ziffern
sind eine Fortlaufende nummer.
Ich muss per Makro die Gültigkeit der Nummer prüfen,
da diese auch per Code in die Tabelle eingefügt wird.
Die ersten beiden Ziffern müssen eben immer das aktuelle Jahr darstellen.
Der Rest wird nur hochgezählt.
Mein Code für das Prüfen sieht so aus:
(Grausam ich weiß)
Private Function Check_Number(ByVal number_ As Long) As Long
Dim num(8) As Long, year_ As Long, i As Long
year_ = CLng(Format(Date, "yy"))
For i = 1 To Len(CStr(number_))
num(i - 1) = CLng(mid(number_, i, 1))
Next i
If CStr(num(0)) & CStr(num(1)) year_ Then
num(0) = CLng(Left(year_, 1))
num(1) = CLng(Left(year_, 2))
End If
Dim tmp As String
For i = 0 To 8
tmp = tmp & num(i)
Next i
Check_Number = CLng(tmp)
End Function
Habt ihr einen Vorschlag für mich?