Forumbeitrag
Excel-Version des Fragestellers:
2022
Erfahrungslevel des Fragestellers:
Basiskenntnisse in Excel
Die einzige Version, die ich gefunden habe und wirklich 11% ausgibt ist das hier:
Public Sub BerechneCodesRanking(ws As Worksheet)
Dim GesamtZeilen As Long
GesamtZeilen = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
ws.Range("F1:F" & GesamtZeilen).FormulaLocal = _
"=AUFRUNDEN(RANG(E1;E$1:E$" & GesamtZeilen & ";0)/ANZAHL(E$1:E$" & GesamtZeilen & ");2)"
ws.Range("F1:F" & GesamtZeilen).Value = ws.Range("F1:F" & GesamtZeilen).Value
ws.Range("F1:F" & GesamtZeilen).NumberFormat = "0%"
End Sub
dauert aber so lange, dass ich am überlegen bin, diese Ungenauigkeit doch in Kauf zu nehmen.