Problem mit Datumeingabe
03.09.2003 08:50:38
Chris
habe mal wieder ein kleines Problem, bei dem Ihr mir aber sicher weiterhelfen könnt!
Ich habe drei ComboBoxen:
ComboBox1 (Tag)
ComboBox2 (Monat)
ComboBox3 (Jahr)
Ich möchte in diese ComboBoxen automatisch den aktuellen Tag einschreiben lassen!
Doch bei der Ausführung meines Makros kommt immer ein Fehler:
-Laufzeitfehler 380: Eigenschaft Value konnte nicht gesetzt werden. Ungültiger
Eigenschaftenwert.
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 31
ComboBox1.AddItem Format(i, "00") --> WENN ICH DAS HIER RAUSSCHMEISSE, DANN
FUNKTIONIERT ES, ABER ICH HÄTTE KEIN
WAHL SPÄTER NACHTRÄGLICH AUSZUWÄHLEN!!
Next
Me.ComboBox1 = Day(Date)--> HIER KOMMT DER FEHLER!!
Me.ComboBox2 = Format(Date, "MMMM")
Me.ComboBox3 = Year(Date)
ComboBox2.AddItem "Januar"
ComboBox2.AddItem "Februar"
ComboBox2.AddItem "März"
ComboBox2.AddItem "April"
ComboBox2.AddItem "Mai"
ComboBox2.AddItem "Juni"
ComboBox2.AddItem "Juli"
ComboBox2.AddItem "August"
ComboBox2.AddItem "September"
ComboBox2.AddItem "Oktober"
ComboBox2.AddItem "November"
ComboBox2.AddItem "Dezember"
Dim j As Integer
For j = 2002 To 2050
ComboBox3.AddItem (j)
Next
End Sub
Private Sub cmdOK_Click()
Dim datum As Date
datum = DateSerial(CInt(ComboBox3), ComboBox2.ListIndex + 1, CInt(ComboBox1))
If datum > Date Then
ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""
MsgBox "Auftragsdatum liegt in der Zukunft"
ComboBox1.SetFocus
Exit Sub
End If
End Sub
Wäre klasse, wenn mir jemand eine Lösung hätte!
LG Chris
Anzeige