• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

dag kleuren in kalender

Status
Niet open voor verdere reacties.
B

bkoppers

Gebruiker
Lid geworden
11 jan 2011
Berichten
110
In bijgevoegd bestand zit een kalender formulier waar de dag uit A1 een grijze achtergrond heeft, echter als die zelfde dag van volgende/vorige maand ook zichtbaar is wordt die ook grijs.
Weet iemand hoe ik enkel de dag van actieve maand grijs krijg.

Kalender-AktiveRij.JPG

Bekijk bijlage Kalender-AktiveRij.xlsm

Alvast bedankt.
 
Met een kleine aanpassing:
Code: 
                If Day(Kalender.Tag) = Val(.Caption) Then
                    If chk1 = False Then .BackStyle = 1
                    chk1 = True
                Else
                    .BackStyle = 0
                End If
 
Kalender-AktiveRij.JPG

bedankt voor de super snelle reactie, het werkt bijna zoals ik het zou willen.
maar hoe los ik het probleem zoals in het bijgevoegd tekeningetje op :eek:
 
of zo:
 

Bijlagen

  • __Kalender_snb_001.xlsb
    29,9 KB · Weergaven: 57
Ik heb hem toch nog maar even vereenvoudigd:
 

Bijlagen

  • __Kalender_snb_002.xlsb
    27,6 KB · Weergaven: 61
:eek: ik ben blij dat jij hem eenvoudiger vind.... hahaha , iig bedankt . ga mij hier eens in verdiepen, ben nog niet zo bekend met de werking van die klassenmodules.
 
Ik heb iig weer wat bijgeleerd. hartelijk dank hiervoor
Heb de code beetje aangepast naar mijn eigen wensen en doet nu wat ik wil.

Code: 
Dim sn(41) As New CL_00

Private Sub UserForm_Initialize()
   
    For Each it In F_00.Controls 'F_00 = frame
       Set sn(it.TabIndex).v_label = it
    Next

    SC_01 = 0
End Sub

Private Sub SC_01_Change()
    With SC_01 ' scrolbar = maanden
'        .Tag = DateAdd("m", SC_01.Value, Date)
        .Tag = DateAdd("m", SC_01.Value, ActiveCell)
       maand.Caption = Format(.Tag, "mmmm yyyy")
       .Tag = DateSerial(Year(.Tag), Month(.Tag), 1)
       .Tag = 1 + CDate(.Tag) - Weekday(.Tag, 2)
    End With
    
    For Each it In F_00.Controls 'frame
        it.Tag = CDbl(CDate(SC_01.Tag) + it.TabIndex)
        it.Caption = Format(it.Tag, "d")
        it.ForeColor = &HC0C0C0 + &H40C0C0 * (Month(it.Tag) = Month(maand.Caption))
'        it.BackStyle = Abs(it.Tag / 1 = Date)
        it.BackStyle = Abs(it.Tag / 1 = ActiveCell)
    Next
    

End Sub

Private Sub Vandaag_Click()
ActiveCell = Format(Date, "dd-mm-yyyy")
Unload Me
End Sub
 
Als je in de kalender de dag van vandaag had aangeklikt had je niets aan de code hoeven te wijzigen.
 
Ik gebruik hem in een sheet waar verschillende datums per regel voorkomen, en ik wilde dat als ik op een bepaalde regel sta en de kalender open dat hij dan de datum uit die regel laat zien.
 
daarvoor heb je deze code niet nodig:

Code: 
Private Sub Vandaag_Click()
ActiveCell = Format(Date, "dd-mm-yyyy")
Unload Me
End Sub
 
Dan moet ik je code nog eens beter bestuderen, want zoals ik het nu zag kwam de datum van vandaag daar te staan.
En dat was niet de bedoeling, als bijvoorbeeld de datum 2-5-2014 wordt weergegeven, en ik moet die datum wijzigen naar vandaag, dan klik ik op het woord "vandaag"
wellicht had ik er beter een button van gemaakt ipv een label, was overzichtelijker geweest.:eek:
 
De code zet in de aktieve cel de datum die je in de kalender aanklikt: dan heb je de keus uit iedere datum.

Om de huidige datum in een 'aktieve cel' te zetten kan eenvoudiger (dubbelklik) dan met een userform.


Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   target.value=date
  cancel=true
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan