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ß MatthiasDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen