Userform und autom. Prüfungen

In der unten aufgeführten Userform habe ich in Textbox1 und Textbox4 jeweils
eine Datumseingabe und in Textbox8 und Textbox9 eine Uhrzeiteingabe.
FRAGE:
Wie kann ich erreichen, daß bei der Eingabe zwingend ein 8-stelliges Datum
(23.12.03) und die Uhrzeit ohne Doppelpunkt (13:45) eigegeben werden kann, aber dann alles geprüft wird, bzw. umgewandelt wird.
Und ist es generell möglich eine Abfrage zu erstellen, die prüft, ob alle
Textboxen befüllt wurden, bevor der Speichern-Button gedrückt werden kann?


Private Sub CommandButton2_Click()
'Daten speichern
Dim frm As UserForm
Dim TextBox1 As Date
Set frm = UserForm1
Sheets("Transportdaten").Activate
ActiveSheet.Unprotect password:="transporT"
Range("A65536").End(xlUp).Offset(1, 0).Select
'Unload.UserForm1
With frm
ActiveCell.Value = .TextBox1.Value
ActiveCell.Offset(0, 1).Value = .TextBox2.Value
ActiveCell.Offset(0, 2).Value = .TextBox3.Value
ActiveCell.Offset(0, 3).Value = .TextBox4.Value ' siehe Textbox1
ActiveCell.Offset(0, 5).Value = .TextBox5.Value
ActiveCell.Offset(0, 6).Value = .TextBox6.Value
ActiveCell.Offset(0, 7).Value = .TextBox7.Value
ActiveCell.Offset(0, 8).Value = .TextBox8.Value 'die Zeit soll geprüft
werden, ob mit Doppelpunkt erfasst wurde
ActiveCell.Offset(0, 9).Value = .TextBox9.Value ' siehe Textbox8
ActiveCell.Offset(0, 10).Value = .TextBox10.Value
ActiveCell.Offset(0, 11).Value = .TextBox11.Value
If .OptionButton1.Value = True Then
ActiveCell.Offset(0, 4).Value = "Maier"
Else
If .OptionButton2.Value = True Then
ActiveCell.Offset(0, 4).Value = "Huber"
Else
If .OptionButton3.Value = True Then
ActiveCell.Offset(0, 4).Value = "Selb"
Else
If .OptionButton4.Value = True Then
ActiveCell.Offset(0, 4).Value = "Achatz"
Else
If .OptionButton5.Value = True Then
ActiveCell.Offset(0, 4).Value = "Gruber"
End If
End If
End If
End If
End If
.TextBox1.Value = ""
.TextBox2.Value = ""
.OptionButton1 = False
.OptionButton2 = False
.OptionButton3 = False
.OptionButton4 = False
.OptionButton5 = False
.TextBox3.Value = ""
.TextBox4.Value = ""
.TextBox5.Value = ""
.TextBox6.Value = ""
.TextBox7.Value = ""
.TextBox8.Value = ""
.TextBox9.Value = ""
.TextBox10.Value = ""
.TextBox11.Value = ""
End With
ActiveSheet.Protect password:="transporT"
Sheets("Transportstartseite").Activate
UserForm1.Hide
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'Date Format Validation With Me.textbox1 If Not IsDate(.Text) Then .Text = "" MsgBox "Please enter a valid date!" Cancel = True Else On Error Resume Next .Text = CDate(.Text) End If End With End Sub

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread