Programmieren - alles kontrollieren 4.939 Themen, 20.672 Beiträge

Hat einer eine Idee??

Function Quersumme(Zahl)
For i = 1 To Len(Zahl)
Quersumme = Quersumme + Value(Mid(Zahl, i, 1))
Next
End Function

Danke für einen kleinen Hinweis.