Funktion zur Berechnung der Quersumme implementieren

Ich benötige in Excel 2000 eine Funktion, um die Quersumme von Zahlen zu berechnen. Ich habe einen VBA-Code für Excel 7.0 gefunden, der aber unter den neueren Versionen nicht funktioniert. Wie kann ich die Funktion darin per VBA realisieren?

Das Prinzip des alten, deutschen VBA-Codes ist immer noch korrekt. Seit Excel 97 gibt es aber keine deutschsprachige Variante von VBA mehr. Sie müssen den Code daher ins Englische übertragen.
Öffnen Sie Ihre Arbeitsmappe und wählen Sie »Extras | Makro | Makros« aus. Geben Sie den Namen »Quersumme« ein und klicken Sie auf »Erstellen«. Jetzt ändern Sie den Programmcode im VBA-Editor wie folgt:

Function Quersumme(Zahl)

For i = 1 To Len(Str$(Zahl))
Quersumme = Quersumme + Val(Mid$(Zahl, i, 1))
Next i
End Function
Der VBA-Code ermittelt zunächst die Anzahl der Ziffern und summiert diese dann nacheinander in der For-Next-Schleife. Beenden Sie den VBA-Editor mit dem Befehl »Datei | Schließen und zurück zu Microsoft Excel«. Jetzt können Sie die Funktion »Quersumme« in dieser Arbeitsmappe wie jede andere Funktion verwenden. Um sie in Excel universell verfügbar zu machen, müssen Sie die Funktion als Add-in speichern und dann in Excel einbinden.