Hierzu habe ich in die Tabelle folgenden VBA Code eingegeben.
Private Sub Worksheet_Activate()
CommandButton1.Visible = Range("A1").Value = 1
End Sub
Aber es funktioniert nicht.
Was mache ich falsch?
Private Sub Worksheet_Activate()
CommandButton1.Visible = Range("A1").Value = 1
End Sub
Private Sub Worksheet_Activate()
If Range("A1").Value = 1 Then
CommandButton1.Visible = True
Else
CommandButton1.Visible = False
End If
End Sub
Rückmeldung obs Hilft wäre nett.
Option Explicit
Private Sub Worksheet_Activate()
CommandButton1.Visible = IIf(Range("A1").Value = 1, 1, 0)
End Sub
Ob das Worksheet_Activate-Ereignis das Richtige ist mag ich nicht beurteilen.Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
CommandButton1.Visible = IIf(Range("A1").Value = 1, 1, 0)
End If
End Sub
Gruß Matthias