Befüllen der Comboboxen läuft schief

Hallo liebe Herber Community,

ich bins mal wieder ;D

Ich habe mir eine UF erstellt in der ich mit 3 Comboboxen (jeweils 1 für Tag, Monat und Jahr) das Datum eingeben und in eine Tabelle einfügen kann. Vielen Dank an der stelle an HaJo für den Code.

Nun wollte ich weitergehen und mir eine neue UF erstellen in der ich daten einer Tabelle lade, bearbeite und wieder in die Tabelle Speichere.
In dieser UF brauche ich allerdings 2x das Datum und somit 6 Comboboxen, die ersten Drei funktionieren einwandfrei, beim 2. Datum habe ich das Problem das ein Laufzeitfehler beim ändern des Monats auftritt (Laufzeitfehler 6, Überlauf).

Hier mal der gesamte Code aus der UF_Ferien

Private Sub UserForm_Initialize()

    ' Eigenschaft setzen damit der Code im Change

    ' der ComboBoxen bei Auswahl (z.B. ComboBox1.Value = ... )

    ' nicht ausgeführt wird

    CBvonTag.Tag = "1"

    Me.StartUpPosition = 1                          ' Startposition der Userform links oben

    ' Tage des aktuellen Monats in ComboBox1 eintragen

    For InI = 1 To Day(CDate("01." & Month(Date) + 1 & "." _

        & Year(Date)) - 1)

        CBvonTag.AddItem InI

    Next InI

    For InI = 1 To 12                               ' Monate als Wort in ComboBox2 eintragen

        CBvonMonat.AddItem Format(DateSerial(1900, InI, 1), _

            "MMMM")

    Next InI

    ' Jahre in Combobox3 eintragen

    For InI = 1900 To 2222

        CBvonJahr.AddItem InI

    Next InI

    

    CBvonTag.Value = Day(Date)                     ' Aktuelles Datum als Startwert setzen

    CBvonMonat.Value = Format(Date, "MMMM")

    CBvonJahr.Value = Year(Date)

    CBvonTag.ListRows = 31                         ' Länge der angezeiten Liste für Tag und Monat anpassen

    CBvonMonat.ListRows = 12

    CBvonTag.Tag = ""                              ' Eigenschaft zurücksetzen



    ' Eigenschaft setzen damit der Code im Change

    ' der ComboBoxen bei Auswahl (z.B. ComboBox1.Value = ... )

    ' nicht ausgeführt wird

    CBbisTag.Tag = "1"

    Me.StartUpPosition = 1                          ' Startposition der Userform links oben

    ' Tage des aktuellen Monats in ComboBox1 eintragen

    For InI = 1 To Day(CDate("01." & Month(Date) + 1 & "." _

        & Year(Date)) - 1)

        CBbisTag.AddItem InI

    Next InI

    For InI = 1 To 12                               ' Monate als Wort in ComboBox2 eintragen

        CBbisMonat.AddItem Format(DateSerial(1900, InI, 1), _

            "MMMM")

    Next InI

    ' Jahre in Combobox3 eintragen

    For InI = 1900 To 2222

        CBbisJahr.AddItem InI

    Next InI

    

    CBbisTag.Value = Day(Date)                     ' Aktuelles Datum als Startwert setzen

    CBbisMonat.Value = Format(Date, "MMMM")

    CBbisJahr.Value = Year(Date)

    CBbisTag.ListRows = 31                         ' Länge der angezeiten Liste für Tag und Monat anpassen

    CBbisMonat.ListRows = 12

    CBbisTag.Tag = ""                              ' Eigenschaft zurücksetzen



End Sub



Private Sub CBvonTag_Change()

    ' ausgewählte Zeile auf Variable schreiben

    If CBvonMonat.Tag = "" Then ByWert = CBvonTag.ListIndex

End Sub



Private Sub CBbisTag_Change()

    ' ausgewählte Zeile auf Variable schreiben

    If CBbisMonat.Tag = "" Then ByWert = CBbisTag.ListIndex

End Sub



Private Sub CBvonMonat_Change()

    If CBvonTag.Tag = "1" Then Exit Sub    ' Start der UserForm

    ' Eigenschaft setzen damit der Code im Change Ereignis der ComboBox1

    ' beim Auswahl (ComboBox1.ListIndex =... ) nicht ausgeführt wird

    CBvonMonat.Tag = 1

    ' ausgewählte Zeile in ComboBox1 merken,

    ' da ComboBox1 gelöscht geleert wird

    ByWert = CBvonTag.ListIndex

    CBvonTag.Clear                                 ' ComboBox1 leeren

    If CBvonMonat.ListIndex = 11 Then                ' Dezember gewählt

        For InI = 1 To 31

            CBvonTag.AddItem InI

        Next InI

    Else

        ' Ende Schleife 1. des Folgemonats -1,

        ' damit Monatsende vom ausgewählten Monat

        For InI = 1 To Day(CDate("01." _

            & CBvonMonat.ListIndex + 2 & "." & CBvonJahr) - 1)

            CBvonTag.AddItem InI

        Next InI

    End If

    ' ausgewählten Tag in ComboBox1 wieder anzeigen

    If ByWert > CBvonTag.ListCount - 1 Then

        ' falls ausgewählter Tag größer als Tage

        ' im ausgewählten Monat, wird der letzten Tag angezeigt

        CBvonTag.ListIndex = CBvonTag.ListCount - 1

    Else

        CBvonTag.ListIndex = ByWert

    End If

    CBvonMonat.Tag = ""                              ' Eigenschaft zurücksetzen

End Sub

Private Sub CBbisMonat_Change()

    If CBbisTag.Tag = "1" Then Exit Sub    ' Start der UserForm

    ' Eigenschaft setzen damit der Code im Change Ereignis der ComboBox1

    ' beim Auswahl (ComboBox1.ListIndex =... ) nicht ausgeführt wird

    CBvonMonat.Tag = 1

    ' ausgewählte Zeile in ComboBox1 merken,

    ' da ComboBox1 gelöscht geleert wird

    ByWert = CBbisTag.ListIndex

    CBbisTag.Clear                                 ' ComboBox1 leeren

    If CBbisMonat.ListIndex = 11 Then                ' Dezember gewählt

        For InI = 1 To 31

            CBbisTag.AddItem InI

        Next InI

    Else

        ' Ende Schleife 1. des Folgemonats -1,

        ' damit Monatsende vom ausgewählten Monat

        For InI = 1 To Day(CDate("01." _

            & CBbisMonat.ListIndex + 2 & "." & CBvonJahr) - 1)

            CBbisTag.AddItem InI

        Next InI

    End If

    ' ausgewählten Tag in ComboBox1 wieder anzeigen

    If ByWert > CBbisTag.ListCount - 1 Then

        ' falls ausgewählter Tag größer als Tage

        ' im ausgewählten Monat, wird der letzten Tag angezeigt

        CBbisTag.ListIndex = CBbisTag.ListCount - 1

    Else

        CBbisTag.ListIndex = ByWert

    End If

    CBbisMonat.Tag = ""                              ' Eigenschaft zurücksetzen

End Sub





Private Sub CBvonJahr_Change()

    If CBvonTag.Tag = "" Then

        ' Schleife verlassen, wenn Monat verschieden von Februar

        If CBvonMonat.ListIndex = 1 Then

            ' Eigenschaft setzen damit der Code im

            ' Change Ereignis der ComboBox1 beim Auswahl

            ' (ComboBox1.ListIndex =... ) nicht ausgeführt wird

            CBvonMonat.Tag = 1

            ' ausgewählte Zeile in ComboBox1 merken,

            ' da ComboBox1 gelöscht geleert wird

            ByWert = CBvonTag.ListIndex

            ' Tage entsprechend Jahr und Monat füllen

            CBvonTag.Clear

            For InI = 1 To Day(CDate("01.03." & CBvonJahr) - 1)

                CBvonTag.AddItem InI

            Next InI

            If ByWert > CBvonTag.ListCount - 1 Then

                ' falls ausgewählter Tag größer als Tage

                ' im ausgewählten Monat, wird der letzten Tag angezeigt

                CBvonTag.ListIndex = CBvonTag.ListCount - 1

            Else

                CBvonTag.ListIndex = ByWert

            End If

            CBvonMonat.Tag = ""                      ' Eigenschaft zurücksetzen

        End If

    End If

End Sub

Private Sub CBbisJahr_Change()

    If CBbisTag.Tag = "" Then

        ' Schleife verlassen, wenn Monat verschieden von Februar

        If CBbisMonat.ListIndex = 1 Then

            ' Eigenschaft setzen damit der Code im

            ' Change Ereignis der ComboBox1 beim Auswahl

            ' (ComboBox1.ListIndex =... ) nicht ausgeführt wird

            CBbisMonat.Tag = 1

            ' ausgewählte Zeile in ComboBox1 merken,

            ' da ComboBox1 gelöscht geleert wird

            ByWert = CBbisTag.ListIndex

            ' Tage entsprechend Jahr und Monat füllen

            CBbisTag.Clear

            For InI = 1 To Day(CDate("01.03." & CBbisJahr) - 1)

                CBbisTag.AddItem InI

            Next InI

            If ByWert > CBbisTag.ListCount - 1 Then

                ' falls ausgewählter Tag größer als Tage

                ' im ausgewählten Monat, wird der letzten Tag angezeigt

                CBbisTag.ListIndex = CBbisTag.ListCount - 1

            Else

                CBbisTag.ListIndex = ByWert

            End If

            CBbisMonat.Tag = ""                      ' Eigenschaft zurücksetzen

        End If

    End If

End Sub





'Private Sub btn_Eintragen_Click()

'

'With Tabelle4.ListObjects("tab_Termine").ListRows.Add

'    .Range(, 1) = CDate(ComboBox1 & "." & ComboBox2 & "." & ComboBox3)

'

'    '.Range(, 1).Value = txt_Datum.Value

'    .Range(, 2).Value = txt_Anlass.Value

'

'

'End With

'

'Unload Me

'

'End Sub

'

und natürlich die Tabelle zum besseren Verständnis
https://www.herber.de/bbs/user/167030.xlsm

wen es dann um das befüllen und Speichern geht melde ich mich bestimmt wieder.

Vielen Dank schonmal für die Hilfe

Viele Grüße
Lefty

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CBbisMonat_Change() If CBbisTag.Tag = "1" Then Exit Sub ' Start der UserForm ' Eigenschaft setzen damit der Code im Change Ereignis der ComboBox1 ' beim Auswahl (ComboBox1.ListIndex =... ) nicht ausgeführt wird CBvonMonat.Tag = 1 ' ausgewählte Zeile in ComboBox1 merken, ' da ComboBox1 gelöscht geleert wird ByWert = CBbisTag.ListIndex CBbisTag.Clear ..... .....

Private Sub CBvonTag_Change() Dim Jahr As Integer Dim Monat As Integer Dim Tag As Integer Jahr = CBvonJahr.ListIndex + 1 Monat = CBvonMonat.ListIndex + 1 Tag = CBvonTag.ListIndex + 1 Application.EnableEvents = False If Monat(DateSerial(Jahr, Monat, Tag)) > Monat Then CBvonTag.Value = Day(DateSerial(Jahr, Monat + 1, 0)) 'erster Tag vom Folgemonat minus 1 Application.EnableEvents = True End Sub

Private Sub UserForm_Initialize() Dim Ini ' Tage des aktuellen Monats in ComboBox1 eintragen For Ini = 1 To 31 CBvonTag.AddItem Ini CBbisTag.AddItem Ini Next Ini 'Monat For Each Ini In Split("Januar Februar März April Mai Juni Juli August September Oktober November Dezember") ' Monate als Wort in ComboBox2 eintragen CBvonMonat.AddItem Ini CBbisMonat.AddItem Ini Next Ini 'Jahr For Ini = 1900 To 2222 CBvonJahr.AddItem Ini CBbisJahr.AddItem Ini Next Ini 'Set up CBvonTag.Tag = "1" CBvonTag.Value = Day(Date) ' Aktuelles Datum als Startwert setzen CBvonMonat.Value = Format(Date, "MMMM") CBvonJahr.Value = Year(Date) CBvonTag.ListRows = 31 ' Länge der angezeiten Liste für Tag und Monat anpassen CBvonMonat.ListRows = 12 CBvonTag.Tag = "" ' Eigenschaft zurücksetzen CBbisTag.Tag = "1" CBbisTag.Value = Day(Date) ' Aktuelles Datum als Startwert setzen CBbisMonat.Value = Format(Date, "MMMM") CBbisJahr.Value = Year(Date) CBbisTag.ListRows = 31 ' Länge der angezeiten Liste für Tag und Monat anpassen CBbisMonat.ListRows = 12 CBbisTag.Tag = "" ' Eigenschaft zurücksetzen Me.StartUpPosition = 1 ' Startposition der Userform links oben End Sub

Sub Check_Date() Dim Datum As Variant Datum = Application.InputBox( _ "Bitte ein Datum im Format d.m[.y] eingeben") If IsDate(Datum) Then MsgBox "Glückwunsch!" & vbLf & _ "Deine Eingabe " & Datum & _ " konnte erfolgreich als folgendes Datum interpretiert werden:" & vbLf & _ Format(CDate(Datum), "dddd, dd.mm.yyyy"), vbInformation Else MsgBox "Sorry!" & vbLf & _ Datum & " ist für VBA kein gültiges Datum!", vbCritical End If End Sub

Moin,

ich schliesse mich die Anmerkung von Ralf an und ergenze folgendes (aus langer beruflicher Erfahrung):

"die Eingabe etwas User-Freundlicher und es schließt Fehler bei der Eingabe aus, da jeder seine eigene Schreibweise bei der Datumseingabe hat."
Ist es sinnvoll, mit sehr viel Aufwand nur eine minimale Unterstützung dem User anzubieten, die am Ende nur den Effekt haben, dass erstens die User "fauler" werden und zweitens alle "Problem" dem Programmierer zugeschrieben werden?

Es sieht so aus, als diese Code in beruflichen Umfeld verwenden wird. Hier gilt "mit Profis arbeiten". Und ein Profi hat zu wissen, was er zu tun hat. Wer sich nicht die Mühe gibt oder nicht in der Lage, eine Datum korrekt einzugeben (spricht von Excel als korrekte Datum akzeptiert), ist fehl am Platz.

Fazit: gut gemeint, aber das Aufwand steht in solche Fälle nicht im Verhältnis zu dem Nutzen (auf langer Sicht).

VG
Yal

Option Explicit Dim Block As Boolean Private Sub CBvonJahr_Change() TageVon End Sub Private Sub CBvonMonat_Change() TageVon End Sub Private Sub CBbisJahr_Change() TageBis End Sub Private Sub CBbisMonat_Change() TageBis End Sub Private Sub TageVon() Dim i&, Letzter&, arrTage If Block = True Then Exit Sub Letzter = DateSerial(CBvonJahr, CBvonMonat.ListIndex + 2, 0) + 1 - DateSerial(CBvonJahr, CBvonMonat.ListIndex + 1, 1) ReDim arrTage(1 To Letzter) For i = 1 To Letzter arrTage(i) = i Next i CBvonTag.List = arrTage End Sub Private Sub TageBis() Dim i&, Letzter&, arrTage If Block = True Then Exit Sub Letzter = DateSerial(CBbisJahr, CBbisMonat.ListIndex + 2, 0) + 1 - DateSerial(CBbisJahr, CBbisMonat.ListIndex + 1, 1) ReDim arrTage(1 To Letzter) For i = 1 To Letzter arrTage(i) = i Next i CBbisTag.List = arrTage End Sub Private Sub Tageaktuell() Dim i&, Letzter&, arrTage CBvonJahr.ListIndex = Year(Date) - 1900 CBbisJahr.ListIndex = Year(Date) - 1900 CBvonMonat.ListIndex = Month(Date) - 1 CBbisMonat.ListIndex = Month(Date) - 1 Letzter = DateSerial(Year(Date), Month(Date) + 1, 0) + 1 - DateSerial(Year(Date), Month(Date), 1) ReDim arrTage(1 To Letzter) For i = 1 To Letzter arrTage(i) = i Next i With CBvonTag .List = arrTage .ListIndex = Day(Date) - 1 End With With CBbisTag .List = arrTage .ListIndex = Day(Date) - 1 End With End Sub Private Sub UserForm_Initialize() Dim arrJahr(0 To 322), arrMonat(1 To 12), i& Block = True For i = 0 To 322 arrJahr(i) = 1900 + i Next i For i = 1 To 12 arrMonat(i) = Format(DateSerial(1900, i, 1), "mmmm") Next i CBvonJahr.List = arrJahr CBbisJahr.List = arrJahr CBvonMonat.List = arrMonat CBbisMonat.List = arrMonat Tageaktuell Block = False End Sub

Beliebteste Forumthreads (12 Monate)

Befüllen der Comboboxen läuft schief

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Befüllen der Comboboxen läuft schief

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread