Macro uitvoeren na bepaalde tijd

[Snulk]

Hallo,

Ik heb een agenda in Excel gemaakt: 3 rijen per dag.
Ik heb piepklein macrootje die met Ctrl-Y die rijen verwijdert als de dag om is.
Rows("1:3").Select
Selection.Delete Shift:=xlUp
Range("A1").Select

Kan ik het zodanig maken dat die rijen automatisch verwijdert worden als het later dan 18:00 is? Het is nl een overdag-kalender

Zal vast iets met If > 18:00 zijn, maar zie het even niet

Dank alvast,
Jos

 

[edmoor]

Simpel gesteld, zo:

If Format(Time, "HH") > 17 Then Rows("1:3").Delete Shift:=xlUp

 

[Snulk]

Werkt helaas niet. Krijg alleen geluid en er gebeurt niets...

heb dit als module ingevoerd:
Sub Macro2()
'
' Macro1 Macro
'
' Sneltoets: Ctrl+q
'
If Format(Time, "HH") > 17 Then Rows("1:3").Delete Shift:=xlUp
Range("A1").Select




End Sub


Eigenlijk wil ik ook nog dat ie dit automatisch doet zodra ik het bestand open of als het een tijd geopend is.
kan dat?

Jos

 

[popipipo]

Wil je dit alles automatisch doen en je gebruikt het bestand 2x na 18:00 uur dan worden er 6 regels verwijderd op die dag en dat is denk ik niet de bedoeling.
Je kunt beter controleren op de datum van de agenda dan klakkeloos de eerste 3 regels verwijderen.

 

[Snulk]

Helemaal gelijk heb je !

Dan is het gevaar dat er teveel verdwijnt.

Ik laat het maar zoals het nu is :0

Dank jullie

 

[edmoor]

Vandaar dat ik zei, simpel gesteld
Daarnaast werkt wat ik liet zien gewoon goed.

 

[Snulk]

Ziet er goed uit hoor Edmoor, maar bij mij gebeurt er helemaal niets.

Toch dank voor je hulp :thumb: