Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1024to1028
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA: Platz ermitteln

VBA: Platz ermitteln
15.11.2008 13:41:00
Dieterlem
Hallo Excelfreunde,
ich stehe vor einem Problem und finde keine Lösung. Ich möchte den Platz einer Person ermitteln.
In der Spalte A stehen Namen
In der Spalte B stehen die Punkte (Single). Diese Punkte können auch 0 oder "" enthalten.
In die Spalte C soll die jeweilige Platzierung der Person eingetragen werden.
Ich wollte das mit einem Array lösen. Bekomme es aber nicht hin.
Dim i As Integer
Dim ArrayWerte As Variant
ArrayWerte = .Range("B5:B1004")
For i = 1 to 1000
.Cells(i, 3) = ?
Next i

Gruß
Dieterlem

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Platz ermitteln
15.11.2008 14:02:00
Tino
Hallo,
teste mal diese Version.
Sub test()
Dim lngRow As Long
Dim ArrayWerte, varRangListe
Dim BereichErg As Range

Set BereichErg = Range("B5", Cells(Rows.Count, "B").End(xlUp)).Offset(0, 1)
ArrayWerte = BereichErg

varRangListe = BereichErg.Offset(0, -1)

For lngRow = 1 To Ubound(varRangListe)
 ArrayWerte(lngRow, 1) = _
 Application.WorksheetFunction.Rank(varRangListe(lngRow, 1), BereichErg.Offset(0, -1), 0)
Next lngRow

BereichErg = ArrayWerte

End Sub


Platz eins bekommt der Größte Wert
Gruß Tino

Anzeige
AW: VBA: Platz ermitteln
15.11.2008 14:23:00
Dieterlem
Hallo Tino,
danke für den Lösungsansatz. Ich muss nur darauf achten, dass auch alle Zellen eine Zahl beinhalten. Dies ist aber kein Problem.
Ich wünsche dir ein schönes Wochenende
Gruß
Dieterlem
AW: VBA: Platz ermitteln
15.11.2008 14:37:00
Tino
Hallo,
dies kannst Du auch so abfangen.
Sub test()
Dim lngRow As Long
Dim ArrayWerte, varRangListe
Dim BereichErg As Range

Set BereichErg = Range("B5", Cells(Rows.Count, "B").End(xlUp)).Offset(0, 1)
ArrayWerte = BereichErg

varRangListe = BereichErg.Offset(0, -1)

For lngRow = 1 To Ubound(varRangListe)
 If IsNumeric(varRangListe(lngRow, 1)) And Not IsEmpty(varRangListe(lngRow, 1)) Then
 ArrayWerte(lngRow, 1) = _
 Application.WorksheetFunction.Rank(varRangListe(lngRow, 1), BereichErg.Offset(0, -1), 0)
 End If
Next lngRow

BereichErg = ArrayWerte

End Sub


Gruß Tino

Anzeige
Perfekt o.T.
15.11.2008 14:59:11
Dieterlem

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige