Kalenderdatum in Textbox

Computer: Software & Programmierung Office Software
1

Hi zusammen, habe mal eine Frage. In der anliegenden Tabelle habe ich in der Userform einen Kalender über die Steuererlemente eingebaut. Über dem Kalender ist eine Textbox. Ist es möglich, dass wenn ich im Kalender auf ein Datum klicke, dass dieses Datum in die Textbox übernommen wird? Hat einer eine Idee? Gruss

http://www.file-upload.net/download-3579347/QS-2.0.x…

2

Hi, also bin mir eigentlich sicher. Hier ist nochmal der Link

http://www.file-upload.net/download-3579463/QS-2.0.x…

Wenn man die Datei öffnet und die Userform aufruft (oben rechts ist ein kleines Bild mit gelben Feldern zum aufrufen der Userform),
dann gibt es ja ein Textfeld mit „Datum der QS“ und darunter einen Kalender. Dort wollte ich auf einen Tag im Kalender klicken und dass dann das Datum in das Feld „Datum der QS“ übernommen wird.

Ich hoffe, du/ihr könnt die Datei nun öffnen :wink:

3

wenn du dir sicher bist (und nciht nochmal downloadest um nachzugugen) ,
dann brauch ich dir ja auch nicht helfen gell

so sieht es auch …
http://legioneuropa.le.ohost.de/test/kalender.jpg

das neue ding brauch ich mir ja nicht nochmal angugen, du bist dir ja sicher. also ist es immernoch nicht da

4

http://www.file-upload.net/download-3579463/QS-2.0.x…
dann gibt es ja ein Textfeld mit „Datum der QS“ und darunter
einen Kalender. Dort wollte ich auf einen Tag im Kalender
klicken und dass dann das Datum in das Feld „Datum der QS“
übernommen wird.
Ich hoffe, du/ihr könnt die Datei nun öffnen :wink:

Hallo kolri,

öffnen schon aber es kommt eine Fehlermeldung daß ein Objekt in der Form nicht dargestellt werden kann weil dazu auf meinem Rechner etwas fehlt. Ich habe XL 2007 H&S. hast du XL 2010?

Wie auch immer, ohne Wissen gehe ich mal davon aus dein kalender könnte ein Value haben und ein Kalender_Change ereignis, in das müßstet du nur den Einzeiler schreiben daß Value in die Textbox geschrieben wird *denk*

Gruß
Reinhard

5

Hi Reinhard!

öffnen schon aber es kommt eine Fehlermeldung daß ein Objekt
in der Form nicht dargestellt werden kann weil dazu auf meinem
Rechner etwas fehlt. Ich habe XL 2007 H&S. hast du XL 2010?

Also ich arbeite mit XP und auch mit XL 2007. Hmmm keine Ahnung was das für ne Meldung sein soll :frowning:

Wie auch immer, ohne Wissen gehe ich mal davon aus dein
kalender könnte ein Value haben und ein Kalender_Change
ereignis, in das müßstet du nur den Einzeiler schreiben daß
Value in die Textbox geschrieben wird *denk*

Also ich habe mal folgendes gemacht:

Private Sub MonthView1\_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 Range("A30") = MonthView1.Value
End Sub

So klappt es, dass er das Datum dann in die Zelle A30 der Tabelle einfügt. Aber was muss ich im Code eingeben, dass er das nicht in A30 schreibt, sondern in der selben Userform in das Textfeld mit dem Namen „txtdate“?

Hast du eine Idee??? :smile:

Danke erstmal

6

Hi, also sollte nicht so rüber kommen… hatte natürlich versucht die Datei bei mir herunterzuladen und das hat auch problemlos geklappt und der zweite Link den ich hochgeladen hatte, hatte ich auch nochmal neu hochgeladen.

Ich glaube es liegt an dem Steuerelement. Hatte den Kalender im VBA unter weitere Steuerelemente hinzugefügt. Ich glaube, deshalb wird dieser nicht angezeigt.

Sorry…

7

Hallo Kolri,

öffnen schon aber es kommt eine Fehlermeldung daß ein Objekt
in der Form nicht dargestellt werden kann weil dazu auf meinem
Rechner etwas fehlt. Ich habe XL 2007 H&S. hast du XL 2010?

Also ich arbeite mit XP und auch mit XL 2007. Hmmm keine
Ahnung was das für ne Meldung sein soll :frowning:

okay, ich könnte ein Bild der meldung machen und hier zeigen aber das wird nix helfen, da steht nur drin was ich sagte.
Im Editor habe ich unter Verweisen geschaut, da steht nirgends „Nicht vorhanden“.
In dem Punkt bin ich also überfragt.

Private Sub MonthView1_Exit(ByVal Cancel As
MSForms.ReturnBoolean)
Range(„A30“) = MonthView1.Value
End Sub

So klappt es,

Wieso Exit und nicht Change?

dass er das Datum dann in die Zelle A30 der
Tabelle einfügt. Aber was muss ich im Code eingeben, dass er
das nicht in A30 schreibt, sondern in der selben Userform in
das Textfeld mit dem Namen „txtdate“?
Hast du eine Idee??? :smile:

Ja :smile:, txtdate.text=MonthView1.Value

Gruß
Reinhard

8

hallo Kolri,

Ich glaube es liegt an dem Steuerelement. Hatte den Kalender
im VBA unter weitere Steuerelemente hinzugefügt. Ich glaube,
deshalb wird dieser nicht angezeigt.

sag bitte mal die exakte Bezeichnung deines Kalenderelementes.

Sorry…

? Für was?

Gruß
Reinhard

9

Wieso Exit und nicht Change?

Hi keine Ahnung warum Exit und nicht Change :smile: Kenne mich doch net aus :wink: Habe das im Netz gefunden. Wenn ich nun folgenden Code eingebe, dann klappt es fast so wie ich es brauche:

Private Sub MonthView1\_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 txtdate.Text = MonthView1.Value
End Sub

Wenn ich oben anstatt Exit - Change eintrage, dann klappt es nicht, daher habe ich es bei Change gelassen.

Wofür steht das Change? Vielleicht ist es ja schon die Lösung für mein nächstes Problem :smile: Denn wenn ich nun im Kalender ein Datum anklicke, dann übernimmt er das in die Textbox erst, wenn ich in ein anderes Feld in der Userform klicke, also nicht sofort. Meintest du vielleicht deshalb, dass ich Change einsetzen muss? Oder bin ich (wieder mal) auf dem falschen Weg? :=)

Ja :smile:, txtdate.text=MonthView1.Value

Gruß
Reinhard

10

Hi also, der exakte Name lautet:

Microsoft MonthView Control 6.0 (SP6)

Sorry dafür, dass ich vielleicht mit zu wenig wissen, zuviel möchte :wink:

Ich danke Dir!

11

Hallo Kolri,

Wieso Exit und nicht Change?

Hi keine Ahnung warum Exit und nicht Change :smile: Kenne mich doch
net aus :wink: Habe das im Netz gefunden. Wenn ich nun folgenden
Code eingebe, dann klappt es fast so wie ich es brauche:

im Editor siehst du den Code vom Modul der UF.
Obendrüber siehst du zwei Auswahlfelder, wähle da im linken „MonthView1“.
Dann kannst du rechts die Ereignisse für Monthview auswählen/ansehen.
Kein Change dabei?

Wenn doch draufklicken dann hast du den Coderumpf dastehen.

Wenn ich oben anstatt Exit - Change eintrage, dann klappt es
nicht, daher habe ich es bei Change gelassen.

Logisch +grins* sag ich nix zu *immer noch grins*

Wofür steht das Change?

Das ist das „Ereignis“ wenn du auf den 4 März oder den 8 März klickst.
Das ändert Value des kalenders.

Vielleicht ist es ja schon die Lösung
für mein nächstes Problem :smile: Denn wenn ich nun im Kalender ein
Datum anklicke, dann übernimmt er das in die Textbox erst,
wenn ich in ein anderes Feld in der Userform klicke, also
nicht sofort.

Korrekt, erst dann ist „Exit“ erfüllt.

Meintest du vielleicht deshalb, dass ich Change
einsetzen muss?

Ja.

Gruß
Reinhard

12

Microsoft MonthView Control 6.0 (SP6)

Hallo kolri,

okay, den habe ich auch.
Der hat kein Change, macht aber nix, wie im anderen Posting gezeigt wie das geht nimm halt Click oder DateClick.

Gruß
Reinhard

13

Hey Super. Hat alles geklappt mit DateClick. Ich danke Dir mal wieder für die Super Hilfe.

Danke