ich stehe gerade total auf dem Schlauch - bitte helft mir.
Auf einer UserForm habe ich eine Uhr in einer TextBox mitlaufen. Wird jede Sekunde geupdatet _ mithilfe dieser Codezeilen:
Im Modul:
Sub GetTime(strFormName$, strTextBoxName$)
Dim objForm As Object
For Each objForm In UserForms
If objForm.Tag = "1" Then Exit Sub
If objForm.Name = strFormName Then
objForm.Controls(strTextBoxName) = Format(Now, "hh:mm:ss")
Application.OnTime Now + TimeSerial(0, 0, 1), "'GetTime """ & strFormName & """,""" & _
_
_
strTextBoxName & """'"
objForm.Repaint
End If
Next objForm
End Sub
In der UserForm:
Private Sub UserForm_Activate()
Call Uhrzeit_(True)
End Sub
Private Sub Uhrzeit_(booStart As Boolean)
Dim Var As String
Me.Tag = IIf(booStart, "", "1")
If Me.Tag = "1" Then Exit Sub
Application.OnTime Now + TimeSerial(0, 0, 1), "'GetTime """ & Me.Name & """,""" & _
TextBox_Uhr.Name & """'"
End Sub
Problem: Ich möchte bei Erreichen einer gewissen Uhrzeit den Background der Textbox gelb färben. Da das Ganze aus einer Agenda resultiert, habe ich mir gedacht: Neben die Startzeit im Worksheet kommt per Formel die Startzeit + 5min rein. Diese Zeit soll ausgelesen werden und zu dieser Zeit die Färbung erscheinen.
Mein Problem: Da es eine Formel in der Zelle ist, wird das Datum nicht als String "hh:mm:ss" eingelesen, sodass es simpel vergleichbar ist mit TextBox.Text - und genau hier benötige ich Eure Hilfe.
Gern kann ich auf Nachfrage die Problematik weiter erörtern.
Viele Grüße und vielen Dank vorab!
Phil