Fout in code?

[marcel31281]

Goedemorgen,

Kan iemand mij vertellen wat er fout staat in onderstaande code? Ik heb .Font.Color toegevoegd maar krijg nu steeds een foutmelding

Private Sub ComboBox1_Change()
With ComboBox1
    If .Value = Sheets("Data").Range("H6").Value Then
        .BackColor = RGB(255, 101, 101) 'dit is rood'
        .Font.Color = RGB(255, 255, 255)
        Else
        .BackColor = RGB(106, 177, 135) 'dit is groen'
        .Font.Color = RGB(255, 255, 255)
    End If
End With
End Sub

 

[marcel31281]

Ik ben er uit het moest forecolor zijn, echter zit ik nog met een andere uitdaging... als in combobox de tekst gewist wordt moet de tekst weer terug naar grijs en die blijft nu op wit staan, ik heb al iets geprobeerd maar dat werkt niet

Private Sub ComboBox1_Change()
    With ComboBox1
        If .Value = Sheets("Data").Range("H6").Value Then
        .BackColor = RGB(255, 101, 101) 'dit is rood'
        .ForeColor = RGB(255, 255, 255)
        Else
        If .Value = Sheets("Data").Range("H5").Value Then
        .BackColor = RGB(106, 177, 135) 'dit is groen'
        .ForeColor = RGB(255, 255, 255)
        Else
         If .Value = "" Then
        .BackColor = RGB(255, 255, 255) 'dit is wit'
        .ForeColor = RGB(251, 251, 251)
    End If
        End If
            End If
                End With
                    End Sub

 

[djutoch]

.ForeColor = RGB(255, 255, 255)

 

[djutoch]

Zoiets?

Private Sub ComboBox1_Change()
    With ComboBox1
        If .Value = Sheets("Data").Range("H6").Value Then
            .BackColor = RGB(255, 101, 101) 'dit is rood'
            .ForeColor = RGB(255, 255, 255)
        
        ElseIf .Value = Sheets("Data").Range("H5").Value Then
            .BackColor = RGB(106, 177, 135) 'dit is groen'
            .ForeColor = RGB(255, 255, 255)
        
        ElseIf .Value <> Sheets("Data").Range("H6").Value Or .Value <> Sheets("Data").Range("H5").Value And .ListIndex > 0 Then
            .BackColor = vbWhite
            .ForeColor = vbBlack
    End If
        End With
End Sub

 

[marcel31281]

YES! Super bedankt :thumb:

 

[djutoch]

Graag gedaan.

 

[snb]

Private Sub ComboBox1_Change()
  With ComboBox1
    .BackColor = vbWhite
    .ForeColor = vbBlack
    If .Value = Sheets("Data").Range("H6").Value Then
      .BackColor = RGB(255, 101, 101)
    ElseIf .Value = Sheets("Data").Range("H5").Value Then
      .BackColor = RGB(106, 177, 135)
    End If
   if .BackColor <> vbWhite Then .ForeColor= RGB(255, 255, 255)
  End With
End Sub