Vba Maximum variable range (boven 65500 rijen)

[rloos]

Beste,

Ik ben nieuw met VBA code en ik heb wat moeite met de syntax.
Hetgeen ik wil doen is het maximum vinden van een kolom (variable range) in excel 2007
Om de laatste rij te vinden heb ik hetvolgende:

Dim LastRowall As Long
With ActiveSheet
LastRowall = .Cells(.Rows.Count, "L").End(xlUp).Row
End With

Maar bij het zoeken van het maximum loopt het fout.
Soms zijn er meer dan 65000 rijen dus Application.Max werkt niet
heb het zo proberen te doen (met verschillende ranges)

Rng = Range("$L$1", Cells(LastRowall, 12))
Rng = "L1: L" & CStr(LastRowall)
Range("k1").FormulaR1C1 = "=MAX(Rng)"

Maar de functie herkent Rng niet.
Weet iemand wat de juiste syntax is om mijn probleem op te lossen?
Alvast bedankt

Groeten

 

[Wigi]

Hetgeen ik wil doen is het maximum vinden van een kolom (variable range) in excel 2007
Om de laatste rij te vinden heb ik hetvolgende:

Dim LastRowall As Long
With ActiveSheet
LastRowall = .Cells(.Rows.Count, "L").End(xlUp).Row
End With

Maar bij het zoeken van het maximum loopt het fout.
Soms zijn er meer dan 65000 rijen dus Application.Max werkt niet

Ik weet niet hoe jij dit dan getest heb, maar dit werkt iig prima:

Sub ff()

    Dim LastRowall As Long
    With ActiveSheet
        LastRowall = .Cells(.Rows.Count, "L").End(xlUp).Row
        MsgBox Application.Max(Range("A1:A" & LastRowall))
    End With

End Sub

In cellen A1:A70000 staat er een getal.

Wigi

 

[Warme bakkertje]

Sub tst()
    With ActiveSheet
        [K1].Formula = "=MAX(RC[1]:R" & .Cells(.Rows.Count, 12).End(xlUp).Row & "C[1])"
    End With
End Sub