excel omzetten in vba

[robder]

ik heb een stukje code uit excel wat ik wil omzetten in vba maar krijg het niet helemaal voor elkaar.
Bekijk bijlage laatste max value.xlsm
wil graag via variabelen werken
waar gaat het in de fout?

LR1 = Cells(Rows.Count, "A").End(xlUp).Row
'lookback period = X
X = 5
''''''''''''''''''''''
' "=MAX(IF(A:A=MAX(A:A),ROW(A:A),""""))" gives ''last ' matched max value - rownumber
' "=MIN(IF(A:A=MAX(A:A),ROW(A:A),""""))" gives ''first' matched max value - rownumber
' "=MAX(IF(A:A=MIN(A:A),ROW(A:A),""""))" gives ''last ' matched mIN value - rownumber
' "=MIN(IF(A:A=MIN(A:A),ROW(A:A),""""))" gives ''first' matched min value - rownumber
''''''''''''''''''''''

Cells((LR1), 2) = WorksheetFunction.Max(IF(range(Cells((LR1+X), 1),Cells((LR1),1))=WorksheetFunction.Max(Cells((LR1+X),1),Cells((LR1),1)),Row(Cells((LR1+X),1),Cells((LR1)),1),""""))
' Cells((LR1), 2) =Max(If Worksheet.Range(Cells((LR1 - X), 1), Cells((LR1), 1)) = Worksheet.max(Range(Cells((LR1 - X), 1), Cells((LR1), 1))),"")

 

[OctaFish]

Leg eens uit wat je wilt, want er mankeert nogal wat aan je code. Ik kan er zo geen chocola van maken

 

[robder]

excel omzetten in vba - extra info

als het goed is zou de basis code (=max(als(data=max(data);rij(data);""))) het rijnummer moeten afgeven van de laatste max waarde ( als deze vaker voorkomt) in een range.
(Dezelfde code startend met "min" zou het rijnummer van de eerste max waarde geven)
Nu wil ik dit in vba gebruiken, telkens als er nieuwe data komt in kolom A moet het weer opnieuw bekeken worden en bv in kolom B het corresponderende rijnummer ingevuld.
Ook de periode of lengte van de range wil ik via bv X=5 kunnen instellen.
is dit voldoende info?