Excel 7.0: 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