Excel um die Funktion »Quersumme« erweitern
(Makro untenstehend)

In der Ausgabe 6 / 97 von CHIP wurde eine Möglichkeit vorgestellt, Quersummen von Zahlen zu bilden. Diese Methode hat allerdings den Nachteil, daß die Anzahl der Stellen auf maximal 14 begrenzt ist und daß dabei auf eine Hilfszelle zurückgegriffen werden muß. Mit Hilfe eines selbst angefertigten Add-Ins kann man Excel jedoch mit der Funktion »Quersumme« ausstatten und sie wie jede andere Funktion in jeder beliebigen Tabelle verwenden.
Mit »Einfügen | Makro | Visual Basic-Modul« legen Sie zunächst ein neues VBA-Modul an, in das Sie das im Kasten abgedruckte Listing eintippen. Wenn Sie nun in der Arbeitsmappe, die das VBA-Modul enthält, »Einfügen | Funktion« wählen, erscheint unter »Kategorie« ein neuer Eintrag »Benutzerdefiniert«. Markieren Sie diesen Eintrag, erscheint im rechten Bereich der Dialogbox die Funktion »Quersumme«. Diese Funktion kann jetzt wie jede andere Funktion verwendet werden. Die Variable »Zahl« enthält entweder den Bezug auf eine Zelle oder die Zahl, aus der die Quersumme gebildet werden soll.
Damit die Funktion »Quersumme« auch in anderen Excel-Tabellen zur Verfügung steht, muß sie in ein Add-In umgewandelt werden. Dazu wechseln Sie in das soeben angelegte VBA-Modul, wählen »Extras | Add-In erstellen« und speichern das Add-In am besten unter dem Namen »Quersumme«. Über »Extras | Add-In- Manager« können Sie das neue Add-In jetzt in Excel integrieren.
Wechseln Sie im Add-In-Manager nach einem Klick auf »Durchsuchen« in das Verzeichnis, in dem Sie das Add-In abgelegt haben und wählen Sie das Add-In »Quersumme« aus. Es erscheint fortan in der Liste »Verfügbare Add-Ins«. Wenn Sie es mit einem Häkchen markieren, steht Ihnen die neue benutzerdefinierte Funktion »Quersumme« dauerhaft in allen Arbeitsmappen zur Verfügung.
Andreas Heinrich