Rechen-Funktionen von Excel ausleihen

Excel verw÷hnt den Anwender mit statistischen, finanzmathematischen oder Σhnlich anspruchsvollen Funktionen. Access-Anwender k÷nnen dagegen nur auf einen stark eingeschrΣnkten Vorrat dieser Formeln zugreifen. Kein Grund sich zu Σrgern, denn CHIP verrΣt Ihnen, wie sich Access die Funktionen von Excel ganz einfach ausleihen kann. Dieser Tipp zeigt, wie es funktioniert û und das mit nur wenigen unkomplizierten Handgriffen.
Dazu zeigt CHIP anhand der Funktion ╗FakultΣt½, wie die L÷sung laut der Microsoft-Online-Hilfe aussieht und stellt dieser dann die bessere CHIP-L÷sung gegenⁿber.
Die Funktion ╗FakultΣt½ multipliziert eine Zahlenreihe miteinander. Und so sieht die Funktion aus nach der Online-Hilfe aus û dort dient sie sogar als Musterbeispiel:

Function Fakultaet(Zahl As Double) As Double
     If Zahl <= 1 Then
          Fakultaet = 1
     Else
          Fakultaet = Fakultaet(Zahl - 1) * Zahl
     End If
End Function

Jetzt bereiten Sie die L÷sung mit Hilfe der Excel-Formel vor. ZunΣchst schaffen Sie dafⁿr eine Verbindung zwischen Datenbank und Tabellenkalkulation, indem Sie einen Verweis auf die Klassenbibliothek von Excel erzeugen. Dazu aktivieren Sie im Datenbankfenster das Register ╗Module½, klicken auf die SchaltflΣche ╗Neu½ und rufen den Befehl ╗Extras | Verweise½ auf. Im folgenden Dialog aktivieren Sie den Eintrag ╗Microsoft Excel 8.0 Object Library½.
Mit Hilfe des Objektkatalogs k÷nnen Sie sich jederzeit einen ▄berblick ⁿber die momentan verfⁿgbaren Objekte und Methoden verschaffen. Dieses Werkzeug ist ⁿber den Menⁿbefehl ╗Ansicht | Objektkatalog½ oder die Taste [F2] leicht zu erreichen.
Nun haben Sie die M÷glichkeit, aus Ihrem Access-Modul verschiedene Objekte von Excel mit ihren Eigenschaften und Methoden anzusprechen. So nutzen Sie zur Berechnung der FakultΣt die Methode ╗fact½ des Excel-Objekts ╗WorksheetFunction½. Der Quelltext schrumpft damit auf gerade noch drei Zeilen, und Ihnen bleibt die umstΣndliche Programmierung der Funktion erspart:

Function Fakultaet(Zahl As Double) As Double
     Fakultaet = Excel.WorksheetFunction.Fact(Zahl)
End Function

Auf diese Weise k÷nnen Sie auf den gesamten Formelkatalog in Excel zugreifen.