Else-If werkt niet zoals het moet

[tijmen_4real]

Goedemorgen,

Een waarde in cel D18 wordt vergeleken. Hieruit komt een match.
Deze match moet dan een andere waarde tonen in F19.
Maar dit werkt niet, helaas....

Public Sub Hausner()
If D18.Value <= 1.11 Then
                F19.Value = "25 - 30"
    ElseIf D18.Value <= 1.18 Then
                F19.Value = "31 - 35"
    ElseIf D18.Value <= 1.25 Then
                F19.Value = "36 - 40"
    ElseIf D18.Value <= 1.34 Then
                F19.Value = "41 - 45"
    ElseIf D18.Value <= 1.45 Then
                F19.Value = "46 - 55"
    ElseIf D18.Value <= 1.49 Then
                F19.Value = "56 - 65"
    ElseIf D18.Value >= 1.49 Then
                F19.Value = "> 66"
End If
End Sub

Wat doe ik verkeerd? En hoe los ik dit op??
Alvast bedankt. Groet,

Tijmen

 

[E v R]

Range("D18").value ipv D18.value

en kijk eens naar select case

 

[Haije]

OF....

maak er eens dit van:

Public Sub Hausner()
If [D18].Value <= 1.11 Then
                [F19].Value = "25 - 30"
    ElseIf [D18].Value <= 1.18 Then
                [F19].Value = "31 - 35"
    ElseIf [D18].Value <= 1.25 Then
                [F19].Value = "36 - 40"
    ElseIf [D18].Value <= 1.34 Then
                [F19].Value = "41 - 45"
    ElseIf [D18].Value <= 1.45 Then
                [F19].Value = "46 - 55"
    ElseIf [D18].Value <= 1.49 Then
                [F19].Value = "56 - 65"
    ElseIf [D18].Value >= 1.49 Then
                [F19].Value = "> 66"
End If
End Sub

 

[tijmen_4real]

OF....

maak er eens dit van:

Public Sub Hausner()
If [D18].Value <= 1.11 Then
                [F19].Value = "25 - 30"
    ElseIf [D18].Value <= 1.18 Then
                [F19].Value = "31 - 35"
    ElseIf [D18].Value <= 1.25 Then
                [F19].Value = "36 - 40"
    ElseIf [D18].Value <= 1.34 Then
                [F19].Value = "41 - 45"
    ElseIf [D18].Value <= 1.45 Then
                [F19].Value = "46 - 55"
    ElseIf [D18].Value <= 1.49 Then
                [F19].Value = "56 - 65"
    ElseIf [D18].Value >= 1.49 Then
                [F19].Value = "> 66"
End If
End Sub

Dit werkt prima, maar slechts eenmalig.
Hoe kan je dit 'loopen'? Dat zodra de waarde in D18 veranderd de vergelijking(en) nogmaals gedaan worden?

 

[snb]

svp niet quoten !

zet in F19:

=CHOOSE(MATCH(D18;{0;1,11;1,18;1,25;1,34;1,45;1,49;5};1);"25-30";"31-35";"36-40";"41-45";"46-55";"56-65";">65")