Hallo zusammen
Ich habe folgende Funktion im Internet gefunden. Ich möchte diese Berechnung mit einer Zahl z.B. von der Zelle A1 ausführen. Leider weiss ich nicht wie solche Funktionen funktionieren bzw wie ich sie ansprechen kann. Kann mir jemand helfen? Danke.
Function Modulo10(ByVal strNummer As String) As Integer 'strNummer darf nur Ziffern zwischen 0 und 9 enthalten! Dim intTabelle(0 To 9) As Integer Dim intÜbertrag As Integer Dim intIndex As Integer intTabelle(0) = 0: intTabelle(1) = 9 intTabelle(2) = 4: intTabelle(3) = 6 intTabelle(4) = 8: intTabelle(5) = 2 intTabelle(6) = 7: intTabelle(7) = 1 intTabelle(8) = 3: intTabelle(9) = 5 For intIndex = 1 To Len(strNummer) intÜbertrag = intTabelle((intÜbertrag + Mid(strNummer, intIndex, 1)) Mod 10) Next Modulo10 = (10 - intÜbertrag) Mod 10 End Function
Gruss Dani