PDA

Vollständige Version anzeigen : KGRÖSSTE in VBA ?


Berti_S
29.02.2008, 09:59
Hallo an alle,

kann ich die KGRÖSSTE-Formel in VBA nutzen oder muss ich mir selber etwas bauen ?

Berti

IngGi
29.02.2008, 10:06
Hallo Berti,

die Zeile
dblWert = Application.WorksheetFunction.Large(Range("A1:A10"), 2)
übergibt den zweitgrössten Wert in A1:A10 an die Variable dblWert.

Gruß Ingolf

ransi
29.02.2008, 10:09
HAllo Berti

<b>Tabelle1</b><br /><br /><table border="1" cellspacing="0" cellpadding="0" style="font-family:Arial,Arial; font-size:10pt; background-color:#ffffff; padding-left:2pt; padding-right:2pt; "> <colgroup><col style="font-weight:bold; width:30px; " /><col style="width:80px;" /><col style="width:80px;" /></colgroup><tr style="background-color:#cacaca; text-align:center; font-weight:bold; font-size:8pt; "><td >&nbsp;</td><td >A</td><td >B</td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >1</td><td >&nbsp;</td><td style="text-align:right; ">55</td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >2</td><td >&nbsp;</td><td style="text-align:right; ">99</td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >3</td><td >&nbsp;</td><td style="text-align:right; ">28</td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >4</td><td >&nbsp;</td><td style="text-align:right; ">5</td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >5</td><td >&nbsp;</td><td style="text-align:right; ">43</td></tr></table> <br /><br /><span style="font-family:Arial; font-size:9pt; font-weight:bold;background-color:#ffffff; color:#000000; ">Excel Tabellen im Web darstellen &gt;&gt; </span><a style ="font-family:Arial; font-size:9pt; color:#fcf507; background-color:#800040; font-weight:bold;" href="http://www.excel-jeanie-html.de" target="_blank"> Excel Jeanie HTML 4 </a>


Und dann so ?

<nobr><span style="font-family:Courier New,Arial; font-size:9pt ;" ><span style="color:#000080"; >Option</span> <span style="color:#000080"; >Explicit</span><br /><br /><br /><b><span style="color:#000080"; >Public</span> <span style="color:#000080"; >Sub</span> test()</b><br /><span style="color:#000080"; >Dim</span> I <span style="color:#000080"; >As</span> <span style="color:#000080"; >Long</span><br /><span style="color:#000080"; >Dim</span> L <span style="color:#000080"; >As</span> <span style="color:#000080"; >Long</span><br />I = WorksheetFunction.CountA(Sheets(<span style="color:#800000"; >"tabelle1"</span>).Range(<span style="color:#800000"; >"B1:B5"</span>))<br /><span style="color:#000080"; >For</span> L = 1 <span style="color:#000080"; >To</span> I<br />&nbsp;&nbsp;&nbsp;&nbsp;MsgBox WorksheetFunction.Large(Sheets(<span style="color:#800000"; >"tabelle1"</span>).Range(<span style="color:#800000"; >"B1:B5"</span>), L)<br /><span style="color:#000080"; >Next</span><br /><b><span style="color:#000080"; >End</span> <span style="color:#000080"; >Sub</span></b><br /></span></nobr>

ransi

Berti_S
29.02.2008, 10:10
Danke Ingolf,

genau dieses brauchte ich.

By the way: gibt es irgendwo eine Gesamtliste der Excel-Funktionen als VBA-Äquivalent ?


Berti

IngGi
29.02.2008, 10:17
Hallo Berti,

eine permanente Liste wüsste ich jetzt nicht, aber wenn du im VBA-Editor "Application.WorksheetFunction." eintippst, bietet dir die Intellisense eine Liste an.

Gruß Ingolf

Woody
29.02.2008, 10:17
Hallo Berti,

ja das gibt es. Suche auf deiner Festplatte nach VBALISTE.xls. Darin enthalten sind die Übersetzungen für VBA Schlüsselwörter und Tabellenfunktionen.

Berti_S
29.02.2008, 10:23
Hallo Woody und Ingolf,

vielen Dank - das hilft mir auf jeden Fall weiter !


Berti

ransi
29.02.2008, 10:32
Hallo Berti

Wenn du öfters mal ne Übersetzung brauchs, schau mal hier:

http://www.excelformeln.de/tips.html?welcher=45

ransi