Datenprüfung
11.01.2008 15:38:36
Volker
ich stehe mal wieder auf dem Schlauch denn ich suche mittels nachstehendem Code:
Private Sub CommandButton1_Click()
Call Schutz_aus
Dim rZelle As Range
If Me.TextBox1.Value "" Then
If IsDate(Me.TextBox1.Value) Then
With Worksheets("Stundennachweis").Range("B1:B380")
Set rZelle = .Find(CDate(Me.TextBox1.Value), LookIn:=xlValues, Lookat:=xlWhole)
If Not rZelle Is Nothing Then
.Range("A" & rZelle.Row).Select
End If
End With
End If
End If
ActiveCell.Offset(0, 1) = ComboBox1 'Activate
ActiveCell.Offset(0, 2) = ComboBox2
ActiveCell.Offset(0, 3) = ComboBox3
ActiveCell.Offset(0, 4) = ComboBox4
ein Datum welches ich über ein Kalendersteuerelement in eine Userform Textbox eingegeben habe.
Soweit ist alles in Ordnung. Jetzt ist es mir passiert, das ich im Kalendersteuerelement ein falsches Jahr
angeklickt habe. Allerdings wurde das Datum der Textbox gemäß Code in Zelle A1 übernommen und hatte mit Teile der Tabelle "zerschossen"
Frage an die wissenden: Wie kann ich eine Art "Prüfung" einbauen, welche das Jahr in der Textbox und in der Spalte der Tabelle vergleicht.
Ich hatte mir das so gedacht: Sollte das Datum in der Textbox nicht zu den Daten in der Tabelle passen,
dann MsgBox "Jahr falsch" allerdings bevor die Inhalte der Comboboxen übergeben werden.
Würde mir jemand einen Tip geben?
Danke Gruß
Volker