habe in einer Userform 3 Textboxsen, die gefüllt werden sollen beim Aktivieren der UserForm.
TextBox txtDatum fülle ich mit Date
TextBox txtUhrzeit fülle ich mit Format(Time, "hh:mm")
TextBox txtSchicht möchte ich mit einem Change Ereignis der txtUhrzeit füllen lassen.
Dazu habe ich auf dem Blatt Hilfe in der Spalte H und I die Zeiten und die dazugehörige Schicht eingetragen.
Private Sub txtUhrzeit_Change()
Wert = txtUhrzeit.Text
Set c = Columns(8).Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then txtSchicht.Value = c(1, 2)
End Sub
das geht so aber scheinbar nicht. Die Datei habe ich mal hochgeladen.
https://www.herber.de/bbs/user/24780.xls
Werner