Button laten verschijnen

[bowlingman]

Hallo,
Weet niet of het volgende mogelijk is :
Ik heb een filetje waar ik graag een button krijg te zien bij het opstarten als in een bepaalde cel gegevens staan.
Even een klein voorbeeldje.

Een filetje met Blad1 en Blad2
Kan je in "ThisWorkbook" een formule zetten, dat wanneer op Blad2 in cel B105 bijvoorbeeld een datum staat, op Blad1 automatisch een button verschijnt.
Zolang de bedoelde cel leeg blijft, mag de button niet verschijnen.

Grtjs.
Armand

 

[edmoor]

Dat kan:

Private Sub Workbook_Open()
    With Sheets("Blad2")
        Sheets("Blad1").CommandButton1.Visible = IIf(.Range("B105") <> "" And IsDate(.Range("B105")), True, False)
    End With
End Sub

 

[HSV]

Private Sub Workbook_Open()
    With Sheets("Blad2")
        Sheets("Blad1").CommandButton1.Visible = .Range("B105") <> "" And IsDate(.Range("B105"))
    End With
End Sub

Mogelijk ook wel.

Private Sub Workbook_Open()
  Sheets("Blad1").CommandButton1.Visible = IsDate(Sheets("blad2").Range("B105"))
End Sub

 

[bowlingman]

Super, werkt perfect
Bedankt helpers.

Grtjs. en Prettige Feestdagen
Armand