Office: (Office 2010) Hajo´s Userform Kalendar

Hallo zusammen

Ich habe mir Hajo´s Userform 19 (Kalender runtergeldaen)

Es funktioniert super. Mit einem kleinen Manko er trägt es in der Aktiven Zelle.

Ich starte den Kalender über meine Userform mit doppel Klick auf dem Textfeld. Es öffnet sich der Kalendar -> wähle Datum aus und er schreibt es in die Zelle. Ich möchte aber das es in das Textfeld wo ich doppelklick gemacht habe einfügt.

Wie müsste denn dann folgende Code dazu aussehen?
Code:

Danke schonmal

Gruß Skyjazz

:)

 

es reicht wenn Du eine Mail schreibst.
für
ActiveCell = CDate(Label.Tag) ' Tag in Zelle
schreibe

 

Hab es teilweise

Habe jetzt
Code:

Nun nochmal die Frage geht es auch das das Datum eingetragen wird wo gerade der Cursor enthalten ist. Also quasi Statt ActiveCell Active Textbox.


Gibt es dazu eine Option.

Gruß Skyjazz

 

meiner UserForm enthält keine TextBox und damit ist dort keine aktiv.
Ja falls die aufrufende gemeint ist. Das ist aber sehr aufwendig. Habe ich noch nicht umgesetzt und werde es auch nicht.

 

bei Aufruf
Private Sub txt_Datum1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Frm_Kalender.Lbl_Datum.Tag = ActiveControl.Name
Frm_Kalender.Show
End Sub

in Frm_kalender Klasse
frm_Datum.Controls(Frm_Kalender.Lbl_Datum.Tag) = Date

 

noch ein Fehler
frm_Datum.Controls(Frm_Kalender.Lbl_Datum.Tag) = Label.Tag

 

da Du nun schon der zweite bist der so was haben will, habe ich das Beispiel doch geändert, eine neue Version wird in der nächsten Stunde hochgeladen.

 

Morgen Hajo.

Hab Userform 34 gefunden danke.

Ich probier mal das einzubinden. Wenn was schief läuft melde ich mich nochmal

Gruß Skyjazz

 

Hallo zusammen

Habe es versucht anzupassen.

erstens statt frm_Datum habe ich userform1 eingetragen.

Code:

Kommt aber der Fehler Objekt oder Methode nicht unterstützt. Steht frm_Datum drin funktioniert es.

in der textbox ist enthalten

Code:

Kann mir jemand helfen

Gruß Skyjazz

 

ich kann nicht helfen, da ich die Datei nicht sehe.

 

Moin

Kann ich dir die Datei auf einen anderen Wege zur Verfügung stellen?

Sie ist 10 MB groß und daher kann ich sie hier immer schlecht posten.

Gruß Skyjazz

 

also reduziere es doch auf das relevante, es geht doch nur um 2 UserFormen.
Meine Mailkonten sind nur für 4 MB

 

man muss nicht alles beschreiben, wir sehe es ja ohne Datei das die TextBox in einem Frame ist.
Private Sub TextBox36_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
frm_Kalender.Lbl_Datum.tag = Frame1.ActiveControl.Name
frm_Kalender.Show
End Sub

 

Hi Hajo

oh mann. Das ich da Frames drum habe, habe ich total vergessen. Wusste aber auch nicht das es wichtig ist.

Jetzt funktioniert es

Danke dir hajo

Gruß Skyjazz