Hi Markus,
CheckBoxen darfst du nicht ="" setzen sondern musst den Zustand auf False einstellen - also
Hochwasser.CheckBox1_BO10 = False
Hochwasser.CheckBox2_BO19 = False
Bezüglich einer fortlaufenden Zeitanzeige: kopiere folegenden Code ins Codemodul des UserForms:
Option Explicit
Dim blnLauf As Boolean
Private Sub UserForm_Activate()
blnLauf = False
Do
DoEvents
Hochwasser.Text_Uhrzeit.Value = Time
If blnLauf = True Then Exit Do
Loop
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
blnLauf = True
End Sub
Bis später, Karin