Tekst kleur veranderen via formulier en optionbutton

[Gielleke]

Beste Helpmij leden,

Graag jullie hulp.

Zoals jullie kunnen zien in mijn lange code. via jullie.
Merken jullie op dat ik door de "optionbutton2" aan te klikken enkele textboxen en comboboxen in een rood kleur wegschrijf.

Private Sub cmdInvoeren_Click()
x = Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A" & x) = txtDatum
Range("B" & x) = cboBetalingsmethode
Range("G" & x) = cboOmschrijving
If CheckBox1.Value = True Then
Range("E" & x) = txtInkomsten.Value
Range("F" & x) = txtUitgaven.Value
Else
Range("C" & x) = txtInkomsten.Value
Range("D" & x) = txtUitgaven.Value
Range("A" & x).Font.Color = txtDatum.ForeColor
Range("B" & x).Font.Color = cboBetalingsmethode.ForeColor
Range("D" & x).Font.Color = txtUitgaven.ForeColor
Range("G" & x).Font.Color = cboOmschrijving.ForeColor
End If
Unload Me

End Sub

Private Sub OptionButton1_Click()
CheckBox1.Visible = False
OptionButton2.Visible = False
keuzeportefeuille

End Sub

Private Sub OptionButton2_Click()
CheckBox1.Visible = False
OptionButton1.Visible = False
txtDatum.ForeColor = &HC0&
cboBetalingsmethode.ForeColor = &HC0&
txtUitgaven.ForeColor = &HC0&
cboOmschrijving.ForeColor = &HC0&
keuzeportefeuille

End Sub

Graag zou ik deze combobox verwijderen en een vaste text van maken omdat deze bij nader inzien steeds het zelfde is.

Range("B" & x) = cboBetalingsmethode

Dus dit is het resultaat.

Range("B" & x) = "Cash"

Nu is mijn vraag is het mogenlijk door een kleine aanpassing en dezelfde vorm van code de vaste tekst "Cash" ook weg te schrijven in het rood als men de optionbuttun2 aanduid?

Alvast bedankt!!
Vriendelijke Groeten,

 

[Roncancio]

De kleur rood in de cel of in het tekstvak? Of beiden?

Hoe dan ook:

De tekst van cel in de A-kolom rood kleuren

    Range("A" & x).Font.Color = vbRed

De tekst van tekstveld Textbox1 rood kleuren.

    TextBox1.ForeColor = vbRed

Met vriendelijke groet,


Roncancio

 

[Gielleke]

Beste Roncancio,

Bedankt voor de reactie.
Ik ga deze in de loop van de week inbouwen in mijn code.

Hartelijk dank.:thumb:
Mvg.

Angelo