Microsoft Excel

Herbers Excel/VBA-Archiv

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

Problem mit Datumeingabe

    Betrifft: Problem mit Datumeingabe von: Chris
    Geschrieben am: 03.09.2003 08:50:38

    Guten Morgen,

    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
      


    Betrifft: AW: Problem mit Datumeingabe...geht doch von: Daniel
    Geschrieben am: 03.09.2003 09:01:53

    Hi,
    habe es mal getestet. Es funktioniert einwandfrei. Ich habe nur vor deine Kommentare ein' gesetzt, dann geht es ohne Fehler...

    mfg Daniel


     

    Beiträge aus den Excel-Beispielen zum Thema " Problem mit Datumeingabe"