Aktueller Code der den Status in Spalte "D" sucht:
Me.CommandButton37.BackColor = IIf(WorksheetFunction.CountIf(Worksheets("Status") _
.Columns("D"), 0) > 1, vbYellow, vbGreen)"
Danke für die Hilfe.
If WorksheetFunction.CountIf(Worksheets("Status").Columns(4), 0) > 1 And _
WorksheetFunction.CountIf(Worksheets("Status").Columns(2), "Begriff") > 0 Then
Me.CommandButton37.BackColor = vbYellow
Else
Me.CommandButton37.BackColor = vbGreen
End If