Brauche wieder einmal Rat!
Eine UF wird aus einem Tabellenblatt mit Daten befüllt. Können immer unterschiedlich viele sein, so dass ich mittels folgendem Code:
Private Sub UserForm_Activate()
Dim i As Integer
For i = 1 To 12
If Me("Textbox" & i) = "" Then
Me("Textbox" & i).SetFocus
Exit For
End If
Next i
End Sub
den Focus beim Aufruf der UF in die erste freie TextBox setze. Das klappt auch. Die UF ist tabellarisch aufgebaut. Untereinander stehen stehen die TextBoxen 1 - 12 und da neben untereinander die TextBoxen 13 - 24. In die TextBoxen werden immer ein Datum eingetragen.
Nun habe ich einen weiteren Code:
If TextBox13
MsgBox "Das Ende des Zeitraumes liegt vor dem Anfang des Zeitraumes"
TextBox13 = ""
TextBox13.SetFocus
End If
Jedoch springt der Focus nicht in TextBox13 wenn das Datum vor dem Anfangsdatum der TextBox1 liegt, sondern der Focus springt in TextBox2.
Ich hoffe es ist verständlich, denn meine Frage ist, was muss ich ändern, damit wenn der User ein zu geringes Enddatum eingegeben hat der Focus wieder in die nun geleerte TextBox springt?
Danke und herzliche Grüße Frank H.