zu testzwecken habe ich mir unter VB6 ein Steuerelement (Kalender) gebastelt.
Dieses kann man im VBA über Extras Verweise einbinden.
Extras Verweise Durchsuchen (Dateityp *.ocx) .
In einer Userform in der Werkzeugsammlung weitere Steuerelemente auswählen und bei
MeinKalender.Kalender_Control ein Häkchen setzen.
Nun kannst Du in der Werkzeugsammlung dieses auswählen und auf die Userform zeichnen.
Im Eigenschaftenfenster kannst Du diverse Einstellungen vornehmen.
Farbe für Feiertage, Sonntag, Standard, Rahmenfarbe und Rahmenstärke.
Diese Einstellungen bleiben gespeichert.
Im VBA kann man die DateValue Eigenschaft lesen und schreiben.
Beispiel:
'Beispiel zum schreiben
Private Sub CommandButton1_Click()
Kalender_Control1.DatumValue = DateSerial(Year(Date), 12, 25)
End Sub
'Beispiel zum lesen
Private Sub CommandButton2_Click()
MsgBox Kalender_Control1.DatumValue
End Sub
Einziges was ich nicht weg bekomme, ist die ständige Warnung wegen Aktiv-X Komponenten,
dies ist auf Dauer sehr nervig, daher habe ich dieses Projekt zurzeit auf Eis gelegt und keine weiteren Eigenschaften eingebaut, vielleicht hat ja einer einen Tip für mich dazu.
Vielleicht kann es ja einer so gebrauchen, daher stelle ich es hier zur Verfügung.
Hier die ocx Datei als Zip File.
https://www.herber.de/bbs/user/68924.zip
Wünsche noch frohe Ostern.
Gruß Tino