Hintergrundfarbe von Button ändern

'alle vorhandenen Kategorien-Werte ausdrucken
Private Sub CommandButton32_Click()
Dim LoI As Long
If ListBox2.ListIndex = -1 Then
CommandButton32.BackColor = &H8000000A
'MsgBox "bitte Mon/Jahr auswählen"
Label29.Font.Size = 11
Label29.BackColor = &HFF&       'rot
Label29.Caption = vbLf & "              Bitte wählen Sie Mon/Jahr aus!"
CommandButton32.BackColor = &H8000000F
Exit Sub
ElseIf ListBox2.ListIndex > -1 Then
CommandButton32.BackColor = &H8000000A
Label29.Font.Size = 11
Label29.BackColor = &HFF00&     'grün
Label29.Caption = vbLf & "                    Mon/Jahr ausgewählt!"
For LoI = 0 To ListBox3.ListCount - 1
'MsgBox ListBox3.List(LoI, 0)
TextBox1.Value = ListBox3.List(LoI, 0)
CommandButton21 = True  'überträgt die Daten in ListBox1
If ListBox1.ListCount > 0 Then
'MsgBox "Wert vorhanden - drucken"
Label29.Font.Size = 11
Label29.BackColor = &HFF00&     'grün
Label29.Caption = vbLf & "     vorhandener Kategorien-Wert wird gedruckt!"
CommandButton27 = True  'druckt die Daten aus ListBox1 aus
Me.ListBox1.Clear
Else
'MsgBox "Wert nicht vorhanden - nicht drucken"
Label29.Font.Size = 11
Label29.BackColor = &HFF&       'rot
Label29.Caption = vbLf & "             Kategorien-Wert nicht vorhanden!"
End If
Next LoI
Me.ListBox3.ListIndex = -1
CommandButton25 = True
TextBox1.Value = ""
CommandButton32.BackColor = &H8000000F
End If
End Sub