VBA Bedingung Anzeige Textfelder

Hallo,
ich habe mir eine Stundentabelle erstellt und diese so gestaltet, dass alle Felder in der UserForm ausgefüllt sein müssen, bevor die Daten in eine Tabelle übernommen werden. Jetzt stoße ich allerdings an meine Grenzen und für mich wird es zu kompliziert. Daher benötige ich Hilfe.
Folgendes soll noch eingearbeitet werden: Wenn in der ComboBox1, die Einträge "Urlaub, Feiertag oder Krank" ausgewählt werden, dann soll TextFeld2 und TextFeld3 ausgeblendet werden. Dann soll naturlich auch nicht der Hinweis erscheinen "Es wurden nicht alle Textfelder ausgefüllt." und die Daten sollen ohne Befüllen dieser zwei Felder in die Tabelle übernommen werden. TextFeld1 und die ComboBox1 müssen aber trotzdem beide befüllt werden, sonst soll wieder der Hinweis kommen "Es wurden nicht alle Textfelder ausgefüllt."
Ich hoffe, dass ich es einigermaßen verständlich beschreiben konnte und bin über jede Hilfe von Euch sehr dankbar.

Private Sub ComboBox1_Change()
End Sub

Private Sub CommandButton1_Click()
Dim objtxt As Object
For Each objtxt In UserForm1.Controls
If TypeName(objtxt) = "TextBox" Or (TypeName(objtxt) = "ComboBox") Then
If objtxt.Value = "" Then
MsgBox " Es wurden nicht alle Textfelder ausgefüllt.!", 48
objtxt.SetFocus
Exit Sub
End If
End If
Next
Dim erste_freie_Zeile As Integer
ActiveSheet.Unprotect Password:=""
erste_freie_Zeile = Sheets("Stundennachweis").Range("A65536").End(xlUp).Offset(1, 0).Row
Sheets("Stundennachweis").Cells(erste_freie_Zeile, 1) = CDate(TextBox1.Text)
Sheets("Stundennachweis").Cells(erste_freie_Zeile, 2) = Format(TextBox2.Text, "hh:mm")
Sheets("Stundennachweis").Cells(erste_freie_Zeile, 3) = Format(TextBox3.Text, "hh:mm")
Sheets("Stundennachweis").Cells(erste_freie_Zeile, 4) = ComboBox1.Text
Unload Me
ActiveSheet.Protect Password:=""
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub TextBox1_Change()
End Sub

Private Sub TextBox2_Change()
End Sub

Private Sub TextBox3_Change()
End Sub

Private Sub UserForm_Initialize()
Dim Wiederholungen As Integer
For Wiederholungen = 2 To Sheets("Hilfstabelle").Range("A65536").End(xlUp).Row
ComboBox1.AddItem Sheets("Hilfstabelle").Cells(Wiederholungen, 1)
Next
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub ComboBox1_Change() If ComboBox1 = "Urlaub" or ComboBox1="Krank" or ComboBox1 ="Feiertag" then TextBox2.Visible = False TextBox3.Visible = False Else TextBox2.Visible = True TextBox3.Visible = True End if End Sub

For Each objtxt In UserForm1.Controls If TypeName(objtxt) = "TextBox" Or (TypeName(objtxt) = "ComboBox") Then ' Spezialfälle behandeln If Combobox1 "Urlaub" And Combobox1 "Krank" And Combobox1 "Feiertag" Then If objtxt.Value = "" Then MsgBox " Es wurden nicht alle Textfelder ausgefüllt.!", 48 objtxt.SetFocus Exit Sub End If Else If objtxt.Name "TextBox2" And objtxt.Name "TextBox3" Then If objtxt.Value = "" Then MsgBox " Es wurden nicht alle Textfelder ausgefüllt.!", 48 objtxt.SetFocus Exit Sub End If End If End If End If Next

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not (TextBox1 Like "?.?.?" And IsNumeric(TextBox1)) Then TextBox1.SetFocus MsgBox "Eingabe in Textbox ist Falsch" Exit Sub End If End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not (TextBox2 Like "?:?" And IsNumeric(TextBox2)) Then TextBox2.SetFocus MsgBox "Zeit Format ist Falsch" Cancel = True Exit Sub End If End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not (TextBox1 Like "?.?.?" And IsNumeric(TextBox1)) Then TextBox1.SetFocus MsgBox "Datums Format ist Falsch" Cancel = True Exit Sub End If End Sub

Private Sub TextBox1_AfterUpdate() If Not (TextBox1 Like "?.?.?" And IsNumeric(TextBox1)) Then TextBox1.SetFocus MsgBox "Datumformat ist falsch eingegeben, bitte korregieren!" Cancel = True Exit Sub End If End Sub

Private Sub CommandButton1_Click() Dim objtxt As Object If Not (TextBox1 Like "?.?.?" And IsNumeric(TextBox1)) Then TextBox1.SetFocus MsgBox "Datumformat ist falsch eingegeben, bitte korregieren!" Exit Sub End If If Not TextBox2 Like "?:?" Then TextBox2.SetFocus MsgBox "Zeitformat ist falsch eingegeben, bitte korregieren!" Exit Sub End If If Not TextBox3 Like "?:?" Then TextBox3.SetFocus MsgBox "Zeitformat ist falsch eingegeben, bitte korregieren!" Exit Sub End If For Each objtxt In UserForm1.Controls If TypeName(objtxt) = "TextBox" Or (TypeName(objtxt) = "ComboBox") Then ' Spezialfälle behandeln If ComboBox1 "Urlaub" And ComboBox1 "Krank" And ComboBox1 "Feiertag" Then If objtxt.Value = "" Then MsgBox " Es wurden nicht alle Textfelder ausgefüllt.!", 48 objtxt.SetFocus Exit Sub End If Else If objtxt.Name "TextBox2" And objtxt.Name "TextBox3" Then If objtxt.Value = "" Then MsgBox " Es wurden nicht alle Textfelder ausgefüllt.!", 48 objtxt.SetFocus Exit Sub End If End If End If End If Next Dim erste_freie_Zeile As Integer ActiveSheet.Unprotect Password:="LV" erste_freie_Zeile = Sheets("Stundennachweis").Range("A65536").End(xlUp).Offset(1, 0).Row Sheets("Stundennachweis").Cells(erste_freie_Zeile, 1) = CDate(TextBox1.Text) Sheets("Stundennachweis").Cells(erste_freie_Zeile, 2) = Format(TextBox2.Text, "hh:mm") Sheets("Stundennachweis").Cells(erste_freie_Zeile, 3) = Format(TextBox3.Text, "hh:mm") Sheets("Stundennachweis").Cells(erste_freie_Zeile, 4) = ComboBox1.Text Unload Me ActiveSheet.Protect Password:="LV" End Sub

Hallo Christian,
vielleicht nicht die eleganteste Lösung, aber probier mal:
folgende Zeile im Code ersetzen:

Sheets("Stundennachweis").Cells(erste_freie_Zeile, 1) = CDate(TextBox1.Text)

durch:

Sheets("Stundennachweis").Cells(erste_freie_Zeile, 1) = Format(TextBox1.Text, "DD.MM.YYYY")

Das sorgt dafür, dass kein Fehler mehr erscheint (zumindest bei mir), aber trotzdem das passende Format verwendet werden muss.
Und zusätzlich folgenden Block zwischen die "If Not TextBox1" und "If Not TextBox2" einfügen:

  If Len(TextBox1.Value)

Hierbei musst du aber beachten, dass das Datum zukünftig immer vollständig eingetragen werden muss, also z. B. auch 01.05.2020, ansonsten kommt die Fehlermeldung. So kannst du aber zumindest umgehen, dass bei der Jahreszahl eine Ziffer vergessen wird.
Und noch eine Bitte: Rechtschreibung mal kontrollieren ;) korrigieren und in der letzten MsgBox ganz am Ende der Punkt ist zu viel.
Gruß Pierre

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Bedingung Anzeige Textfelder

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread