Private Sub ComboBox1_Change()
With Me
If .ComboBox1.Value = "Urlaub" Or .ComboBox1.Value = "Feiertag" Or .ComboBox1.Value = "Krank" Then
.TextFeld2.Visible = False
.TextFeld3.Visible = False
Else
.TextFeld2.Visible = True
.TextFeld3.Visible = True
End If
End Sub
Private Sub CommandButton1_Click()
Dim objtxt As Object
Dim erste_freie_Zeile As Integer
With UserForm1
For Each objtxt In .Controls
If TypeName(objtxt) = "TextBox" Then
If .ComboBox1.Value = "Urlaub" Or .ComboBox1.Value = "Feiertag" Or .ComboBox1.Value = "Krank" Then
If objtxt.Name = "TextFeld2" Or objtxt.Name = "TextFeld3" Then GoTo Weiter
End If
End If
If objtxt.Value = "" Then
MsgBox " Es wurden nicht alle Textfelder ausgefüllt.!", 48
objtxt.SetFocus
Exit Sub
End If
Weiter:
Next objtxt
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 With
End Sub