Frage zu einer Idee . VBA

hallo. ich würde gerne für die arbeit eine art anzeigetafel bauen , die maschinenleistungsdaten anzeigt. die grunddaten dafür würden auch aus excel kommen daher ist die datenerfassung kein problem.
Problem ist das ich diese anzeigetafel gerne alle zb 30min aktuallisieren lassen würde
die anzeigetafel wird eine userform.
das beispiel für die datein ist jetzt sehr schlank gehalten.
beispiel : 2 mappen die von einender getrennt geöffnet werden.
Mappe 1: werte stehen in A:A PASSWORTGESCHÜTZT (passwort:1)
Mappe 2: Summe Mappe1AA über verknüfung
ich suche jetzt ein makro das folgende schritte macht.
userform schliessen --> daten aktualisieren -->userform öffnen
oder sogar ohne userform schliessen.
weiss auch nicht ob aktuallsieren überhaupt ohne die datei neu aufrufen möglich ist.
kann mir da jemand helfen oder zumindest n tip geben (wills auch nicht vorgekaut bekommen , sondern schon was dadurch lernen) aber komme mit der idee mehr als an meine grenzen
gruss
und schönen samstag
christian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
das würde ich so lösen.
Im Modul des Userforms:

Option Explicit

Private mdtmNextStart As Date

Friend Sub UserForm_Activate()


    'hier kommt dein Code zum Anzeigen der Daten


    NextStart = Now + TimeSerial(0, 30, 0) 'Hier die Zeit einstellen

    Call Application.OnTime(EarliestTime:=NextStart, Procedure:="RefreshMe")

End Sub

Private Sub UserForm_Terminate()
    Call Application.OnTime(EarliestTime:=NextStart, Procedure:="RefreshMe", Schedule:=False)
End Sub

Private Property Get NextStart() As Date
    NextStart = mdtmNextStart
End Property

Private Property Let NextStart(ByVal pvdtmNextStart As Date)
    mdtmNextStart = pvdtmNextStart
End Property

Und das hier in ein normales Modul:

Option Explicit
Option Private Module

Public Sub RefreshMe()
Call UserForm1.UserForm_Activate 'Name des Userforms anpassen !!!!
End Sub

Gruß
Nepumuk

Sub aktualisieren() Range("A4").Select Selection.Copy Range("A5").Select ActiveSheet.Paste Rows("4:4").Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp If t = True Then starten End Sub

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Frage zu einer Idee . VBA

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread