formule in vba

[pdekoning]

Hallo,
ik heb de volgende formule toegepast in de de bijlage =INDEX($I$1:$AC$1;1;VERGELIJKEN(KLEINSTE(I2:AC2;1);I2:AC2;0))
Weet iemand hoe ik dit er uit ziet in een VBA formule? voor de eerste 50 cellen naar beneden.
Ik heb zelf geen idee.

Bedankt alvast

 

[RB_online]

Deze bijvoorbeeld?

Range("E2").Formula = "=INDEX(R1C9:R1C29,1,MATCH(SMALL(RC[4]:RC[24],1),RC[4]:RC[24],0))"
Range("E2").Copy ([E3:E52])

Mvg

René

 

[HSV]

Iets andere formule,

Sub tst()
Range("E2:E51").FormulaR1C1 = "=IF(RC[4]="""","""",LOOKUP(MIN(RC[4],RC[5]),RC[4]:RC[5],R1C9:R1C10))"
Range("G2:G51").FormulaR1C1 = "=IF(RC[3]="""","""",LOOKUP(MAX(RC[2],RC[3]),RC[2]:RC[3],R1C9:R1C10))"
End Sub

 

[RB_online]

Nog beter.

De eventuele foutmelding voorkomen en een kortere formule.
Mooie oplossing

Mvg
René

 

[HSV]

Nog beter.

Ik ben er nog niet zo zeker van René.
Op de =MIN functie (kolom E) krijg je #N/B als je het kleinste getal in kolom J zet. :shocked:

 

[RB_online]

je kunt beide oplossingen nog altijd combineren

Sub combi()
Range("E2:E51").FormulaR1C1 = "=IF(RC[4]="""","""",INDEX(R1C9:R1C29,1,MATCH(SMALL(RC[4]:RC[24],1),RC[4]:RC[24],0)))"
Range("G2:G51").FormulaR1C1 = "=IF(RC[3]="""","""",INDEX(R1C10:R1C29,1,MATCH(SMALL(RC[2]:RC[22],1),RC[2]:RC[22],0)))"
End Sub

Mvg,
René

 

[pdekoning]

Hartelijk dank voor de oplossing.
Het werkt!
Het gaat over duizenden cellen..... scheelt een hoop werk!
Bedankt!

 

[HSV]

Ik ben er al uit waarom de #N/B.
De functie =Zoeken moet een oplopende waarde hebben { -1;0;1;3 enz. }
Maar met je laatste kan @pdekoning wel mee uit de voeten.

 

[RB_online]

Als het naar tevredenheid werkt dan de vraag nog even op opgelost zetten aub.

mvg,
René

 

[pdekoning]

Hallo,
toch nog een vraag.
Is er ook nog een mogelijkheid om het werkend te krijgen wanneer er cellen gekopieerd en geplakt worden worden uit een ander blad in kolommen I en J?
Bij handmatig invoeren gaat het prima.
Wanneer er cellen gekopieerd en geplakt worden uit een ander blad lukt het niet meer.
Heeft u nog een idee?

Groeten Peter