Voorwaardelijke opmaak Textbox in UserForm

[genexxa]

Beste helpers,

Ik heb een vraag over de mogelijkheden van een Textbox in een UserForm.
Ik ben namelijk benieuwd of het mogelijk is om een voorwaardelijke opmaak in te stellen (of adv een code)

Ik heb nog geen voorbeeld omdat ik eerst wil weten of het uberhaubt mogelijk is vandaar de vraag.

Wat ik zou willen is het volgende.
Ik haal vanuit een sheet de waarde op die ik wil laten zien door onderstaande code;

Me.TextBox1.Text = CStr(ThisWorkbook.Sheets("Blad1").Range("A1").Value)

Wat ik graag zou willen is; als de waarde 0 is, de kleur van het getal in de Textbox1 is dan wit
En als het getal niet gelijk is aan 0, de kleur van het getal in de Textbox1 zwart is.

Het idee is dat alleen de getallen die groter zijn dan 0 zichtbaar worden.

Of is hier een makkelijkere oplossing voor?

Ik ben benieuwd wie mij hierbij kan helpen.

 

[SjonR]

Zo?

code kijkt nu alleen naar gelijk aan 0, maar dat kan je aanpassen door = te vervangen door <=.

 

[edmoor]

Zoiets?

Private Sub UserForm_Initialize()
    With TextBox1
        .Text = CStr(Sheets("Blad1").Range("A1").Value)
        .ForeColor = IIf(.Text = "0", .BackColor, vbBlack)
    End With
End Sub

 

[genexxa]

@edmoor

Bedankt, dat ga ik gebruiken.