Weergave in TextBox

[dellmorte]

Beste Helpers,

Ik werk met MS Office Professional Plus 2010

Ik zit met het volgende.

Als ik een cel selecteer dan gebruik ik de volgende code in VB

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$5" Or Target.Address = "" Or Target.Address = "" Then
CalendarFrm.Show
End If
End Sub

Nu wil ik als ik TextBox7 selecteer dat ik dan via de Datepicker ook een datum kan selecteren en de uitkomst in textbox 7 wordt weergegeven(in formaat "[$-F800]dddd, mmmm dd, jjjj").

Zelf zat ik aan het volgende te denken, maar dan krijg ik een foutcode:

Private Sub TextBox7_GotFocus()
If Target.Address = "TextBox7" Or Target.Address = "" Or Target.Address = "" Then
CalendarFrm.Show
End If
End Sub

Hopelijk kunnen jullie me uit de brand helpen.

Het bestand heb ik bijgevoegd.

 

[edmoor]

Ik kan niks met dat document omdat deze gebruik maakt van een paar libraries die ik niet hebt:

 

[gast0660]

Onder de knoppen van uw kalender (waar ThisButton bijstaat) voeg je de rode regel toe.
Vbtje voor één knop

Private Sub D1_Click()
   [COLOR="#008000"] ThisButton[/COLOR] = D1.ControlTipText
    ChkDate
    HelpLabel.Caption = ThisButton
   [COLOR="#FF0000"]Sheets("Dossiercontrole Part").OLEObjects("TextBox7").Object.Text = ThisButton[/COLOR]
End Sub

En plak deze onder uw textbox

Private Sub TextBox7_Change()
TextBox7.Value = Format(TextBox7, "dddd, mmmm dd, yyyy")
End Sub

 

[dellmorte]

Op deze manier komt de Kalender niet naar voren als ik er op klik.

Onder de knoppen van uw kalender (waar ThisButton bijstaat) voeg je de rode regel toe.
Vbtje voor één knop

Private Sub D1_Click()
   [COLOR="#008000"] ThisButton[/COLOR] = D1.ControlTipText
    ChkDate
    HelpLabel.Caption = ThisButton
   [COLOR="#FF0000"]Sheets("Dossiercontrole Part").OLEObjects("TextBox7").Object.Text = ThisButton[/COLOR]
End Sub

En plak deze onder uw textbox

Private Sub TextBox7_Change()
TextBox7.Value = Format(TextBox7, "dddd, mmmm dd, yyyy")
End Sub

 

[gast0660]

Private Sub TextBox7_GotFocus()
CalendarFrm.Show
End Sub

 

[dellmorte]

nu geeft hij nog steeds de waarde weer in een willekeurige cel en niet in de textbox7

Private Sub TextBox7_GotFocus()
CalendarFrm.Show
End Sub

 

[HSV]

Private Sub ChkDate()
'Cblundell changed below Greater/Less than signs. Original= "If Format(ThisButton, "m") - 1 <> CB_Mth......"
'NEW= "If Format(ThisButton, "m") - 1 = CB_Mth......"     so that when selecting dates calendar didnt
'jump months when a day between 1 & 12 was selected (as you would select the 12/06/05 (in dd/mm/yy format)
'and it would swap to december as display month)
    If Format(ThisButton, "m") - 1 = CB_Mth.ListIndex Then CB_Mth.ListIndex = Format(ThisButton, "m") - 1
' gh added next line
    CB_Yr = Year(ThisButton)
[COLOR=#0000ff] Sheets(1).TextBox7 = Format(DateSerial(CB_Yr, Split(ThisButton, "-")(0), Split(ThisButton, "-")(1)), "dddd, mmmm dd, yyyy")[/COLOR]
'focus
End Sub