KGROESTE - Bitte um Hilfe . evtl. UDF !

Hallo liebe Excelgemeinde,
ich habe hier wieder mal Flasche leer :-)
https://www.herber.de/bbs/user/87962.xlsx
In Tabelle "Daten" möchte ich KGROESTE mit Bedingung abfragen.
Das klappt, aber nur bedingt.
In der "Hilfstabelle" gehts, wenn ich vorher die Duplikate entferne und dort
mit KGROESTE arbeite.
Anschließend müsste ich diese Ergebnisse aber wieder zurück in Datentabelle schreiben.
Diesen Schritt möchte ich gerne umgehen und alles im Datenblatt abhandeln.
Ich könnte mir vorstellen das man so etwas mit UDF lösen kann oder kennt jemand eine passendere Formel fürs Datenblatt?
- Info -
Für eine UDF Lösung wäre ich dankbar da es schlichtweg performanter ist wenn es sich um Datengröße jenseits der 50000 handelt. Ich habe mit UDF die bessere Erfahrung gemacht.
Meine KGROESTE habe ich wie im Bsp. über die Hilfstabelle schon angewandt, ist aber ab dieser Größe schleppend langsam da auch noch andere Formeln am werkeln sind + zurückschreiben ins Datenblatt etc...!!!
Für Eure Hilfe schon einmal vielen Dank.
Mit bestem Gruß
Thorben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Rudi / Thorben
jein das stimmt so nicht wirklich. Das zusammenspielen der anderen Formeln drückt zwar die Performance,
aber ohne die KGROESTE dauert es bloß ca 2,5min bei 50000 Datensätzen.
Trotzdem ist es schwer einzuschätzen was hier auf die Bremse drückt.
ABER :
Rudi Du hattes mir mal diesen UDF Code gegeben: www.herber.de/forum/archiv/1328to1332/t1331350.htm
Der wird in einer ähnlichen Datei angewendet und hat die Zeit von, mal eben, ca. 20 min auf 2 Sec. gedrückt, trotz das andere Formeln zusätzlich verwendet werden. Excel Abstürze wurden damit auch ausgemerzt :-)
Falls es eine solche UDF Lösung gibt gehe ich davon aus das es nicht viel länger als 2,5 min dauern wird.
MfG
Thorben

Function MyMax(rngK As Range, vntK, rngValues As Range) Dim iStart As Long, iEnde As Long, i As Long iStart = Application.Match(vntK, rngK, 0) iEnde = iStart + WorksheetFunction.CountIf(rngK, vntK) - 1 MyMax = WorksheetFunction.Max(Range(rngValues(iStart, 1), rngValues(iEnde, 1))) End Function

Function MyMax(rngK As Range, vntK, rngValues As Range) Dim iStart As Long, iEnde As Long, i As Long iStart = Application.Match(vntK, rngK, 0) iEnde = iStart + WorksheetFunction.CountIf(rngK, vntK) - 1 For i = iStart To iEnde MyMax = WorksheetFunction.Max(MyMax, rngValues(i, 1)) Next End Function

Beliebteste Forumthreads (12 Monate)

KGROESTE - Bitte um Hilfe . evtl. UDF !

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread