variabel Anzahl an input Parametern

Hallo,
ich möchte eine Funktion schreiben, die sich genau so verhält wie 'Summe' in excel. d.h. sie soll
- von einer Zelle aus aufzurufen sein [ z.B. in zelle A1: "=summe(...)" ]
- die Input-parameter sollen ranges sein [ z.B. "=summe(B1;B2)" ]
- die Anzahl der Input-Parameter soll dabei variabel sein [ z.B. "=summe(B1;B2)" oder "=summe(B1;B2;B3)"]
- die funktion sollte auch mit 50 Input-Parametern klarkommen
Sagen wir als Beispiel, dass ich meine eigene Summen-Formel bauen möchte.
Mit einer festen Anzahl an Input-Arguenten hätte ich kein problem.
Aber wie mache ich das mit der beliebigen Anzahl an Input-Argumenten?
Kann man sich den source code der Excel-Funktionen (z.B. Summe) irgendwo ansehen?
Beste Grüße

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…fktt so nur mit EinzelZellAngaben, David;
der XlFkt SUMME kann man aber auch ganze ZellBereiche und EinzelZellen gleichzeitig übergeben, was Tinos BspPgm in einen Fehler laufen ließe (wg der einfachen Addition). Das musst du also noch bei deiner Fkt beachten.
Ein ParamArray ist ein Variant mit einem Datenfeld. Die Indizierung seiner Elemente beginnt (außer evtl, falls in VBA global anders eingestellt) stets mit 0. Dabei wird ein übergebener Bereich nicht einzelzellenweise auf die möglichen EinzelElemente aufgeteilt, sondern verbleibt als ein Element. Auf diese Weise kann ein auf Xl-ZellBereiche nicht abbildbares Datenfeld entstehen, das aber auch als „Arrays in einem Array“, was es eigentl ist, in VBA elementweise identifiziert und verarbeitet wdn kann. Besteht jedes Element aus einem (1dimensionalen) Vektor, stellt das ParamArray einen senkrechten Vektor dar, dessen Elemente ebenfalls aus Vektoren bestehen. Sind Letztere alle gleichlang, ist das ganze Array sogar auf ZellBereiche abbildbar. Voraussetzung ist dabei allerdings, dass die Vektoren alle 1dimensional sind. Ein ZellBereich, der eine(n Teil einer) Zeile umfasst, wird dann idR so interpretiert, bei Spalten ist das eher fraglich, denn normalerweise sind Vektoren aus Zellbereichen stets 2dimensional. In VBA sind nur horizontale Vektoren 1dimensional, senkrechte (und Matrizen) stets 2dimensional, um so die wichtige Unterscheidung der Vektorausrichtung darstellen zu können. Ein ParamArray (und natürlich auch ein anderweitig erzeugter Variant mit einem Array ) ist stets 1dimensional → aus Einzelwerten (Skalaren) gebildet, ist es auch stets horizontal, aus Vektoren (bzw Matrizen) gebildet, ist es vertikal orientiert. Bestehen seine Elemente aus 1elementigen Vektoren, erhält man den Sonderfall eines 1dimensionalen, aber trotzdem vertikal orientierten VBA-Vektors, dessen EinzelElemente unterster Stufe dann nicht mit ArrayName(i), das wäre bei einem horizontal orientierten Vektor der Fall, sondern mit ArrayName(i)(j), für j=0 bzw 1, identifiziert wdn. Mit dem Erstgenannten spricht man in diesen Fällen ein Element des ParamArrays, also in diesem Falle eine ganze Zeile, egal aus wieviel Elementen diese besteht, an.
Wenn du also auch ganze ZellBereiche oder Datenfelder (idR im Ergebnis von Ausdrücken in TeilFmln als Argument) an das ParamArray übergeben willst, musst du bei seiner Verarbeitung zuerst elementweise auf dieses Faktum mit IsArray(element) prüfen.
Gruß Luc :-?

Function MeineSumme(ParamArray ArWerte() As Variant) Dim n& For n = LBound(ArWerte) To UBound(ArWerte) for each element in ArWerte(n) MeineSumme = MeineSumme + element next element Next n End Function

Beliebteste Forumthreads (12 Monate)

variabel Anzahl an input Parametern

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread