Quersumme
25.03.2006 00:50:59
Timonski
hab bei euch schon folgenden Code gefunden für die Quersummen berechnung...
Function Quersumme(Zelle As Range) As Integer
Dim intI%
For intI = 1 To Len(Zelle)
Quersumme = Quersumme + CInt(Mid(Zelle, intI, 1))
Next
End Function
ich habe aber das Problem das die Zelle so aussieht:
X12345678901
kann man da nicht irgendwie das so umstellen das er das erste zeichen weg läst...
ich kann zwar in einer weiteren Zelle die reinen Zahlen auswerten
Mid(Cells(1, 1), 2, 11)
und dann in einer anderen Zelle dann diesen wert mit der Funktion überarbeiten...
kann ich das nicht in einem schritt machen...
ich hoffe das hat jemand verstanden...
nochmal vereinfacht
ich will die Quersumme von diesem Zelleninhalt X12345678901
dank schon mal..
Timonski