Microsoft Excel

Herbers Excel/VBA-Archiv

Wenn Datum abgelaufen, dann ausblenden


Betrifft: Wenn Datum abgelaufen, dann ausblenden
von: Steffi
Geschrieben am: 04.12.2018 16:10:19

Warum läuft das bei mir im Workbook-Open nicht ?

In N3 auf Tabelle2 habe ich ein Datum stehen, nach dessen Ablauf das Blatt 1 ausgeblendet werden soll:

If Tabelle2.Range("N3").Value < Date Then Worksheets("Tabelle1").Visible = True Else Worksheets("Tabelle1").Visible = False

Stimmt da was nicht ?

LG Steffi.

  

Betrifft: AW: Wenn Datum abgelaufen, dann ausblenden
von: Rudi Maintaire
Geschrieben am: 04.12.2018 16:40:41

Hallo,
Worksheets("Tabelle1").Visible = CDate(Worksheets("Tabelle2").Range("N3")) >= Date

Gruß
Rudi


  

Betrifft: AW: Wenn Datum abgelaufen, dann ausblenden
von: Luschi
Geschrieben am: 05.12.2018 07:59:36


< statt >=