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.
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.