Atwist
Terugkerende gebruiker
- Lid geworden
- 24 jan 2006
- Berichten
- 1.055
- Besturingssysteem
- Wndows 10
- Office versie
- 2016
Probeer een calender aan een textbox te koppellen.
Dit probeer ik door op de textbox te klikken dan zou de calender moeten openen en kan ik een keuze maken van de datum zodat deze in de textbox verschijnt.
De calender is van SNB dus daar kan het niet aanliggen, het loopt vast op
.
Ben met Excel nog niet zo ver dat ik het probleem zelf kan oplossen.
Hoe krijg ik dit werkend.
VBA van de "Frmkalender"
Dit probeer ik door op de textbox te klikken dan zou de calender moeten openen en kan ik een keuze maken van de datum zodat deze in de textbox verschijnt.
De calender is van SNB dus daar kan het niet aanliggen, het loopt vast op
Code:
Dim sn(41) As New CL_00
Ben met Excel nog niet zo ver dat ik het probleem zelf kan oplossen.
Hoe krijg ik dit werkend.
Code:
Private Sub TextBox20_Enter()
Frmkalender.Show
End Sub
VBA van de "Frmkalender"
Code:
Dim sn(41) As New CL_00
Private Sub UserForm_Initialize()
For Each it In F_00.Controls
Set sn(it.TabIndex).v_label = it
Next
SC_01 = 0
Top = ActiveCell.Top + 32 + 3 * ActiveCell.EntireRow.RowHeight
Left = (ActiveCell.Offset(, 1).Left + 12) * Zoom / 100
End Sub
Private Sub SC_01_Change()
With SC_01
.Tag = DateAdd("m", SC_01.Value, Date)
M_00.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
it.Tag = CDbl(CDate(SC_01.Tag) + it.TabIndex)
it.Caption = Format(it.Tag, "d")
it.ForeColor = &HC0C0C0 + &H40C0C0 * (Month(it.Tag) = Month(M_00.Caption))
it.BackStyle = Abs(it.Tag / 1 = Date)
Next
End Sub