Agenda werkt niet optimaal

[Hollypro1]

Goede morgen,

Heb een agenda op internet gevonden, deze was voor alleen werkdagen,
heb er inmiddels een volle maand van gemaakt.
plus een extra week. omdat ik in sommige maanden dag 31 miste.
Nu krijg ik het alleen nog niet voor elkaar de eerste dag werkend te krijg.
in het voorbeeld kun je zien, dat de zondag op de kalender niet goed werkt.
Kan iemand mij hiermee helpen?

 

[OctaFish]

Dat kan allemaal een stuk netter. Ik heb de labels hernoemd naar b1 .. b42 zodat je die ook kunt verbergen.

Function fVulinMaand()
Dim iJaar As Integer, iMaand As Integer, iJaarVandaag As Integer, iMaandVandaag As Integer, iDagVandaag As Integer, i As Integer, j As Integer

    On Error Resume Next
    iJaarVandaag = Year(Date)
    iMaandVandaag = Month(Date)
    iDagVandaag = Day(Date)
    iJaar = Me.cboJaar
    iMaand = Me.cboMaand
    iLaatsteDag = Day(DateSerial(iJaar, iMaand + 1, 1) - 1)
    iWeekdag = Weekday(DateSerial(iJaar, iMaand, 1), vbSunday)
    
    If iWeekdag > 1 Then
        For i = 1 To iWeekdag - 1
            Me("s" & i).Visible = False
            Me("b" & i).Visible = False
        Next i
    End If
    
    iWDagCorrectie = 1
    For i = iWeekdag To iLaatsteDag + iWeekdag
        If iLaatsteDag < i - iWeekdag + 1 Then
            Exit For
        End If
        Me("s" & i).Visible = True
        Me("b" & i).Visible = True
        If iJaarVandaag = iJaar And iMaandVandaag = iMaand And iDagVandaag = (i - iWeekdag + 1) Then
            Me("s" & i).BorderColor = 255
            Me("s" & i).BorderWidth = 2
        Else
            Me("s" & i).BorderColor = 13821670
            Me("s" & i).BorderWidth = 1
        End If
        Me("s" & i) = ""
        Me("l" & i).BackStyle = 1
        Me("l" & i).BorderStyle = 1
        Me("l" & i).Caption = CStr(iWDagCorrectie)
        iWDagCorrectie = iWDagCorrectie + 1
    Next i
    
    j = i
    For i = j To 42
        Me("s" & i).Visible = False
        Me("b" & i).Visible = False
    Next i
    Me.Caption = " Activiteiten overzicht   " & Me.tMaand

End Function

 

[Hollypro1]

OctaFish, bedankt
ga dit uitproberen.

 

[Hollypro1]

Echt super, bedankt.
Het werkt.