ich möchte das meine Uhrzeit in der UserForm sekunden genau aktualisiert wird.
Mit dem Code klappt es leider nicht.
Private Sub UserForm_Initialize()
UserForm1.Caption = Format(Date, "dddd, dd.mm.yyyy") & " " & Format(Now, "hh:mm:ss")
Me.Width = Application.Width 'UserForm wird auf die Bildschirmgröße gesetzt
Me.Height = Application.Height 'UserForm wird auf die Bildschirmgröße gesetzt
Dim i1 As String
Dim i2 As String
Dim i3 As String
Dim i4 As String
Dim i5 As String
Dim i6 As String
Dim i7 As String
Dim i8 As String
Dim i9 As String
i1 = "PPC5112"
i2 = "PPC5112 TC"
i3 = "PPC5212"
i4 = "PPC5115"
i5 = "PPC5115 TC"
i6 = "PPC5315"
i7 = "PPC5515"
i8 = "PPC5318"
i9 = "PPC8715"
ComboBox1.AddItem (i1)
ComboBox1.AddItem (i2)
ComboBox1.AddItem (i3)
ComboBox1.AddItem (i4)
ComboBox1.AddItem (i5)
ComboBox1.AddItem (i6)
ComboBox1.AddItem (i7)
ComboBox1.AddItem (i8)
ComboBox1.AddItem (i9)
End Sub
Sub UpdateClock()
Dim NextTime As Date
UserForm1.lblzeit.Caption = Format(Time, "hh:mm:ss")
NextTime = Now + TimeValue("00:00:01")
lblzeit.Repaint
Application.OnTime NextTime, "UpdateClock"
End Sub
Kann mir jemand weiter helfen.
Danke
Carsten