UserForm regelmäßig mit Tabellenwerten füllen
27.08.2003 11:19:47
John
ist es möglich, das Textfeld einer Userform im 5-Sekunden-Rhythmus automatisch mit dem Inhalt einer Zelle zu füllen?
Im konkreten Fall enthält meine Userform ein Textfeld namens "tester", das alle 5 Sekunden mit dem Wert der Zelle A1 überschrieben werden soll.
Ich hab's mit folgendem Code versucht, der aber leider nicht funktioniert:
Private Sub UserForm_Initialize()
Call nächsteaktualisierung
End Sub
Sub nächsteaktualisierung()
Dim nächstaktual
nächstaktual = Now + TimeValue("00:00:05")
Application.OnTime earliesttime:=nächstaktual, procedure:="aktualisierung", schedule:=True
End Sub
Sub aktualisierung()
tester = Range("A1").Value
Call nächsteaktualisierung
End Sub
Vielen Dank im Voraus!
Gruß,
John