Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Auswahl CalendarBox in Textbox

Betrifft: Auswahl CalendarBox in Textbox von: Frank68
Geschrieben am: 30.08.2006 16:22:17

Hallo,

ich rufe von einer möchte mittels calendar in einem UF eine Datumsauwahl in ein Label eingeben:

Private Sub Calendar1_Click()
Dim dat As Date
Calendar1.Value = dat
    With UF_Projekt_neu.Label14 'Das ist das UF, auf welchem Label14 platziert 
                                'ist
    .Caption = "Erfassung des Projekts am " & dat
    End With
End Sub


Nach dem Anklicken des neuen Datums zeigt Label14 allerdings 00:00:00 an. Was mach ich falsch?

Dank!


  


Betrifft: AW: Auswahl CalendarBox in Textbox von: Rene Holtz
Geschrieben am: 30.08.2006 16:33:00

Hallo!

Mit diesem Code geht's einfacher. Wenn notwendig, dann noch anpassen.
Private Sub Calendar1_Click()
Label14.Caption = "Erfassung des Projekts am " & Calendar1.Value
End Sub

Gruss Rene


  


Betrifft: AW: Auswahl CalendarBox in Textbox von: Frank68
Geschrieben am: 30.08.2006 16:40:07

Ja, hab´ich zwischenzeitlich auch probiert und klappt auch. Danke. Ich frage mich nur, warum es mit der Variable eben nicht klappt.


  


Betrifft: AW: Auswahl CalendarBox in Textbox von: Rene Holtz
Geschrieben am: 30.08.2006 16:42:25

Hallo!

Das liegt an deiner Deklaration. "Calendar1.Value" ist bereits vom Typ "Date". Warum also aus einem Datum ein Datum machen? Dadurch entstehen solche Fehler.

Gruss Rene


  


Betrifft: AW: Auswahl CalendarBox in Textbox von: Frank68
Geschrieben am: 30.08.2006 16:54:15

Darauf wäre ich nicht gekommen. Danke


 

Beiträge aus den Excel-Beispielen zum Thema "Auswahl CalendarBox in Textbox"