Excelkalender Nieuwsbrief (artikel Cor Verm)

[Plotinus]

Dag Rob,

Schema is nu gevuld en ziet er prachtig uit; bedankt!
Er zijn nog wel een paar kleine 'foutje' voor Excel 2003: bij het schakelen van land en drukken op 'feestdagen', dan komt er een foutmelding in de trant van (#verw.xls kan niet worden gevonden...). Bij klikken op OK komt er nog een foutmelding van hetzelfde soort als hierboven, maar die begint dan met (#verw.htm...).
Drukken op 'Dit jaar?' geeft een verwijzing naar opnieuw EDATE (De macro EDATE kan niet worden gevonden).

Zie je nog kans hier enig licht te verschaffen?

gegroet,
mrt

 

[robdgr]

Dit jaar? activeert

Sub dit_jaar()
Application.ScreenUpdating = False
If [jaar] <> Year(Now()) Then [jaar] = Year(Now())
[BB100].Select
Application.ScreenUpdating = True

End Sub

Controleer deze eens in jouw versie.

Feestdagen activeert

Sub naar_feestdagen()
Application.ScreenUpdating = False
Sheets("Feestdagen").Visible = True
Sheets("Feestdagen").Select
ActiveWindow.DisplayWorkbookTabs = False
[C3].Select
Application.ScreenUpdating = True
End Sub

Ook niet specifiek 2010.

Zie je nog kans hier enig licht te verschaffen?

En dat is alle licht voor nu met een glas wijn in het vooruitzicht.

 

[Plotinus]

Dag Rob,

Alles werkt inmiddels, behalve het vlaggetje. Toch heeft het wel even gewerkt... Ik heb al verschillende keren de betreffende macro's eraan gekoppeld, maar krijg de schakeling niet voor elkaar. Het werkt overigens wel handmatig in het VB-scherm. Heel vreemd.

Overigens heb ik 6 december als feestdag (St. klaas) voor België eraan toe gevoegd.

gegroet,
mrt

p.s. de code stond goed.

 

[robdgr]

Alles werkt inmiddels, behalve het vlaggetje. Toch heeft het wel even gewerkt... Ik heb al verschillende keren de betreffende macro's eraan gekoppeld, maar krijg de schakeling niet voor elkaar. Het werkt overigens wel handmatig in het VB-scherm. Heel vreemd.

Vreemd, wat er gebeurt is dat er steeds een naam 'feest' wordt gewijzigd. Je zou eens kunnen kijken met de macrorecorder wat er gebeurt als je een naam toekent. Vergelijk dan die macro met onderstaande code en zie de verschillen, die je wellicht kunt aanpassen.

Sub feest_b()
Application.ScreenUpdating = False
   ActiveWorkbook.Names.Add Name:="feest", RefersToR1C1:= _
        "=Feestdagen!R1C7:R40C8"
   [AG1] = "België"
   [BB100].Select
Application.ScreenUpdating = True

End Sub

Sub feest_nl()
Application.ScreenUpdating = False
  ActiveWorkbook.Names.Add Name:="feest", RefersToR1C1:= _
        "=Feestdagen!R1C1:R40C2"
  [AG1] = "Nederland"
  [BB100].Select
Application.ScreenUpdating = True

End Sub

Overigens heb ik 6 december als feestdag (St. klaas) voor België eraan toe gevoegd.

Ik was hem nog niet tegengekomen, maar heb hem nu ook toegevoegd.