UserForm regelmäßig mit Tabellenwerten füllen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi John

Etwa so...

' Standardmodul

Option Explicit

Public Const gsMacro As String = "UpdateClock"
Public gdNextTime As Double

Sub StartClock()
Dim iIntervall As Integer
gdNextTime = Now + TimeSerial(0, 0, 5)
Application.OnTime earliesttime:=gdNextTime, _
procedure:=gsMacro, schedule:=True
End Sub

Sub UpdateClock()
UserForm1.TextBox1 = Range("A1")
Call StartClock
End Sub

Sub StopClock()
On Error Resume Next
Application.OnTime earliesttime:=gdNextTime, _
procedure:=gsMacro, schedule:=False
End Sub

' Klassenmodul

Option Explicit


Private Sub UserForm_Activate()
TextBox1 = Range("A1")
Call StartClock
End Sub


Private Sub UserForm_Deactivate()
Call StopClock
End Sub


Private Sub UserForm_Initialize()
TextBox1 = Range("A1")
Call StartClock
End Sub


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Call StopClock
End Sub

Gruss
Chris

Hallo Chris,

ich versteh's auch nicht, laut deinem Programmcode müßte es eigentlich funktionieren, und scheinbar wird auch alle 5 Sekunden irgendein vorgang in die Wege geleitet (für den Bruchteil einer Sek. wird der Mauszeiger alle 5 Sek. zur Sanduhr), aber trotzdem wird der Inhalt der Userform nicht upgedatet.
Zu Deiner Frage: Ich habe die Userform mit einem kleinen Trick (Herber sei Dank) dazu gebracht, geöffnet zu bleiben und parallel trotzdem die Bearbeitung des Tabellenblatts zuzulassen:

Option Explicit
' von Michael Schwimmer
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function EnableWindow Lib "user32" _
(ByVal hwnd As Long, ByVal bEnable As Long) As Long


Private Sub UserForm_Activate()
Dim hwndXL&
hwndXL = FindWindow("XLMAIN", Application.Caption)
If hwndXL <> 0 Then
EnableWindow hwndXL, 1
Application.CellDragAndDrop = False
End If
End Sub


Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
Application.CellDragAndDrop = True
End Sub

Deinen Code habe ich dann an diese Makros angepaßt. Vielleicht habe ich, als ich deinen Code in mein System übernommen und an meine Erfordernisse angepasst habe, irgendwo einen Fehler gemacht, aber ich wüßte nicht welchen...
Trotzdem vielen Dank für die Hilfe!
Gruß,

John

Beliebteste Forumthreads (12 Monate)

UserForm regelmäßig mit Tabellenwerten füllen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

UserForm regelmäßig mit Tabellenwerten füllen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread