mit der nachfolgender Function wird der Rang einer Liste
ermittelt, soweit so gut.
Function XRang(rng As Range, dValue As Double) As Integer
Dim iCounter As Integer, iCell As Integer, iLarge As Integer
For iCounter = 1 To rng.Rows.Count
If iLarge <> Application.Large(rng, iCounter) Then
iLarge = Application.Large(rng, iCounter)
iCell = iCell + 1
If Application.Large(rng, iCounter) = dValue Then
XRang = rng.Rows.Count - iCell + 1
Exit Function
End If
End If
Next iCounter
End Function
Mein Problem: Ich möchte die Function mit einem Makro in
Spalte C abwärts kopieren von einem relativen Bezug
und nicht von R3C3.
Sub Klappt_nicht()
If ActiveCell.Column = 3 Then
ActiveCell.FormulaR1C1 = "=XRang(R23C3:R25C3,RC[-1])"
Range(ActiveCell.Address(False, False) & ":C" & Cells(Rows.Count, 2).End(xlUp).Row).FillDown
End If
End Sub
Wie kann ich "R23C3" durch Activecell ersetzen,
und "R25C3" von Cells(Rows.Count, 2).End(xlUp).Row) abhängig machen?
Ich hoffe dass es vertändich ist.
Vielen Dank.
Grüße