Vergleich von Zahlen in Excel!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hendrik,
ich hab mal das folgende Makro gebastelt:
Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
Dim aSortierungQu(1 To 6, 1 To 4) As Variant, aSortierungTmp As Variant
Dim nZaehler As Integer, nZaehler1 As Integer, nZaehler2 As Integer, nRang As Integer
Dim nMerker As Integer
aSortierungQu(1, 1) = "$G$7"
aSortierungQu(1, 2) = "$H$7"
aSortierungQu(1, 3) = 0
aSortierungQu(1, 4) = 0
aSortierungQu(2, 1) = "$M$7"
aSortierungQu(2, 2) = "$N$7"
aSortierungQu(2, 3) = 0
aSortierungQu(2, 4) = 0
aSortierungQu(3, 1) = "$S$7"
aSortierungQu(3, 2) = "$T$7"
aSortierungQu(3, 3) = 0
aSortierungQu(3, 4) = 0
aSortierungQu(4, 1) = "$Y$7"
aSortierungQu(4, 2) = "$Z$7"
aSortierungQu(4, 3) = 0
aSortierungQu(4, 4) = 0
aSortierungQu(5, 1) = "$AE$7"
aSortierungQu(5, 2) = "$AF$7"
aSortierungQu(5, 3) = 0
aSortierungQu(5, 4) = 0
aSortierungQu(6, 1) = "$AK$7"
aSortierungQu(6, 2) = "$AL$7"
aSortierungQu(6, 3) = 0
aSortierungQu(6, 4) = 0
For nZaehler = 1 To 6
If Target.Address = aSortierungQu(nZaehler, 1) Then
For nZaehler1 = 1 To 6
aSortierungQu(nZaehler1, 3) = Range(aSortierungQu(nZaehler1, 1)).Value
Next
For nZaehler1 = 1 To 6
nRang = 6
For nZaehler2 = 1 To 6
If aSortierungQu(nZaehler2, 3) > aSortierungQu(nZaehler1, 3) Then
nRang = nRang - 1
Else
End If
Next
aSortierungQu(nZaehler1, 4) = nRang
Next
For nZaehler1 = 1 To 6
Range(aSortierungQu(nZaehler1, 2)) = aSortierungQu(nZaehler1, 4)
Next
Exit For
End If
Next
End Sub

Das muß im VB Editor (mit ALT + F11) in das betreffende Tabellenblatt eingefügt werden. Dann sollte Dein Ranking ohne den Zwischenschritt über ein 2. Tabellenblatt funktionieren.
Gruss
Kladeb
http://www.Bieler.org

hallo Hendrik,
aus der excel hilfe.
Liefert den Rang, den eine Zahl innerhalb einer Liste von Zahlen einnimmt. Als Rang einer Zahl wird deren Größe, bezogen auf die anderen Werte der jeweiligen Liste, bezeichnet. (Wenn Sie die Liste sortieren würden, würde die Rangzahl der Zahl deren Position angeben.)
Syntax
RANG(Zahl;Bezug;Reihenfolge)
Zahl ist die Zahl, deren Rangzahl Sie bestimmen möchten.
Bezug ist eine Matrix mit Zahlen oder ein Bezug auf eine Liste von Zahlen. Nichtnumerische Werte im Bezug werden ignoriert .
Reihenfolge ist eine Zahl, die angibt, wie der Rang von Zahl bestimmt werden soll.
· Ist Reihenfolge mit 0 (Null) belegt oder nicht angegeben, bestimmt Microsoft Excel den Rang von Zahl so, als wäre Bezug eine in absteigender Reihenfolge sortierte Liste.
· Ist Reihenfolge mit einem Wert ungleich 0 belegt, bestimmt Microsoft Excel den Rang von Zahl so, als wäre Bezug eine in aufsteigender Reihenfolge sortierte Liste.
Hinweis
RANG gibt zwei gleichen Zahlen die selbe Rangzahl. Zusätzlich wirkt sich das Vorhandensein zweier gleicher Zahlen auf die Ränge der nachfolgenden Zahlen aus. Ist die Zahl 10 zum Beispiel zweimal in einer Liste ganzer Zahlen vertreten und hat den Rang 5, dann hat die Zahl 11 den Rang 7 (keine Zahl hat den Rang 6).
Beispiele
Enthält der Bereich A1:A5 die Zahlen 7; 3,5; 3,5; 1 und 2, liefert
RANG(A2;A1:A5;1) den Wert 3 und
RANG(A1;A1:A5;1) den Wert 5
gruss thomas

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread