Userform --> Userform2 = Kalendersteuerelement

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Userform --> Userform2 = Kalendersteuerelement
von: Silvio G.
Geschrieben am: 14.07.2002 - 16:48:37

Eine Userform mit dem Namen: "dlgAbbuchungNew"
besitzt u.a. ein Texfeld mit dem Namen: "txtDatum"

Wenn die Userform aufgerufen ist und der Benutzer in das Textfeld ("txtDatum") klickt soll folgendes möglich sein:

Problem:
01. Rufe eine weitere Userform auf, diese Userform beinhaltet
das Kalendersteuerelement -
02. Das ausgewählte Datum aus dem Kalendersteuerelement soll
anschließend in das Textfeld ("txtDatum") der
Userform "dlgAbbuchungNew" eingetragen werden...
03. Schließe die Userform mit dem Kalendersteuerelement

Vielen Dank für eure Hilfe im Voraus

nach oben   nach unten

Re: Userform --> Userform2 = Kalendersteuerelement
von: MRR
Geschrieben am: 14.07.2002 - 17:22:32

Hmmm, wenn Du eine globale (Datums-)Variable anlegst, die 2. Userform aufrufst, das gewählte Datum in der globalen Var. speicherst, die 2. UF schliesst und wieder zurück in der 1. bist - dann solltest Du eigentlich den Inhalt der Variablen problemlos einem Textfeld zuweisen können.
Oder sehe ich das was total falsch?
Matthias

nach oben   nach unten

Re: Userform --> Userform2 = Kalendersteuerelement
von: Ramses
Geschrieben am: 14.07.2002 - 17:22:56

Hallo,

das setzt voraus dass das Kalendersteuerelement installiert ist und eine Userform mit diesem Element erstellt wurde.
In diesem Beispiel heisst sie ufKalender.

Private Sub Textbox1_Enter()
ufKalender.Show
End Sub

In der Userform muss ein Button sein der die Daten übergibt.
Er heisst cmdOKButton.

Private Sub cmdOKButton_Click()
dlgAbbuchungNew.txtDatum = Me.Calender.Value
Unload Me
End Sub

Das ist zwar nicht getestet,.. sollte aber tun :-)

Gruss Rainer

nach oben   nach unten

Userform --> Userform2 = Danke!
von: Silvio G.
Geschrieben am: 14.07.2002 - 17:45:24

Du hast mir sehr geholfen...
Anfangs gabs Probleme mit dem Aufruf

Private Sub Textbox1_Enter()
ufKalender.Show
End Sub

Das hab ich nun mit einer Schaltfläche verbunden...
also
Private Sub cmdKalender_Click()
ufKalender.Show
End Sub


Dann war noch der Aufruf:
dlgAbbuchungNew.txtDatum = Me.Calender.Value
irgendwie nicht funktionsfähig...
aber als ich dann folgendes ausprobierte:
dlgAbbuchungNew.txtDatum = Calendar1

funktionierte alles so wie ich mir das vorstellte...

Also vielen Dank an dich - du hast mir sehr geholfen!
Bye Silvio G.

nach oben   nach unten

Re: Userform --> Userform2 = Danke
von: Silvio G.
Geschrieben am: 14.07.2002 - 17:49:25

Erstmal vielen Dank auch für deine Hilfe...
Leider habe ich deine Hilfe nicht verstehen können.
Macht aber auch nix - da mein Problem gelöst wurde.
Also nochmal vielen Dank auch für deine Hilfe!
Silvio

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Userform --> Userform2 = Kalendersteuerelement"