Wenn dann Abfrage per VBA mit CommandButton

[Peggymaus]

Hallo Ihr Lieben,

habe ein Arbeitsblat in dem im Feld E18 ein Datum per Formel eingetragen wurde.
Wenn in diesem Feld ein Datum steht, soll ein Command-Button (auf Feld J18) dahinter erscheinen (Text: Termin löschen).
Das Makro, welches mit dem Button ausgelöst werden soll habe ich bereits fertig.
Wenn das Feld E18 jedoch einen Fehler beinhaltet (durch die Formel), soll gar nicht erst ein Button erscheinen.

Ich grüble und tüftle jetzt schon zwei Tage und bekomme es einfach nicht hin...
Hoffe wirklich sehr ihr könnt mir helfen.

Lg. Peggy

[cysu11]

Hi Peggy,


hier mal ein Ansatz:

Code:

Sub test()
Dim Datum
Datum = Range("E18")
If IsDate(Datum) Then
ActiveSheet.Shapes("Button 3").Visible = True
Else
ActiveSheet.Shapes("Button 3").Visible = False
End If
End Sub

VG
Alexandra