Hallo zusammen.
ich habe eine Tabelle in die mittels Formular Beginn und Ende des Urlaubs eingetragen wird. Dies funzt einwandfrei. nur ist das Datum irgendwie kein Datum. man muss erst in das Feld klicken in der das Datum steht und enter drücken damit das wirklich ein Datum ist. Es gibt auf der Seite eine Auswertung die erst anfängt zu funzen, wenn ich das Datum bestätigt habe.
Also was kann man machen? oder hab ich etwas falsch definiert?
der Code des eintragens :
ich habe eine Tabelle in die mittels Formular Beginn und Ende des Urlaubs eingetragen wird. Dies funzt einwandfrei. nur ist das Datum irgendwie kein Datum. man muss erst in das Feld klicken in der das Datum steht und enter drücken damit das wirklich ein Datum ist. Es gibt auf der Seite eine Auswertung die erst anfängt zu funzen, wenn ich das Datum bestätigt habe.
Also was kann man machen? oder hab ich etwas falsch definiert?
der Code des eintragens :
Quellcode
- Private Sub CommandButton6_Click()
- Dim lZeile As Long
- Dim Test As String
- If ListBox2.ListIndex = -1 Then Exit Sub
- If Trim(CStr(TextBox2.Text)) = "" Then
- MsgBox "Urlaubsbeginn eintragen", vbCritical + vbOKOnly, "FEHLER!"
- Exit Sub
- End If
- lZeile = 2
- Test = UserForm2.TextBox1.Value
- Sheets(Test).Select
- Do While Trim(CStr(Sheets(Test).Cells(lZeile, 1).Value)) <> ""
- If ListBox2.Text = Trim(CStr(Sheets(Test).Cells(lZeile, 1).Value)) Then
- Sheets(Test).Cells(lZeile, 1).Value = Trim(CStr(TextBox2.Text))
- Sheets(Test).Cells(lZeile, 2).Value = TextBox3.Text
- Sheets(Test).Cells(lZeile, 3).Value = CheckBox1.Value
- If ListBox2.Text <> Trim(CStr(TextBox2.Text)) Then
- Call UserForm_Initialize
- If ListBox2.ListCount > 0 Then ListBox2.ListIndex = 0
- End If
- Exit Do
- End If
- lZeile = lZeile + 1
- Loop
- End Sub