endlich mal ein Sudoku ;-)
05.07.2007 09:19:00
Matthias
Hallo bissi
Beispiel für leicht1
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(11, 12) = 405 Then Me.CommandButton2.BackColor = &H80FF&
If Cells(11, 12) 405 Then Me.CommandButton2.BackColor = &H8000000F
End Sub
wobei ich es (für mich persönlich so gestalten würde ;-)
Den Zellen in denen die Summen stehen, würde ich ebenfalls einen Namen geben.
Die Button würde ich nicht färben, sondern de/-und aktivieren
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(11, 12) = 405 Then Me.CommandButton2.Enabled=False
If Cells(11, 12) 405 Then Me.CommandButton2.Enabled=True
End Sub
statt if cells(x,y) könnte man den Namen abfragen und es ist einfacher zu programmieren.
Gruß Matthias