DropButtonClick Event "auflösen"
15.10.2019 14:30:33
Sven
zur besseren Übersichtlichkeit eines Userforms habe ich folgenden Code hinterlegt:
Private Sub Cbox_Pauschal_1_DropButtonClick()
'Formatierung
Cbox_Pauschal_1.BackColor = &H404040 'dunkelgrau
Cbox_Pauschal_1.ForeColor = &HFFFFFF 'weiß
End Sub
Sobald ich auf die ComboBox klicke, ändert sich die Hintergrundfarbe (zur besseren Lesbarkeit).Für den Change habe ich folgenden Code:
Private Sub Cbox_Pauschal_1_Change()
'Formatierung
Select Case Cbox_Pauschal_1.Value
Case "Bsp1"
tb_Datum_1.Value = ""
tb_Betrag_1.Value = ""
Cbox_Pauschal_1.BackColor = &HC0FFC0 'grün
Cbox_Pauschal_1.ForeColor = &H0& 'schwarz
Case "Bsp2"
tb_Datum_1.Value = ""
tb_Betrag_1.Value = ""
Cbox_Pauschal_1.BackColor = &HC0FFFF 'gelb
Cbox_Pauschal_1.ForeColor = &H0& 'schwarz
End Select
End Sub
Die Hintergrundfarbe der ComoBox soll also wieder geändert werden. Mein Problem liegt nun darin, dass sich die Farbe erst nach dem Verlassen der ComoBox ändert. Alle anderen Aktionen werden direkt ausgeführt - nur die Farbe eben nicht.
Hat jemand eine Idee?
Vielen Dank!
Gruß Sven