krijg workday niet ingesteld in excel 2003

[00Jan00]

Ik heb momenteel excel 2003
Cel (A1) heeft de waarde 01-01-2012. Ik zou graag in cel (B1) de datum willen krijgen van +10 werkdagen. Workday werkt bij mij niet. Twee opties.
1) Hoe krijg ik workday actie zodat ik deze kan gebruiken in een macro. Ik heb “Analusis ToolPak-VBA” al geïnstalleerd
2) Als workday niet werkt met excel 2003 (wat ik ook op veel sites lees). Welke macro kan ik dan gebruiken om het bovenstaande probleem op te lossen

Gr. 00Jan00

 

[Cobbe]

=Werkdag(a1;10)

Wel Analysis Toolpak installeren

 

[00Jan00]

Als ik deze code in een macro zet krijg ik de foutmelding:

Compile error
Syntax Error

De code wordt in de macro rood
Analyse Toolpak heb ik geïnstalleerd

Gr. Sjef

 

[Cobbe]

Dat is toch normaal, je kan niet zondermeer een formule gebruiken in VBA.
Je kan wel een formule gebruiken via een WorksheetFunction.

Post eens je code of je bestand waarin je aangeeft wat je wil bereiken.

 

[00Jan00]

Bekijk bijlage 00 bestellingxls.xlsBekijk bijlage 00 bestellingxls.xls

Ik heb al verschillende code's gebruikt.
zoals:

Date = Now()
dtewsdata = Format(Workday(Date, 10, hols), "dd-mm-yy")

en

Today = Now()
PrevWrkDay = Application.Run("ATPVBAEN.XLA!Workday", Today, -10)
PrevWrkDay = Format(PrevWrkDay, "dd/mm/yyyy")

en

Dim WrkDays As Integer
Dim StartDate As Date
Dim EndDate As Date

StartDate = Now()
EndDate = Application.Worksheet.Workday(StartDate, 12)

De bedoeling is dat bij de "bestel datum" 10 werkdagen opgeteld worden en dat die datum (bestel datum + 10 werkdagen) komt te staan bij "Datum binnenkomst".

 

[ExcelAmateur]

00Jan00 ,

Zet in D4 de volgende formule;

=WERKDAG(C4;10)

Zet in C4 een datum en zie het resultaat in D4

 

[Haije]

00jan00,

uit post #1:

Ik zou graag in cel (B1) de datum willen krijgen van +10 werkdagen

reactie van Cobbe in post #2:

=Werkdag(a1;10)

jouw reactie in post #3:

Als ik deze code in een macro zet krijg ik de foutmelding

Mijn vraag: waar staat dat je dit in een macro moet opnemen?

zet het gewoon in B1 en het levert als resultaat 13-01-2012

 

[Cobbe]

Heb het dan toch maar in uw bestand ingevoegd en in extra:
rekening houdend met feest en vakantiedagen.
Het werkblad is beveilgd ZONDER wachtwoord.

 

[00Jan00]

Ik wil om te beginnen jullie bedanken voor alle moeite die jullie voor mij doen.
Volgens mij praten we op dit moment langs elkaar heen. Ik kende de formule die je in een cel kunt zetten en die werk/vakantie dagen optelt.

Maar ik wil een macro maken die werkdagen bij een bepaalde datum optelt. Ik heb al verschillende macro’s geprobeerd (zie eerdere post), en al deze macro werken niet bij mij.
Als ik de code “Workday”gebruikt in een macro krijg ik steeds een fout melding dat hij deze code niet kent. Nu heb ik ook gelezen dat deze code bij excel 2003 niet altijd werkt.

Nu weet ik niet of er een mogelijkheid is om "Workday" als code toe te voegen zodat hij deze code wel accepteert. Zoniet dan zou ik graag een macro maken (hebben) zodat ik deze code niet hoeft te gebruiken

Sjef

 

[Cobbe]

Hier is een macro, als je dat echt wil hebben: tot xl2003

Sub Cobbe()
ActiveCell.FormulaLocal = "=Werkdag(c4;10;vrijedagen)"
End Sub

Vanaf xl2007:

Sub Cobbe()
ActiveCell = WorksheetFunction.WorkDay(ActiveCell.Offset(, -1), 10, vrijedagen)
End Sub

 

[00Jan00]

Cobbe,

Ik heb je macro iets aangepast.
- werkdag veranderd in workday
- vrijedagen weggelaten

ActiveCell.FormulaLocal = "=WORKDAY(C9;10)"

Hij werkt voor mij goed.

Gr. Sjef