Command Button abhängig vom Zellwert aktivieren

[diving_excel]

Hallo mal wieder,

ich habe einen VBA Code der einen CommandButton je nach Zellwert aktivieren oder deaktivieren soll.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If UCase(Range("AG25")) = "No" Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If
End Sub

Wenn ich  in der Zelle AG25 "No" stehen hab und auf den Knopf drück werden Daten abgerufen und der Wert ändert sich von "No" auf "Yes". Jetzt müsste sich der Command Button ja eigentlich deaktivieren, also ausgrauen.

Er wird aber nur ganz kurz grau und aktiviert sich dann wieder.

Hab ich irgendwas falsch geschrieben?

Danke und Gruß

[silcono]

Hi,

zum einen:

Code:

Sub CommandButton1_Click ()

Deine Prozedur.

zusätzlich: AG25 = Yes (weile du ja den Button gedrückt hast).

End Sub

Wobei man auch wissen muss, wie wird der Eintrag in AG25 gemacht, gibt es da auch eine Prozedur?

Gruß Silcono

[Steffl]

Hallo,

bei UCase muss alles groß geschrieben sein

Code:

If UCase(Range("AG25")) = "NO" Then

[diving_excel]

Ja, in "AG25" steht folgende Formel:

Code:

=WENNNV(WENN(SVERWEIS(HEUTE();'Log Data'!$BB$5:$BB$1004;1;FALSCH)=HEUTE();"Yes";"");"No")

Also in einem Log Data sheet wird die Spalte BB nach einem Eintrag mit Datum = heute durchsucht. 

Wenn das Datum "heute" gefunden wird dann "AG25" = Yes; ansonsten "AG25" = No.

EDIT:
Formel wurde in

Code:

=WENNNV(WENN(SVERWEIS(HEUTE();'Log Data'!$BB$5:$BB$1004;1;FALSCH)=HEUTE();"YES";"");"NO")

geändert (Groß geschrieben)