• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

vba textbox kleur obv waarde

Status
Niet open voor verdere reacties.
S

swientjes

Gebruiker
Lid geworden
7 aug 2018
Berichten
12
goedemorgen

ik heb een userform waar 2 teksboxen in staan.
de waarde van textbox 1 wordt als volgt opgehaald (er staat dan dus een percentage)

Code: 
UserForm1.TextBox1.Value = Format(Sheets("Sheet1").Range("A1").Value, "0%")

Nu wil ik graag dat de kleur van textbox 2 verandert aan de hand van de waarde in textbox 1
daarvoor gebruik ik deze code

Code: 
Select Case TextBox1.Value
        Case "0%" To "85%:"
            TextBox2.BackColor = vbRed
        Case "86%" To "99%":
            TextBox2.BackColor = vbYellow
        Case Else:
            TextBox2.BackColor = vbGreen
    End Select

nu worden alleen de juiste kleuren niet weergegeven?
en ik kom er niet uit hoe dat juist te krijgen kan iemand daar wellicht mee helpen?

alvast bedankt
 
zonder voorbeeld en met onvolledige stukken code:

maak van de percentages een een getal, dus 85% wordt 0.85, 99 % wordt 0.99.

Of zo:

Code: 
Private Sub UserForm_Initialize()
TextBox1.Value = Format(Sheets("Blad1").Range("A1").Value, "0%")
Code:
Select Case Left(TextBox1.Value, Len(TextBox1) - 1)
        Case 0 To 85
            TextBox2.BackColor = vbRed
        Case 86 To 99
            TextBox2.BackColor = vbYellow
        Case Else:
            TextBox2.BackColor = vbGreen
    End Select
End Sub
 
Laatst bewerkt:
Dank voor de snelle reactie maar dan nog pakt hij hem niet juist.

Ik heb nu deze code

Code: 
Case 0 To 0.85
            TextBox37.BackColor = vbRed
        Case 0.86 To 0.99
            TextBox37.BackColor = vbYellow
        Case Else:
            TextBox37.BackColor = vbGreen

ik zie het echt niet ? sorry voor mijn onwetendheid
 
plaats eens een bestand of op zijn minst een hele code. Zo is niet te zien wat je met die code doet.

Heb je mijn aanvulling in #2 al gezien?
 
stond een foutje in :confused:

per ongeluk een komma met mn vingers aangeraakt :eek:

werk als een zonnetje dank je wel
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan