makro im hintergrund ausführen
08.02.2004 18:01:22
arne
ich habe folgende frage:
ich habe einen kleinen timer, der im hintergrund dafür sorgt, dass in kurzen abständen ein zellvergleich durchgeführt wird.
mit dem folgenden code, kommt es aber durch den sheet wechsel zu kurzen bildschirmflackern. ist es möglich die aktion komplett in den hintergrund zu verlegen, dass ich nicht zwischen den blättern hin und her springen muss?
schönen dank
arne
Sub Sub_Aus()
Application.ScreenUpdating = False
Sheets("Text").Activate
Range("B2").Select
Selection.QueryTable.Refresh BackgroundQuery:=False 'aktuellen Zeitpunkt holen
If Range("A2").Value = Range("B2").Value Then
GoTo StartTimer
Else: Sheets("Pivot").PivotTables("Pivot1").RefreshTable
Range("B2").Select
Selection.Copy
Range("A2").Select
ActiveSheet.Paste
Sheets("Pivot").Activate
Application.ScreenUpdating = True
StartTimer
End If
StartTimer:
Sheets("Pivot").Activate
Application.ScreenUpdating = True
StartTimer
End Sub