Problemen met achtergrond door if...end if in with...end with-constructie

[RoVo1211]

    With txtVerschilx
        .Value = FormatPercent(Sheets(1).[S6].Value, 3)
        If txtVerschil3.Value >= 0.05 Then
            .BackColor = RGB(0, 128, 0)
            .ForeColor = vbWhite
        ElseIf txtVerschil3.Value >= 0.01 And txtVerschil3.Value < 0.05 Then
            .BackColor = RGB(0, 192, 0)
            .ForeColor = vbWhite
        ElseIf txtVerschil3.Value >= 0.005 And txtVerschil3.Value < 0.01 Then
            .BackColor = RGB(192, 255, 192)
            .ForeColor = vbBlack
        ElseIf txtVerschil3.Value >= 0.0001 And txtVerschil3.Value < 0.005 Then 'Tussen 0.5-1%
            .BackColor = RGB(224, 255, 224)
            .ForeColor = vbBlack
        ElseIf txtVerschil3.Value >= -0.0001 And txtVerschil3.Value < 0.0001 Then 'Ongeveer 0
            .BackColor = RGB(0, 192, 255)
            .ForeColor = vbYellow
        ElseIf txtVerschil3.Value >= -0.005 And txtVerschil3.Value < -0.0001 Then 'Tussen -0.5% en 0%
            .Font.Bold = False
            .ForeColor = vbBlack
            .BackColor = RGB(255, 224, 224)
        ElseIf txtVerschil3.Value >= -0.01 And txtVerschil3.Value < -0.005 Then 'Tussen -1 en -0.5%
            .BackColor = RGB(255, 176, 176)
            .ForeColor = vbBlack
        ElseIf txtVerschil3.Value >= -0.05 And txtVerschil3.Value < -0.01 Then 'Tussen -5 en -1%
            .BackColor = RGB(255, 0, 0)
            .ForeColor = vbWhite
        ElseIf txtVerschil3.Value < -0.05 Then  'Minder -5%
            .BackColor = RGB(128, 0, 0)
            .ForeColor = vbWhite
        End If

    End With

Ik heb deze With...End With-constructie staan bij alle "Verschil"-velden staan, maar elk veld krijgt dezelfde achtergrondkleur terwijl bij een negatief resultaat het veld een rode tint moet krijgen en bij een positief resultaat een groene tint als achtergrond moet krijgen. Wat doe ik fout?

 

[edmoor]

Plaats een voorbeeld document.

 

[RoVo1211]

In de tussentijd heb ik ontdekt dat als ik formatpercent gebruik er niet juist op de voorwaarden gereageerd wordt. Met formatnumber werkt het beter, maar dan krijg het %-teken er niet achter.

Ik ben nu bezig de if...end if-constructie om te zetten naar een select case...end select-constructie.
als ik daar klaar mee ben, zal ik de testversie uploaden.

Nog even geduld.

 

[snb]

Staat hier: in post #20

Problemen met flexibele opmaak

In het bijgevoegde bestand heb ik een formulier gemaakt frmDoelenInstellen. als ik de velden wil vullen met inhoud uit cellen van sheets(1) met with txtVerschilAEX .value=sheets(1).[M6].value end with dan krijg ik de melding dat de typen niet overeenkomen. Er wordt niet aangegeven om welk veld...

www.helpmij.nl

With txtVerschilAEX
        .BackColor = Array(RGB(255, 224, 224), RGB(255, 176, 176), RGB(255, 0, 0), RGB(128, 0, 0), RGB(0, 192, 255), RGB(224, 255, 224), RGB(0, 192, 0), RGB(0, 128, 0))(Application.Match(--sn(6, 13) / 100, Array(-0.0001, -0.005, -0.01, -0.05, 0.0001, 0.005, 0.01, 0.05), 1))
        .Value = FormatPercent(sn(6, 13))
    End With

 

[huijb]

Op slot en hier verder https://www.helpmij.nl/forum/threads/objecttype-komt-niet-overeen.971129/#post-6382437