Excel VBA Button Enable?
Hallo Freunde,
Ich habe einen Button in Excel implementiert, der sichtbar sein soll wenn meine Zelle A1 die Zahl 2 enthält.
Der Code dafür lautet:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo ErrHandler
Dim rngButton1 As Integer
rngButton1 = A1
If rngButton1 = 2 Then
CommandButton1.Enabled = False
Else
CommandButton1.Enabled = True
End If
Application.EnableEvents = True
Exit Sub
ErrHandler:
Application.EnableEvents = True
End Sub
Der Code funktioniert an und für sich, es kommt zu keiner Fehlermeldung.
Aber der Button bleibt egal was ich einstelle, Sichtbar.
Wo liegt der Fehler?
LG