Formule omschrijven naar VBA-code

[Jeof1980]

Volgende formule wil ik in de VBA toepassen echter weet ik niet meer hoe je ze moet omschrijven voor de VBA kan iemand mij hiermee op weg helpen?

ALS(H15="Regulier";M15+(8*7);ALS(H15="Uitgebreid";M15+(26*7);ALS(H15="1e fase regulier 2e fase regulier";M15+(8*7);ALS(H15="1e fase uitgebreid 2e fase uitgebreid";M15+(26*7);ALS(H15="1e fase regulier 2e fase uitgebreid";M15+(14*7);ALS(H15="1e fase uitgebreid 2e fase regulier";M15+(26*7)))))))+ALS(U15="ja";(W15-V15))+ALS(O15="ja";ALS(S15="nee";(R15-P15);(T15-P15)))

Ps. formule dient voor iedere regel op nieuw berekend te worden.

 

[E v R]

Om de formule op iedere regel te krijgen kun je vrij gemakkelijk with... end with gebruiken, zorg dat de formule (indien niet absoluut $$) dezelfde rijnummers heeft als de eerste in de range)

dus in deze richting:

Sub tst()
    With Range("B15:b25")
        .Formula = "=if(C15>D15, ""doe dit"", ""anders dat"")"
    End With
End Sub

Voor wat betreft die draak van jouw formule: Kijk eens naar de functie Kiezen icm met de functie vergelijken die zoekt in een aan te maken tabelletje

 

[Haaren101]

Of maak een VBA functie met Select Case

Ron

 

[paulva]

Om de exacte code te kennen, klik je op
'macro opnemen',
'OK',
plak de code in het invulvak (te beginnen me '=')
klik op het vinkje naast het invulvak
klik op 'opname stoppen'

Dan vind je in de laatste module van de vba-code de code voor deze formule.

 

[zapatr]

Dit is ook eenvoudig op te lossen zonder vba door in een Excelblad een lijstje te plaatsen (bv. in D1:E6) met alle mogelijkheden die in je formule moeten voorkomen en het bijbehorende resultaat. Daarna kun je dan de vert.zoekenfunctie voor die tabel gebruiken.