Office: (Office 2013) Userform mit Datumsauswahl

Hallo zusammen ,
ich habe eine relativ einfachen Userform erstellt . Es funktioniert auch alles soweit.
Da ich mehrmals am Tag was abfragen muss und jedesmal das Datum dazu ändern muss habe ich ein Userform mit integriert wo ein Minikalender erscheint und ich das Datum nur anklicken brauche .
Erstmal ein riesen Dankeschön an Hajo das du sowas zu Verfügung stellst.....
Ich kriege es nur nicht hin wenn ich ein Datum anklicke das mir dies in die Textbox 17 übertragen wird .
Es wird mir immer der Fehler Variable nicht definiert angezeigt ,
hier der Code wo der Fehler ensteht :

Private Sub Label_Click()
If Month(Label.Tag) = Month(DaDatumKa) Then
' Tag in Zelle
Übersicht.Controls(myTag).Text = CDate(Label.Tag)
Unload frm_Kalender ' UserForm schliessen
Else
Erstellen Label.Tag ' ausgewählten Monat anzeigen
End If
End Sub

Ich bin den ganzen Tag schon am rumprobieren nur das ist echt eine Nummer zu hoch für mich und ich hoffe ihr könnt mir nochmals helfen .

Danke

:)

 

moin

tausche:

Code:

gegen:

Code:

MfG Tom

 

Moin!
Vorab: Folgendes ist nicht wertend gemeint.
Ich werde niemals verstehen, warum man ein einzutragendes Datum mittels grafischer Oberfläche zu realisieren versucht.
(und da es das Control schon lange nicht mehr gibt, behilft man sich der Klassenprogrammierung)
Spätestens, wenn man dann ein Datum aus Februar braucht, klickt man wie wild


Ich mache dies so:
In eine Textbox gebe ich ein Datum des laufenden Jahres (mittels Ziffernblock) wie folgt ein:
T-M oder T/M
Das Jahr hänge ich (bei Bedarf!) dann noch dran
T-M-J oder T/M/J
(genau so verfahre ich übrigens auch in einer Excel-Zelle)

Bei Verlassen der Textbox prüfe ich:

Eingabe von 3-5 ergibt dann den 03.05.2019
3-5-7 ergibt den 03.05.2007
Die "Einarbeitung" in diese Arbeitsweise erfordert ein paar Sekunden, die dann im Produktivbetrieb Stunden einspart!
Gut, ist nicht so "schön"


Two Cents
Ralf

 

Na ja, in Visual Studio hat man die Controls MonthCalendar und DateTimePicker und in vielen Situationen ist es IMHO hilfreich.

Wenn ich exakt weiß, welches Datum ich erfassen will, dann braucht man es nicht, aber wenn ich z.B. Zeiträume über Datum abgrenzen will oder das Datum vom nächsten Montag benötige oder ....

Also, ganz so rigoros würde ich es nicht "verdammen".

 

moin

ich nutze in meinen Programmen auch häufig einen Kalender
aber höchstens um nach einem Tag zu schauen
um ein Datum in eine TextBox zu schreiben nehme ich aber lieber diesen Code

Code:

MfG Tom

 

Ich habe da so einen Kalender im Büro hängen, so richtig aus Papier, Drei-Monats-Blatt … *biggrin.gif*
Aber Du hast natürlich Recht, manchmal macht dieses Control durchaus Sinn.

@Tom:
Finde ich persönlich nicht so gut.
Schließlich zwingt Dein Code zur Datumseingabe mit führender Null.
Außerdem muss man zwingend das Jahr eingeben, denn 03.05. ist für VBA kein gültiges Datum.

 

Danke habt mir sehr geholfen