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.
Programmieren - alles kontrollieren 4.935 Themen, 20.621 Beiträge
