VBA: Platz ermitteln

Forumthread: 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

AW: VBA: Platz ermitteln

15.11.2008 14:02:00

Tino
AW: VBA: Platz ermitteln

15.11.2008 14:23:00

Dieterlem
AW: VBA: Platz ermitteln

15.11.2008 14:37:00

Tino
Perfekt o.T.

15.11.2008 14:59:11

Dieterlem

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

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

Perfekt o.T.

15.11.2008 14:59:11

Dieterlem

Beliebteste Forumthreads (12 Monate)

Forumthread: VBA: Platz ermitteln

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread