Office: Rangliste mittels VBA-Code erstellen

Hallo Zusammen,

ich möchte die z. B. in Spalte A enthaltenen Werte (Zahlen) als Rangliste rechts daneben (in Spalte B) darstellen. Rang 1 bis 3 (die größte Zahl = Rang1) sollen zusätzlich farbig hinterlegt werden. Auch enthält nicht jedes Feld in Spalte A einen Wert.

Mittels Formel "=RANG (A1;$A$1:$A$1000)" usw. und einer bedingten Formatierung lässt sich das lösen.
Ich möchte das aber gern per VBA Code ermitteln lassen
Kennt jemand dazu eine Lösung?

Danke
Oki

:)

 

Wie währe es wenn du die Zellen durch gehtst und immer guckst ob die nächster größer ist als die letze etc.?
Oder meinste das mit der Formatierung?

 

Hallo Sjune,

wie ich den größten Wert einer Spalte ermitteln kann ist mir per VBA Code klar. Aber wie ermittele ich die 3 größten Werte? Einfach eine Sortierung ist nicht möglich, da die Spalte keine einfachen Werte enthält sondern Berechnungsergebnisse und der Tabellenzusammenhang auch zerstört wird.

Das Problem mit dem Format steht erst an 2. Stelle.

Grüße
Oki

 

hey oki,
was hälst du davon:
du kopierst deine spalte..dann fügst du die spalte daneben ein, wobei du dass per inhalte einfügen > nur werte machen könntest. darauf hin sortierst du die neue spalte absteigend und dann hast du doch eigendlich was du wolltest, oder hab ich dass falsch verstanden?

 

Ansonsten in einen Array einlesen und mittels QSort Sortieren lassen.

 

Hallo Oki,

schau mal, ob Dir der Code hier weiterhilft ....

Code:

 

Hallo Oki,

noch eine "Verfeinerung" des Codes...

Code:

 

Hallo myfake,

Spitze! Das war genau das was ich gesucht habe.
Danke auch an alle anderen, die sich dazu Gedanken gemacht haben.

Grüße
Oki