kann mir vielleicht jemand sagen was man schreiben muß wenn ein button erst dann aktiv werden soll wenn in einer bestimmten zelle etwas steht und wieder inaktiv wird wenn sie leer ist?
Danke
Sub CheckButton()
CommandButton1.Enabled = (Range("A1") = "ok")
End Sub
Private Sub Worksheet_Activate()
CheckButton
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then CheckButton
End Sub
Private Sub "Hier der Name deiner Userform"_Initialize()
If Range("deine Zelle").Value = 10 Then Userformname."Der button Name".Enabled = true
End Sub