Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: TextBox Waarde  (gelezen 1375 keer)

0 leden en 1 gast bekijken dit topic.

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 212
  • Geslacht: Man
  • Oplossing.be
TextBox Waarde
« Gepost op: 12 maart 2023, 18:55:55 »
Hoi,
Klein vraagje

deze vba werkt wel maar ik had een klein vraagje en helaas wezen zoeken en jammer genoeg niet gevonden

is het ook mogelijk als TextBox4 de waarde X bevat
dat de TextBox4 een bepaalde kleur krijgt?

deze vba vergelijk A1 en B1 naar waarde dus helaas niet wat ik zoek


Private Sub TextBox4_Change()
    If ActiveSheet.Range("A1").Value > ActiveSheet.Range("B1").Value Then
        Me.TextBox4.BackColor = vbRed
    Else
        Me.TextBox4.BackColor = vbYellow
    End If
End Sub

Alvast weer super bedankt
Excel 365 NL

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: TextBox Waarde
« Reactie #1 Gepost op: 13 maart 2023, 14:48:08 »
Zoiets dan?
Private Sub TextBox4_change()
    With TextBox4
        If .Text = "X" Then
            .BackColor = vbRed
        Else
            .BackColor = vbYellow
        End If
    End With
End Sub
______________________________

Groet, Leo

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 212
  • Geslacht: Man
  • Oplossing.be
Re: TextBox Waarde
« Reactie #2 Gepost op: 13 maart 2023, 17:50:41 »
@RedHead

Dit werkt perfect _/-\o_

Super bedankt  :thumbsup:
Excel 365 NL

 


www.combell.com