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.939 Themen, 20.672 Beiträge
Kolti mr.escape „Vielleicht Val ? mr.escape“
Hi, mr.escape
Ich danke Dir.
Das ist richtig.
Das blöde Excel hat das Ursprungsschlüsselwort "Wert" in "Value" übersetzt.
Nochmals Danke.
cu Kolti
