Ik heb een vraagje voor de macro wizzards onder ons.

Is het mogelijk om een macro te maken die met een druk op de knop een tabel kan maken met in de ene kolom de dagen van de maand en ook afhankelijk van de dag een startuur kan plaatsen in een adere kolom.
Het startuur is afhankelijk van de dag (woe is vroeger dan de rest van de week) en het einduur moet de gebruiker wel nog zelf ingeven.
Ook mogen de weekends van de maand weg gelaten worden.

Is de mogelijk? Zoja kan je mij enkele tips geven. Let wel ik ben een macro leek. Ik heb wel kennis van Visual basic.

Yakko

Ik heb volgende code geschreven, het is makkelijker om de code te begrijpen dan eerst proberen uit te leggen hoe je er aan begint.

Public Sub uitvoeren()
maandnr = InputBox("maandnr")

EersteDagVanDeMaand = CDate("1/" & maandnr & "/" & Year(Now()))
EersteDagVanDeVolgendeMaand = DateAdd("m", 1, EersteDagVanDeMaand)
AantalDagen = DateDiff("d", EersteDagVanDeMaand, EersteDagVanDeVolgendeMaand)

RijNr = 1
For i = 1 To AantalDagen
    Select Case Weekday(CDate(i & "/" & maandnr & "/" & Year(Now())), vbMonday)
    Case 3 'woensdag
        ActiveSheet.Cells(RijNr, 1).Value = "10u"
        RijNr = RijNr + 1
    Case 6, 7 'zaterdag en zondag
    Case Else 'alle andere dagen
        ActiveSheet.Cells(RijNr, 1).Value = "9u"
        RijNr = RijNr + 1
    End Select
Next i
End Sub


De gebruiker geeft een maandnummer in, vervolgens wordt het aantal dagen in die maand berekend. Dan waordt er een lus doorlopen die een na een alle datums overloopt en kijkt welke dag het is.

Normaalgezien wijst het zichzelf uit en anders zal ik wat meer uitleg geven waar nodig.
Groetjes

Jullie doen me overuren presteren eh

Maar dat is inderdaad wat ik zoek. Met deze tip zal het zeker lukken om het om te vormen naar wat ik wil.

mercikes!!

Nog een laatste vraagje hoe kan je dan die macro als knop in excel krijgen?

goede avond,

ik kan jullie het volgende al presenteren:

een zelfgemaakte functie om te bepalen of in een tabel met datums de dag een zaterdag of zondag is.

Function bereken(datum)
bereken = "ja"
dag = WeekDay(datum)
If dag = 7 Or dag = 1 Then
    bereken = "nee"
    Exit Function
End If
For i = 1 To 20
    If datum = Sheets("Holiday").Cells(i, 1) Then
        bereken = "nee"
        Exit Function
    End If
Next i
End Function

deze functie kan dan via de "fx" balk geactiveerd worden.

het bestand is dan al klaar voor dagen te zetten
wel opletten voor welke datumnotatie gekozen is
(kan beginnen met 1 voor zondag of 7  voor zondag, naargelang systeem).

klein beetje uitleg:
de sheet "holiday" kan je datums inzetten waarop men niet aktief is, dus een niet werkdag die misschien midden in de week valt.
je kan de functie ook in je vba inwerken

succes

JC

Hallo,

Die 20 is 'normaal' gezien het aantal verlofdagen die een werkende Belg kan krijgen, niet?

Groeten,
StriKe

belofte maakt schuld:

het beloofde eventueel aan te passen bestand