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.
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
Bitte.
mr.escape