Hallo allemaal,
Ik heb een weekrooster van 7 dagen, en ik wil het volgende in VBA proberen;
1. messagebox met een begindatum (altijd op een maandag)
2. messagebox hoeveel weken
3. Na het invullen van gegevens (zie voorbeeld), moet een kopie op een ander werkbalk
gemaakt worden (dus een volledige rooster van 7 dagen)
4. dan herhaal de procedure zich weer t/m de ingevoerde hoeveel weken.
alvast bedankt voor jullie medewerking.
WT
In bijgevoegd bestand staan 2 knoppen die je vraag beantwoorden.
De knop
Via Inputbox toont een inputbox (soort messagebox) waarin de gebruiker aan kan geven welke maandag het rooster moet beginnen. Uitsluitend wanneer er een maandag ingegeven wordt, verschijnt de 2e inputbox.
Hierin kan de gebruiker aangeven hoeveel weken er in het rooster moeten staan.
Vervolgens worden er werkbladen toegevoegd aan het bestand evenredig aan het aantal gekozen weken.
De dagen van de week alsmede de datums van die week verschijnen in het nieuwe werkblad.
De knop
Via Menu doet hetzelfde maar iets handiger.
Het toont een menu waarin een kalender-element staat. Hierin kan de gebruiker een maandag kiezen. Het grote voordeel van deze optie is dat de kalender automatisch wordt samengesteld en dat de gebruiker in 1 oogopslag kan zien welke dag er op maandag valt.
Als extraatje zitten er 2 optieknoppen op het menu zodat je kunt kiezen of je een willekeurige dag wilt kiezen of uitsluitend een maandag. Klik je in het laatste geval toch op een andere dag, dan wordt automatisch de maandag van die week geselecteerd.
Verder zit er op het menu een textbox waarin het aantal weken kunnen worden weergegeven.
Klik je vervolgens op "rooster samenstellen", dan wordt het rooster aangemaakt.
LET OP: voor deze optie kan je nodig zijn om Analysis Toolpak te starten.
Dit doe je via EXTRA - INVOEGTOEPASSINGEN - Analysis Toolpak [aanvinken] - OK [klikken].
Met vriendelijke groet,
Roncancio
