Im Beitrag „Datum schnell per Tastatur einstellen“ (www.access-im-unternehmen.de\/1590) haben wir eine Lösung vorgestellt, mit der wir allein über die Tasten „Nach oben“, „Nach unten“, „Nach links“ und „Nach rechts“ das Datum in einem Textfeld einstellen können. Diese Lösung haben wir in diesem Beitrag speziell für ein Textfeld programmiert. Noch effizienter wäre die Lösung, wenn wir die Funktionalität in einer Klasse unterbringen, die man mit wenigen Codezeilen schnell zu einem Datums-Textfeld hinzufügen könnte. Genau das erledigen wir im vorliegenden Beitrag.<\/b><\/p>\n
Die Lösung, die wir im oben genannten Beitrag vorgestellt haben, ermöglicht das einfache Navigieren in einem Datums-Textfeld. Beim Eintritt wird der Tag markiert, mit der Taste Nach rechts<\/b> springt man zum Monat und zum Jahr und mit den Tasten Nach oben <\/b>und Nach unten <\/b>stellt man den aktuell markierten Teil des Datums ein. Mit Nach links <\/b>kann man zu den vorherigen Datumsteilen zurückspringen. Außerdem können wir bei gedrückter Umschalttaste das Jahr in Zehnerschritten ändern (siehe Bild 1).<\/p>\n
![\"Navigieren](\"..\/fileadmin\/_temp_\/2026_02\/pic_1591_002.png\")
<\/p>\n
Bild 1: Navigieren im Datums-Textfeld<\/span><\/b><\/p>\n Allerdings umfassen die notwendigen Prozeduren rund 150 Zeilen Code, die man im aktuellen Zustand für jedes Datums-Textfeld erneut anlegen und anpassen müsste. Da es vorkommen kann, dass eine Anwendung viele Textfelder enthält, die alle mit dieser Funktion ausgestattet werden sollen, wäre das erstens eine Menge Arbeit und es würde eine Menge redundanter Code entstehen.<\/p>\n Daher haben wir uns entschlossen, die gesamte Funktionalität so in ein Klassenmodul zu übertragen, dass für die Verwendung nur noch wenige Zeilen Code notwendig sind.<\/p>\n Den Code der Lösung haben wir in eine neue Klasse namens clsDateBox <\/b>übertragen. Diese haben wir um zwei privat deklarierte Variablen erweitert:<\/p>\n Die erste Variable namens m_txt <\/b>soll einen Verweis auf das Datums-Textfeld aufnehmen und ist mit dem Schlüsselwort WithEvents <\/b>deklariert, damit wir für diese Variable Ereignisse innerhalb des Klassenmoduls definieren können.<\/p>\n Die zweite heißt m_ActivateTabEnter <\/b>und liefert noch eine zusätzliche Funktion, die wir erst im Rahmen dieses Beitrags hinzugefügt haben: Wir können noch eine Eigenschaft namens ActivateTabEnter <\/b>auf True <\/b>einstellen.<\/p>\n Dies bewirkt, dass bei Betätigung der Tab<\/b>– oder der Enter<\/b>-Taste innerhalb des Datums-Textfeldes der Fokus nicht auf das nächste Steuerelement verschoben wird (oder bei gleichzeitigem Drücken der Umschalt<\/b>-Taste auf das vorherige), sondern die Markierung im Datums-Textfeld von einem Datumselement zum nächsten bewegt wird.<\/p>\n Damit wir einen Verweis auf das mit der Funktion auszustattende Textfeld übergeben können, haben wir in der Klasse die folgende Property Set<\/b>-Methode hinterlegt:<\/p>\n Diese weist zunächst den mit txt <\/b>übergebenen Verweis auf das Datums-Textfeld der Variablen m_Txt <\/b>zu.<\/p>\n Danach stellen wir per VBA jeweils die Ereigniseigenschaften Bei Fokuserhalt<\/b>, Bei Taste ab <\/b>und Bei Maustaste auf <\/b>auf die Eigenschaft [Ereignisprozedur] <\/b>ein.<\/p>\n Wenn wir nun die entsprechenden Ereignisprozeduren im Klassenmodul festlegen, werden diese genauso ausgeführt wie Ereignisprozeduren, die wir im Klassenmodul des Formulars hinterlegt haben.<\/p>\n Allerdings unterscheidet sich der Weg zum Anlegen der Ereignisprozeduren für eine mit dem Schlüsselwort WithEvents<\/b> deklarierte Variable von dem im Formular.<\/p>\n Hier können wir die Ereignisprozedur nicht durch Auswahl von [Ereignisprozedur] <\/b>im Eigenschaftenblatt und anschließendes Anklicken der Schaltfläche mit den drei Punkten erstellen, sondern wir müssen diese über den VBA-Editor hinzufügen.<\/p>\n Dazu wählen wir im Codefenster im linken Auswahlfeld den Namen der mit WithEvents <\/b>deklarierten Objektvariablen aus und im rechten das gewünschte Ereignis (siehe Bild 2).<\/p>\n Bild 2: Hinzufügen von Ereignissen für benutzerdefinierte Objekte<\/span><\/b><\/p>\n Im linken Auswahlfeld erscheinen übrigens nur solche Objekte, die mit dem Schlüsselwort WithEvents <\/b>deklariert wurden, oder, im Falle von Formular- oder Berichtsklassenmodulen, die Objekte für das Formular oder den Bericht und die enthaltenen Steuerelemente.<\/p>\n Bevor wir uns den angepassten Code der Klasse anschauen, zeigen wir noch, wie man die Klasse produktiv einsetzen kann.<\/p>\n Dazu benötigen wir lediglich ein paar Zeilen Code in der Prozedur Form_Load <\/b>des Klassenmoduls des Formulars und eine modulweit deklarierte Variable des Typs clsDatebox<\/b>:<\/p>\n Das Form_Load<\/b>-Ereignis ergänzen wir um die folgenden Anweisungen:<\/p>\n Die Prozedur initialisiert ein neues Objekt auf Basis der Klasse clsDatebox <\/b>und weist dieser das mit der Funktion auszustattende Datums-Textfeld zu.<\/p>\n Außerdem können wir die Eigenschaft ActivateTabEnter <\/b>auf True <\/b>einstellen. Dies sorgt dafür, dass beim Betätigen der Tab<\/b>– oder der Enter<\/b>-Taste innerhalb des Datums-Textfeldes nicht direkt das Feld verlassen wird, sondern dass je nach Position zunächst der nächste Datumsbestandteil markiert wird.<\/p>\n In der Version der Lösung aus dem Beitrag Datum schnell per Tastatur einstellen <\/b>(www.access-im-unternehmen.de\/1590<\/b>) haben wir den Code speziell für ein bestimmtes Datums-Textfeld programmiert, daher referenzieren wir dort an vielen Stellen dieses Steuerelement.<\/p>\n Das fällt in der Klasse weg, da wir dort die Variable m_txt <\/b>zum Referenzieren dieses Steuerelements vorgesehen haben, die über die entsprechende Eigenschaft gefüllt wird.<\/p>\n Also müssen wir auch im Code der Klasse, den wir zunächst vollständig aus dem obigen Beispiel entnommen haben, die Referenzen ändern.<\/p>\n Die Prozedur, die beim Fokuserhalt des Datums-Textfeldes ausgelöst wird, ersetzen wir durch die folgende:<\/p>\n Die Prozedur txtAktivieren <\/b>benennen wir entsprechend um und übergeben auch nicht mehr das Textfeld, da dieses bereits in m_txt <\/b>gespeichert ist:<\/p>\n Auch in GetCurrentDatePart <\/b>können wir den Parameter für die zu untersuchende Textbox weglassen und nutzen einfach folgenden Code:<\/p>\n Die KeyDown<\/b>-Ereignisprozedur legen wir nun ebenfalls für m_txt <\/b>an und greifen darin immer auf diese Variable zu. Da sich der Code nicht mehr im Klassenmodul befindet, können wir das Neuzeichnen des Formulars nicht mehr mit Me.Painting = False <\/b>deaktivieren, also holen wir uns den Formularverweis mit m_txt.Parent<\/b>.<\/p>\n In dem Teil der Select Case<\/b>-Bedingung, in dem wir auf das Drücken der Tab<\/b>– und der Enter<\/b>-Taste reagieren, prüfen wir dieses Mal, ob die Variable m_ActivateTabEnter <\/b>den Wert True <\/b>aufweist.<\/p>\n Wir springen dann je nach dem aktuell markierten Teil des Datums zum nächsten Teil oder, wenn gleichzeitig die Shift<\/b>-Taste gedrückt wurde, zum vorherigen Teil des Datums:<\/p>\n Schließlich aktivieren wir das Neuzeichnen des Formulars wieder und beenden die Prozedur:<\/p>\n In den Funktionen GetPreviousDay<\/b>, GetNextDay<\/b>, GetPreviousMonth <\/b>und GetNextMonth <\/b>greifen wir direkt auf das mit m_txt <\/b>referenzierte Steuerelement zu statt auf ein bestimmtes Steuerelement – hier am Beispiel von GetPreviousDay<\/b>:<\/p>\n Zum Selektieren des aktiven Datumsteils nutzen wir ebenfalls den Bezug auf m_txt<\/b>:<\/p>\n Schließlich fehlt noch das Ereignis MouseUp<\/b>, das wir auch für m_txt <\/b>definieren:<\/p>\n Wir können nicht nur ein Datums-Textfeld pro Formular mit den Funktionen dieser Klasse ausstatten, sondern beliebig viele. Dazu brauchen wir lediglich für alle betroffenen Textfelder die Anweisungen in der Ereignisprozedur Form_Load <\/b>anzulegen und jeweils eine Objektvariable im allgemeinen Teil des Klassenmoduls des Formulars.<\/p>\n Angenommen, wir wollen ein Formular zur Verwaltung von Mitgliedern nutzen, das die drei Datums-Textfelder txtGeburtsdatum<\/b>, txtEintrittsdatum <\/b>und txtAustrittsdatum <\/b>verwendet (siehe Bild 3).<\/p>\n Bild 3: Mehrere Datumsfelder in einem Formular<\/span><\/b><\/p>\n Dann fügen wir dem Klassenmodul des Formulars den folgenden Code hinzu:<\/p>\n Somit erhalten alle drei Datums-Textfelder die Funktion zum Einstellen des Datums über die Cursor-Tasten.<\/p>\n Die Klasse clsDatebox <\/b>funktioniert sogar in der Datenblattansicht, ohne dass eine Änderung am Code notwendig ist (siehe Bild 4).<\/p>\nErstellen der Klasse<\/h2>\n
Private <\/span>WithEvents m_txt As <\/span>TextBox\r\nPrivate <\/span>m_ActivateTabEnter As Boolean<\/span><\/pre>\nPublic Property Set<\/span> <\/span>Datebox(txt As <\/span>TextBox)\r\n Set<\/span> m_txt = txt\r\n With<\/span> m_txt\r\n .OnGotFocus = \"[Event Procedure]\"\r\n .OnKeyDown = \"[Event Procedure]\"\r\n .OnMouseUp = \"[Event Procedure]\"\r\n End With<\/span>\r\nEnd Property<\/span><\/pre>\n![\"Hinzufügen](\"..\/fileadmin\/_temp_\/2026_02\/pic_1591_003.png\")
<\/p>\nDateBox zu einem Formular zuweisen<\/h2>\n
Dim <\/span>objDatebox As <\/span>clsDatebox<\/pre>\nPrivate Sub <\/span>Form_Load()\r\n Set<\/span> objDatebox = New<\/span> clsDatebox\r\n With<\/span> objDatebox\r\n Set<\/span> .Datebox = Me.txtGeburtsdatum\r\n .ActivateTabEnter = True<\/span>\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\nProgrammierung der Klasse<\/h2>\n
Private Sub <\/span>m_txt_GotFocus()\r\n Call<\/span> m_txtAktivieren\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>m_txtAktivieren(Optional<\/span> intDatePart As <\/span>_\r\n eDatePart)\r\n If <\/span>IsNull(m_txt) Then<\/span>\r\n m_txt.Value = Date\r\n End If<\/span>\r\n Call<\/span> SelectDatePart(intDatePart)\r\nEnd Sub<\/span><\/pre>\nPrivate Function <\/span>GetCurrentDatePart() As <\/span>eDatePart\r\n Dim <\/span>lngSelStart As Long<\/span>\r\n Dim <\/span>intCurrentDatePart As <\/span>eDatePart\r\n \r\n lngSelStart = m_txt.SelStart\r\n ... \r\nEnd Function<\/span><\/pre>\nPrivate Sub <\/span>m_txt_KeyDown(KeyCode As Integer<\/span>, _\r\n Shift As Integer<\/span>)\r\n ... \r\n m_txt.Parent.Painting = False<\/span>\r\n \r\n lngDay = Day(m_txt.Value)\r\n lngMonth = Month(m_txt.Value)\r\n lngYear = Year(m_txt.Value)\r\n \r\n intCurrentDatePart = GetCurrentDatePart()<\/pre>\nSelect Case KeyCode\r\n ...\r\n Case <\/span>vbKeyTab, vbKeyReturn\r\n If <\/span>m_ActivateTabEnter = True<\/span> Then<\/span>\r\n If <\/span>Shift = acShiftMask Then<\/span>\r\n If <\/span>GetCurrentDatePart = datepartyear Then<\/span>\r\n SelectDatePart datepartmonth\r\n KeyCode = 0\r\n Else<\/span>If GetCurrentDatePart = datepartmonth Then\r\n SelectDatePart datepartday\r\n KeyCode = 0\r\n End If<\/span>\r\n Else<\/span>\r\n If <\/span>GetCurrentDatePart = datepartday Then<\/span>\r\n SelectDatePart datepartmonth\r\n KeyCode = 0\r\n Else<\/span>If GetCurrentDatePart = datepartmonth Then\r\n SelectDatePart datepartyear\r\n KeyCode = 0\r\n End If<\/span>\r\n End If<\/span>\r\n End If<\/span><\/pre>\n m_txt.Parent.Painting = True<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Function <\/span>GetPreviousDay(lngDay As Long<\/span>) As Long<\/span>\r\n Dim <\/span>dat As Date<\/span>\r\n dat = m_txt.Value\r\n If <\/span>lngDay = 1 Then<\/span>\r\n lngDay = Day(DateAdd(\"m\", 1, dat) - 1)\r\n Else<\/span>\r\n lngDay = lngDay - 1\r\n End If<\/span>\r\n GetPreviousDay = lngDay\r\nEnd Function<\/span><\/pre>\nPrivate Sub <\/span>SelectDatePart(intCurrentDatePart As <\/span>eDatePart)\r\n Select Case intCurrentDatePart\r\n Case <\/span>datepartday\r\n m_txt.SelStart = 0\r\n m_txt.SelLength = 2\r\n Case <\/span>datepartmonth\r\n m_txt.SelStart = 3\r\n m_txt.SelLength = 2\r\n Case <\/span>datepartyear\r\n m_txt.SelStart = 6\r\n m_txt.SelLength = 4\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>m_txt_MouseUp(Button As Integer<\/span>, _\r\n Shift As Integer<\/span>, X As Single<\/span>, Y As Single<\/span>)\r\n Dim <\/span>intCurrentDatePart As <\/span>eDatePart\r\n intCurrentDatePart = GetCurrentDatePart()\r\n Call<\/span> m_txtAktivieren(intCurrentDatePart)\r\nEnd Sub<\/span><\/pre>\nWeitere Einsatzmöglichkeiten für die Klasse clsDatebox<\/h2>\n
![\"Mehrere](\"..\/fileadmin\/_temp_\/2026_02\/pic_1591_004.png\")
<\/p>\nDim <\/span>objDateboxGeburtsdatum As <\/span>clsDatebox\r\nDim <\/span>objDateboxEintrittsdatum As <\/span>clsDatebox\r\nDim <\/span>objDateboxAustrittsdatum As <\/span>clsDatebox\r\nPrivate Sub <\/span>Form_Load()\r\n Set<\/span> objDateboxGeburtsdatum = New<\/span> clsDatebox\r\n With<\/span> objDateboxGeburtsdatum\r\n Set<\/span> .Datebox = Me.txtGeburtsdatum\r\n .ActivateTabEnter = True<\/span>\r\n End With<\/span>\r\n Set<\/span> objDateboxEintrittsdatum = New<\/span> clsDatebox\r\n With<\/span> objDateboxEintrittsdatum\r\n Set<\/span> .Datebox = Me.txtEintrittsdatum\r\n .ActivateTabEnter = True<\/span>\r\n End With<\/span>\r\n Set<\/span> objDateboxAustrittsdatum = New<\/span> clsDatebox\r\n With<\/span> objDateboxAustrittsdatum\r\n Set<\/span> .Datebox = Me.txtAustrittsdatum\r\n .ActivateTabEnter = True<\/span>\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"clsDateBox-Klasse](\"..\/fileadmin\/_temp_\/2026_02\/pic_1591_005.png\")
<\/p>\n