Formen ansprechen
20.12.2018 09:33:52
Nikki
ich habe eine Tabelle mit 2 Comboboxen. In Combobox 1 habe Zahlen von 1-600 und 600 Commandbutton. In Combobox 2 die Bezeichnungen "offen", "in arbeit", "abgeschlossen". Die Commandbutton werden je nach Status farblich geändert. Folgendes Makro habe ich dafür:
Private Sub ComboBox1_Change()
' Combobox2 zurücksetzen
If ComboBox2 "" Then ComboBox2.ListIndex = -1
End Sub
Private Sub ComboBox2_Change()
Dim intElement As Integer
Dim lngFarbe As Long
Select Case ComboBox2
Case "0"
Case "offen"
lngFarbe = 15921906
Case "in arbeit"
lngFarbe = 255
Case "abgeschlossen"
lngFarbe = 5296274
End Select
If ComboBox2 "" Then
If ComboBox2 "" Then Me.OLEObjects("CommandButton" & _
CLng(Me.ComboBox1)).Object.BackColor = lngFarbe
End If
End Sub
Vielen Dank schonmal für die Hilfe.
Anzeige