14.06.2016, 13:50
Servus Excelaner,
Habe ein Problem mit einer kleinen VBA Rangliste die soweit auch funktioniert
außer bei Punkte Gleichheit da wir der jeweils nachfolgende Name nicht mehr Angezeigt sondern immer zwei oder bei mehreren
Gleichheiten der zuerst in der Spalte angegebene Name
Vielleicht kann mir jemand weiter helfen
For i = 1 To 6
WertMax7 = Application.WorksheetFunction.Large(.Range(.Cells(3, 4), Cells(3, 14)), i)
.Cells(i + 42, 19) = WertMax7
Set BestAdr = Bereich.Find(WertMax7)
.Cells(i + 42, 24) = .Cells(BestAdr.Row + 1, BestAdr.Column)
Next i
Punkte ------------------------NAME
9 Manfred
7 Alois
5 Georg
5 Georg<>Wolfgang<<>>>so wäre es Richtig und OK
3 Franz
2 Erich
Habe ein Problem mit einer kleinen VBA Rangliste die soweit auch funktioniert
außer bei Punkte Gleichheit da wir der jeweils nachfolgende Name nicht mehr Angezeigt sondern immer zwei oder bei mehreren
Gleichheiten der zuerst in der Spalte angegebene Name
Vielleicht kann mir jemand weiter helfen
For i = 1 To 6
WertMax7 = Application.WorksheetFunction.Large(.Range(.Cells(3, 4), Cells(3, 14)), i)
.Cells(i + 42, 19) = WertMax7
Set BestAdr = Bereich.Find(WertMax7)
.Cells(i + 42, 24) = .Cells(BestAdr.Row + 1, BestAdr.Column)
Next i
Punkte ------------------------NAME
9 Manfred
7 Alois
5 Georg
5 Georg<>Wolfgang<<>>>so wäre es Richtig und OK
3 Franz
2 Erich