Office: (Office 2007) eigene Funktion mit beliebig vielen Argumenten

Hallo zusammen!

Ich möchte gerne eine Funktion schreiben, der ich beliebig viele Zellen/Zellwerte übergeben kann und komme auf keinen grünen Zweig:

Frei fantasiert stell ich mir das quasi folgendermaßen vor: Code:

(entspräche der schon vorhandenen Funktion =SUMME() )

oder gibt es eine Möglichkeit mit einem undefiniert großem Datenfeld zu arbeiten?
Seht oder kennt Ihr Möglichkeiten?

Im Voraus schon jetzt einmal vielen Dank für Eure Mühe,
Ulrich

:)

 

hiho
was soll den nicht gehen?
Deine Funktion funktioniert doch.
ich würde noch folgendes einbauen damit wirklich nur Zahlen genommen werden

Code:

 

Hi Ulrich,

mit einem Array
Code:

 

Hallo Ihr Beiden!
Danke!
Sorry, da habe ich mich leider nicht eindeutig ausgedrückt:
ich möchte gerne nicht einen Bereich angeben, sondern voneinander unabähngige Zellen als einzelne Argumente. Diese (so stell ich mir das vor) würde ich dann gerne in einen Bereich zusammenfassen, oder die Werte in ein Datenfeld eingetragen.

z.B.: "=addieren(C1;A5;B7)"

@Karin:
Hallo Karin!
Ich würde gerne eine Funktion schreiben, der ich Zellen übergeben kann, und nicht alle Zellwerte einer Tabelle auslesen.

Habt Ihr Ideen?
Grüße, Ulrich

 

hiho

ist halt ein wenig schreibarbeit *g*

Code:

im Moment fällt mir nix besseres dazu ein

 

hmm, das mit dem optional ist mir auch durch die birne geflattert, find ich aber unbefriedigend, wegen der begrenzten menge an parametern. ok, könntst es auch aufblähen und mit dutzenden von optionalen parametern füttern, aber ich denke, das gehört eher zu den no-gos.

ich häb das jetz mal wie folgt gemacht:
das script parset erstmal alle zellen im usedrange.
findet er werte, überprüft er anschließend, ob diese numerischer natur sind.
wenn ja, werden die werte in ein array geschoben.
Code:

und jetz noch ne funktion, die die einzelnen werten wieder addiert:
Code:

zuguterletzt mußt du nun noch ein modul hinzufügen und zwei public-variablen deklarieren(dimmen)
Code:

für public arrays muß man ein modul aufmachen, weil die net als Public member da deklariert werden dürfen, sondern nur in nem gesonderten modul.....
jo, schau mal, ob du das deinen wünschen noch anpassen kannst und ob das weiterhilft....
liebe grüsse,
de rayek

 

Hi Chris!

Danke Dir!
Ich kannte die Erweiterung "Optional" noch nicht. Habe also schon wieder was dazugelernt!

Deine Funktion läuft, aber mit der Schreibarbeit gehts mir wie Dir.
Ob es da nicht eine elegantere Lösung gibt?

Nochmals Danke!
Ulrich

 

Wow!
Was für eine Antwortflut!

Hallo Rayek!
Vielen Dank für Deine Version!
Das ist allerdings nicht so ganz das, was ich mir vorgestellt hatte, da ich nicht alle numerischen Werte eines sheets bahandeln will, aber es lässt sich natürlich mit Abfragen anpassen.
Ich würde, da ich nicht super viele Werte habe, wohl doch zu Chris´ Variante übergehen und die etwas umständliche Art in Kauf nehmen.
Merkwürdig, dass es so etwas nicht geben soll.

Nochmals Danke und viele Grüße,
Ulrich

 

mir ist grad aufgefallen, daß mein ansatz n icht in die richtige richtung geht.
irgendwie muss man das in dei ActiveSelection reinzwaengen, denn du willst ja aussuchen, welche werte addiert werden, und nicht blind alle werte addieren, oder!?
das heisst du müsstest über strg+left mouseclick zuvor die zu addierenden zellen markieren, und dann die berechnungsfunktion drüberjagen....
da mir grade kurzfristig langweilig ist und ich ne pause von meiner 120 slide -powerpoint präsentation brauche, schau ich noch mal kurz, ob da einer geht....
*wink.gif*
edit: wow, um ne knappe minute verpasst....*g*

 

Hi Ulrich,

Dann verwende nicht raZelle.Value sondern raZelle.Address

 

Naja, so schreibt man halt manchmal aneinander vorbei...

Ich bin schon auf Dein Ergebnis gespannt, allerdings habe ich das mit "strg+left mouseclick" nicht ganz verstanden. Es ist Dir aber bewusst, dass ich eine Funktion schreiben will?
Da jetzt leider meine terminlichen Vepflichtungen *upps drängen, werde ich erst wieder heute Abend antworten.

Grüße, Ulrich

 

sodele, ich hab jetz mal folgendes gemacht....
es gibt keine möglichkeit, eine funktion beliebig zu überladen (schon gar nicht, ohne das klassenkonzept der OOP zu nutzen!!!), solange man es nicht per definitionem festgelegt hat.
sprich: als klassenkonzept jede einzelne "überladung" in der klasse definieren.
wo wir wieder beim thema schreibarbeit wären....*rolleyes.gif*
nee, also, die funktion muß de facto wissen, wieviel parameter sie erhält...
die einzige möglichkeit ist chris´ lösung mit optional! etwas anderes gibt es - laut meines wissenstandes - nicht!
im übrigen benutzt auch die formel SUM optionale parameter (30 an der zahl)
allerdings sieht sie ganze ranges als einen parameter. daher ist durchaus diese formel richtig:
SUM(C1:C100;D1;E4:F50)
das einzige, was ich dir nun noch anbieten kann, wäre mein script.
ich habe es entsprechend angepasst.
achso, das mit strg+leftclick:
halte mal die strg-taste gedrückt und wähle dann eine zelle (zB A5) aus. strg gedrückt halten und eine weitere zelle(zB F17) per leftclick auswählen....
du siehst, die zuerst selektierte zelle bleibt markiert. zelle A5 und F17 sind nun markiert...
so lassen sich mehrere zellen auswählen, die auf unterschiedlichen addressen
liegen und der ActiveSelection-bereich kann beliebig erweitert werden.

ok, jetz zu meinem script.
eigentlich habe ich nichts gross geändert, außer, daß es sich oben erwähnte selection zunutze macht...
es werden nur noch die zellen addiert, die du vorher selektiert hast.
(auf diese weise und mit viel fantasie haben wir die funktion mit den beliebigen parametern "simuliert"!*wink.gif*)
knall das hier auf das Sheet, in dem die Berechnungen durchgeführt werden soll:
Code:

auf das excelsheet selbst mußt du nun noch einen commandbutton setzen, daher die letzte sub commandbutton1_click
achso, und ein Modul inserten, mit den Public vars
Code:

jo, wäre ja cool, wenn´s dir weiterhilft.
servuz,
rayek

 

hi all

Code:

hat ein wenig gedauert da ich damit bis jetzt noch nicht viel zu tun hatte

 

vllt liegt´s mal wieder an meiner dappischkeit, aber ich kriech das nihc zum laufen....
was soll denn in bereich stehen?
ich hab einfach mal meine funktion zum befüllen des arrays vorne drangesetzt und dann dein schnippsel angetriggert....
Code:

der hüpft einmal da in die forschlaufe und verlässt sofort die funktion...
ich steh grad völlig aufm schlauch; kann auch sein, daß ich den wald vor lauter bäumen nich seh´....
liebe grüsse,
de rayek

 

Wow *boah !
Du hast es gefunden! Ich bin absolut begeistert. Chris, das ist genau das was ich gesucht habe, einfach Spitze! Da lag ich ja garnicht so weit entfernt, dass man ein Array mit undefinierter Größe als Parameter für eine Funktion benutzen kann. Aber der Befehl "ParamArray" bringt´s halt! Vielen, vielen Dank!

Ganz besonders interessant finde ich, dass man sowohl die einzelnen Adressen (Arr(i).Address), als auch die Werte (Arr(i).Value) der Zellen auslesen kann!


@rayek
Auch Dir möchte ich danken! Ich glaube auch, dass Du gerade auf dem Schlauch stehst, oder vielleicht haben wir uns auch missverstanden:
die Funktion soll in eine Zelle geschrieben werden (z.B. Inhalt von C3: "=losgehts(A1;A4;A8)" ). Verstehst Du mich?

Was in der Variablen "bereich" steht in Chris` Function?: er macht einen String aus allen Adressen (obiges Beispiel: bereich="$A$8,$A$4,$A$1"), den er dann in der nächsten Zeile in ein Range "umwandelt" (quasi wie "union(...)" ). Das ist für die von mir im ersten Post genannte Anwendung nicht zingend notwendig; habe es einmal etwas umgeschrieben:
Code:

Euch allen (auch Dir, Karin!) nochmals vielen Dank, und ich hoffe, ihr habt nicht zu lange daran gesessen.