Office: Aufruf der Funktion QUANTIL in einer Funktion

peterffw · 4. Juni 2012

Hallo Excel-Spezialisten,

könnt Ihr mir bitte weiterhelfen?

Ich versuche in einer Funktion die Excel-Funktion "QUANTIL" aufzurufen, komme aber schon beim Kompilieren nicht über einen Syntaxfehler hinaus, und habe keinen Plan was daran falsch ist bzw. wie es richtig sein muss.

Code:

Public Function QGV(W1 As Double)
Dim BF As Double
Dim WER1 As Double
On Error GoTo FehlerQGV
MsgBox W1
For WER1 = 0# To 1 Step 0.01
BF=QUANTIL(D136:D163,WER1)
BF = QUANTIL("D136:D163"; WER1)
Next
EndeQGV:
Exit Function
FehlerQGV:
MsgBox Err.Number & " " & Err.Description
Resume EndeQGV
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bei beiden Aufrufen der Funktion QUANTIL kommt beim Kompilieren ein Syntaxfehler.

Danke für Euere Bemühungen.

Servus
Peter

:)

CitizenX · 5. Juni 2012

Hi,

ich versuch es mal:
Was mich stutzig mach ist, du übergibst in deiner Funktion
W1 ->Public Function QGV(W1 As Double)
dieser Wert wird aber nicht weiterverarbeitet?

Dann durchläuft du mit deiner Schleife die Quantil mit steigendem Alpha Wert.
Frage : welcher Wert soll den ausgegeben werden?

Weiterhin sind im Code folgende Fehler:
Code:

BF=QUANTIL(D136:D163,WER1)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

muß lauten :
Code:

BF=Application.Percentile(Range("D136"), Wert)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hier mal ein Bsp wie es ausschauen könnte:
Code:

Public Function QGV(Bereich As Range, Wert As Double)
QGV = Application.Percentile(Bereich, Wert)
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wobei der Bereich das Datenfeld enthält und Wert ein Wert zw. 0 & 1

OfficeUser · 5. Juni 2012

Hallo Peter

BF = WorksheetFunction.Percentile(Range("D136:D163"), WER1)

nur was du damit erreichen willst ist mir nicht klar?!

Du hast keinen Rückgabewert?

hier mal eine Liste von Excelfunktionen
und deren engl. Bezeichnungen
die meisten davon können in VBA mit Worksheetfunction aufgerufen werden

[parsehtml]<table border=3 cellpadding=1><tr><td>Deutsch</td><td>Englisch</td><td>Deutsch</td><td>Englisch</td><td>Deutsch</td><td>Englisch</td><td>Deutsch</td><td>Englisch</td></tr><tr><td>ABRUNDEN</td><td>ROUNDDOWN</td><td>FTEST</td><td>FTEST</td><td>MEDIAN</td><td>MEDIAN</td><td>SUMMEWENN</td><td>SUMIF</td></tr><tr><td>ABS</td><td>ABS</td><td>FVERT</td><td>FDIST</td><td>MIN</td><td>MIN</td><td>SUMMEX2MY2</td><td>SUMX2MY2</td></tr><tr><td>ACHSENABSCHNITT</td><td>INTERCEPT</td><td>GAMMAINV</td><td>GAMMAINV</td><td>MINUTE</td><td>MINUTE</td><td>SUMMEX2PY2</td><td>SUMX2PY2</td></tr><tr><td>ADRESSE</td><td>ADDRESS</td><td>GAMMALN</td><td>GAMMALN</td><td>MINV</td><td>MINVERSE</td><td>SUMMEXMY2</td><td>SUMXMY2</td></tr><tr><td>ANZAHL</td><td>COUNT</td><td>GAMMAVERT</td><td>GAMMADIST</td><td>MITTELABW</td><td>AVEDEV</td><td>SUMQUADABW</td><td>DEVSQ</td></tr><tr><td>ANZAHL2</td><td>COUNTA</td><td>GANZZAHL</td><td>INT</td><td>MITTELWERT</td><td>AVERAGE</td><td>SVERWEIS</td><td>VLOOKUP</td></tr><tr><td>ANZAHLLEEREZEL.</td><td>COUNTBLANK</td><td>GDA</td><td>DDB</td><td>MMULT</td><td>MMULT</td><td>T</td><td>T</td></tr><tr><td>ARCCOS</td><td>ACOS</td><td>GDA2</td><td>DB</td><td>MODALWERT</td><td>MODE</td><td>TAG</td><td>DAY</td></tr><tr><td>ARCCOSHYP</td><td>ACOSH</td><td>GEOMITTEL</td><td>GEOMEAN</td><td>MONAT</td><td>MONTH</td><td>TAGE360</td><td>DAYS360</td></tr><tr><td>ARCSIN</td><td>ASIN</td><td>GERADE</td><td>EVEN</td><td>MTRANS</td><td>TRANSPOSE</td><td>TAN</td><td>TAN</td></tr><tr><td>ARCSINHYP</td><td>ASINH</td><td>GESTUTZTMITTEL</td><td>TRIMMEAN</td><td>N</td><td>N</td><td>TANHYP</td><td>TANH</td></tr><tr><td>ARCTAN</td><td>ATAN</td><td>GLÄTTEN</td><td>TRIM</td><td>NBW</td><td>NPV</td><td>TEIL</td><td>MID</td></tr><tr><td>ARCTAN2</td><td>ATAN2</td><td>GRAD</td><td>DEGREES</td><td>NEGBINOMVERT</td><td>NEGBINOMDIST</td><td>TEILERGEBNIS</td><td>SUBTOTAL</td></tr><tr><td>ARCTANHYP</td><td>ATANH</td><td>GROSS</td><td>UPPER</td><td>NICHT</td><td>NOT</td><td>TEXT</td><td>TEXT</td></tr><tr><td>AUFRUFEN</td><td>CALL</td><td>GROSS2</td><td>PROPER</td><td>NORMINV</td><td>NORMINV</td><td>TINV</td><td>TINV</td></tr><tr><td>AUFRUNDEN</td><td>ROUNDUP</td><td>GTEST</td><td>ZTEST</td><td>NORMVERT</td><td>NORMDIST</td><td>TREND</td><td>TREND</td></tr><tr><td>BEREICH.VERSCH</td><td>OFFSET</td><td>HARMITTEL</td><td>HARMEAN</td><td>NV</td><td>NA</td><td>TTEST</td><td>TTEST</td></tr><tr><td>BEREICHE</td><td>AREAS</td><td>HÄUFIGKEIT</td><td>FREQUENCY</td><td>OBERGRENZE</td><td>CEILING</td><td>TVERT</td><td>TDIST</td></tr><tr><td>BESTIMMTHEITSMASS</td><td>RSQ</td><td>HEUTE</td><td>TODAY</td><td>ODER</td><td>OR</td><td>TYP</td><td>TYPE</td></tr><tr><td>BETAINV</td><td>BETAINV</td><td>HYPGEOMVERT</td><td>HYPGEOMDIST</td><td>PEARSON</td><td>PEARSON</td><td>UND</td><td>AND</td></tr><tr><td>BETAVERT</td><td>BETADIST</td><td>IDENTISCH</td><td>EXACT</td><td>PI</td><td>PI</td><td>UNGERADE</td><td>ODD</td></tr><tr><td>BINOMVERT</td><td>BINOMDIST</td><td>IKV</td><td>IRR</td><td>POISSON</td><td>POISSON</td><td>UNTERGRENZE</td><td>FLOOR</td></tr><tr><td>BOGENMASS</td><td>RADIANS</td><td>INDEX</td><td>INDEX</td><td>POTENZ</td><td>POWER</td><td>VARIANZ</td><td>VAR</td></tr><tr><td>BW</td><td>PV</td><td>INDIREKT</td><td>INDIRECT</td><td>PRODUKT</td><td>PRODUCT</td><td>VARIANZEN</td><td>VARP</td></tr><tr><td>CHIINV</td><td>CHIINV</td><td>INFO</td><td>INFO</td><td>QIKV</td><td>MIRR</td><td>VARIATION</td><td>GROWTH</td></tr><tr><td>CHITEST</td><td>CHITEST</td><td>ISTBEZUG</td><td>ISREF</td><td>QUADRATESUMME</td><td>SUMSQ</td><td>VARIATIONEN</td><td>PERMUT</td></tr><tr><td>CHIVERT</td><td>CHIDIST</td><td>ISTFEHL</td><td>ISERR</td><td><b>QUANTIL</b></td><td><b>PERCENTILE</b></td><td>VDB</td><td>VDB</td></tr><tr><td>CODE</td><td>CODE</td><td>ISTFEHLER</td><td>ISERROR</td><td>QUANTILSRANG</td><td>PERCENTRANK</td><td>VERGLEICH</td><td>MATCH</td></tr><tr><td>COS</td><td>COS</td><td>ISTKTEXT</td><td>ISNONTEXT</td><td>QUARTILE</td><td>QUARTILE</td><td>VERKETTEN</td><td>CONCATENATE</td></tr><tr><td>COSHYP</td><td>COSH</td><td>ISTLEER</td><td>ISBLANK</td><td>RANG</td><td>RANK</td><td>VERWEIS</td><td>LOOKUP</td></tr><tr><td>DATUM</td><td>DATE</td><td>ISTLOG</td><td>ISLOGICAL</td><td>RECHTS</td><td>RIGHT</td><td>VORZEICHEN</td><td>SIGN</td></tr><tr><td>DATWERT</td><td>DATEVALUE</td><td>ISTNV</td><td>ISNA</td><td>REGISTER</td><td>REGISTER.ID</td><td>WAHL</td><td>CHOOSE</td></tr><tr><td>DBANZAHL</td><td>DCOUNT</td><td>ISTTEXT</td><td>ISTEXT</td><td>REST</td><td>MOD</td><td>WAHR</td><td>TRUE</td></tr><tr><td>DBANZAHL2</td><td>DCOUNTA</td><td>ISTZAHL</td><td>ISNUMBER</td><td>RGP</td><td>LINEST</td><td>WAHR</td><td>TRUE</td></tr><tr><td>DBAUSZUG</td><td>DGET</td><td>JAHR</td><td>YEAR</td><td>RKP</td><td>LOGEST</td><td>WAHRSCHBEREICH</td><td>PROB</td></tr><tr><td>DBMAX</td><td>DMAX</td><td>JETZT</td><td>NOW</td><td>RMZ</td><td>PMT</td><td>WECHSELN</td><td>SUBSTITUTE</td></tr><tr><td>DBMIN</td><td>DMIN</td><td>KAPZ</td><td>PPMT</td><td>RÖMISCH</td><td>ROMAN</td><td>WEIBULL</td><td>WEIBULL</td></tr><tr><td>DBMITTELWERT</td><td>DAVERAGE</td><td>KGRÖSSTE</td><td>LARGE</td><td>RUNDEN</td><td>ROUND</td><td>WENN</td><td>IF</td></tr><tr><td>DBPRODUKT</td><td>DPRODUCT</td><td>KKLEINSTE</td><td>SMALL</td><td>SÄUBERN</td><td>CLEAN</td><td>WERT</td><td>VALUE</td></tr><tr><td>DBSTDABW</td><td>DSTDEV</td><td>KLEIN</td><td>LOWER</td><td>SCHÄTZER</td><td>FORECAST</td><td>WIEDERHOLEN</td><td>REPT</td></tr><tr><td>DBSTDABWN</td><td>DSTDEVP</td><td>KOMBINATIONEN</td><td>COMBIN</td><td>SCHIEFE</td><td>SKEW</td><td>WOCHENTAG</td><td>WEEKDAY</td></tr><tr><td>DBSUMME</td><td>DSUM</td><td>KONFIDENZ</td><td>CONFIDENCE</td><td>SEKUNDE</td><td>SECOND</td><td>WURZEL</td><td>SQRT</td></tr><tr><td>DBVARIANZ</td><td>DVAR</td><td>KORREL</td><td>CORREL</td><td>SIN</td><td>SIN</td><td>WVERWEIS</td><td>HLOOKUP</td></tr><tr><td>DBVARIANZEN</td><td>DVARP</td><td>KOVAR</td><td>COVAR</td><td>SINHYP</td><td>SINH</td><td>ZÄHLENWENN</td><td>COUNTIF</td></tr><tr><td>DIA</td><td>SYD</td><td>KRITBINOM</td><td>CRITBINOM</td><td>SPALTE</td><td>COLUMN</td><td>ZEICHEN</td><td>CHAR</td></tr><tr><td>DM</td><td>DOLLAR</td><td>KURT</td><td>KURT</td><td>SPALTEN</td><td>COLUMNS</td><td>ZEILE</td><td>ROW</td></tr><tr><td>ERSETZEN</td><td>REPLACE</td><td>KÜRZEN</td><td>TRUNC</td><td>STABW</td><td>STDEV</td><td>ZEILEN</td><td>ROWS</td></tr><tr><td>EXP</td><td>EXP</td><td>LÄNGE</td><td>LEN</td><td>STABWN</td><td>STDEVP</td><td>ZEIT</td><td>TIME</td></tr><tr><td>EXPONVERT</td><td>EXPONDIST</td><td>LIA</td><td>SLN</td><td>STANDARDISIERUNG</td><td>STANDARDIZE</td><td>ZEITWERT</td><td>TIMEVALUE</td></tr><tr><td>FAKULTÄT</td><td>FACT</td><td>LINKS</td><td>LEFT</td><td>STANDNORMINV</td><td>NORMSINV</td><td>ZELLE</td><td>CELL</td></tr><tr><td>FALSCH</td><td>FALSE</td><td>LN</td><td>LN</td><td>STANDNORMVERT</td><td>NORMSDIST</td><td>ZINS</td><td>RATE</td></tr><tr><td>FEHLER.TYP</td><td>ERROR.TYPE</td><td>LOG</td><td>LOG</td><td>STEIGUNG</td><td>SLOPE</td><td>ZINSZ</td><td>IPMT</td></tr><tr><td>FEST</td><td>FIXED</td><td>LOG10</td><td>LOG10</td><td>STFEHLERYX</td><td>STEYX</td><td>ZUFALLSZAHL</td><td>RAND</td></tr><tr><td>FINDEN</td><td>FIND</td><td>LOGINV</td><td>LOGINV</td><td>STUNDE</td><td>HOUR</td><td>ZW</td><td>FV</td></tr><tr><td>FINV</td><td>FINV</td><td>LOGNORMVERT</td><td>LOGNORMDIST</td><td>SUCHEN</td><td>SEARCH</td><td>ZZR</td><td>NPER</td></tr><tr><td>FISHER</td><td>FISHER</td><td>MAX</td><td>MAX</td><td>SUMME</td><td>SUM</td><td> </td><td> </td></tr><tr><td>FISHERINV</td><td>FISHERINV</td><td>MDET</td><td>MDETERM</td><td>SUMMENPRODUKT</td><td>SUMPRODUCT</td><td> </td><td> </td></tr></td></tr></table>[/parsehtml]
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

peterffw · 6. Juni 2012

Danke Euch beiden für die schnelle Antwort.
Ich habe mal ein Excel-Sheet beigelegt mit meinem Problem.

In C117 steht meine Grundvergütung und in C118 sollen die Percentil dieser Grundvergütung im Verhältnis zu den Grundvergütungen (Range C136:C163) der 28 anderen Unternehmen berechnet werden.
Ich will also wissen wie hoch das Percentil meiner 2.000.000 im Verhältnis zu den anderen Unternehmen ist.

In den Zeilen 2 bis 102 sind Versuche mit der Funktion QUANTIL und einem Alphawert von 0,01 bis 0,99 einen Annäherungswert (und damit Percentilwert)zu den 2.000.000 zu finden.
Das hoffe ich aber in oder mit einer Funktion zu lösen.

Nomals Danke für Euere Bemühungen.

Servus Peter

chris-kaiser · 6. Juni 2012

Hallo Peter

den Alphawert kannst du leicht über die Zielwertsuche bekommen *wink.gif*

Range("C2").GoalSeek 2000000, Range("B2")

das würde dir den Alphawert für 2 Mill. in B2 anzeigen.
der Code kann natürlich auch mit Variablen bestückt werden.

Dies würde funktionieren wenn du in C2 deine Quantil bestehen lässt!

peterffw · 6. Juni 2012

Danke nochmals für die Unterstützung!!

Ich habe wieder was gelernt unter anderem, dass "GOALSEEK" nichts mit Fussball zu tun hat.

Ich habe es nun mit folgender Funktion gelöst:

Code:

Public Function QGV(W1 As Double)
Dim BF As Double
Dim WER1 As Double
On Error GoTo FehlerQGV
For WER1 = 0# To 1 Step 0.01
BF = WorksheetFunction.Percentile(Range("C136:C163"), WER1)
If W1 - BF < 4 Then
Exit For
End If
Next
For WER1 = WER1 - 0.01 To 1 Step 0.001
BF = WorksheetFunction.Percentile(Range("C136:C163"), WER1)
If W1 - BF < 4 Then
Exit For
End If
Next
Worksheets("VV_XX vs Peer").Range("C118").Value = WorksheetFunction.Round(WER1, 3) * 100 & " Perzentil"
EndeQGV:
Exit Function
FehlerQGV:
MsgBox Err.Number & " " & Err.Description
Resume EndeQGV
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wobei man die ermittelte Percentil-Zahl eventuell noch verfeinern bzw. genauer machen kann, wenn man im Alphawert der Quantil-Funktion noch eine Nachkommastelle mehr verwendet.

Nochmals Danke für Euere Hilfe.

Servus
Peter

Office: Aufruf der Funktion QUANTIL in einer Funktion

Aufruf der Funktion QUANTIL in einer Funktion

Aufruf der Funktion QUANTIL in einer Funktion

Aufruf der Funktion QUANTIL in einer Funktion

Aufruf der Funktion QUANTIL in einer Funktion - Similar Threads - Aufruf Funktion QUANTIL

Aufrufen Datei aus SharePoint per VBA

Spalte "Antworten" und "Aufrufe" im Forum vertauscht!

speichern unter per vba aufrufen

Funktion aufrufen

AUFRUFEN (Funktion)

Menuband-Funktion via Makro aufrufen

VBA-Funktion von Tabellenblatt aufrufen