AW: Geschwindigkeit der Berechnung regeln
10.06.2016 15:46:20
Mullit
Hallo,
...gute Idee von Ralf, mein C64-Simulator:
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Klassenmodul der Arbeitsmappe
' **********************************************************************
Option Explicit
Private Sub Workbook_Activate()
If ActiveSheet Is Tabelle1 Then Application.Calculation = xlCalculationManual
End Sub
Private Sub Workbook_Deactivate()
Application.Calculation = xlCalculationAutomatic
End Sub
' **********************************************************************
' Modul: Tabelle1 Typ: Klassenmodul des Tabellenblattes
' **********************************************************************
Option Explicit
Private Const TIMER_SECOND As Long = 2
Private Const CELLS_TO_CALCULATE As Long = 2
Private Sub Worksheet_Activate()
Application.Calculation = xlCalculationManual
End Sub
Private Sub Worksheet_Deactivate()
Application.Calculation = xlCalculationAutomatic
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address = "$A$1" Then _
Call Application.OnTime(EarliestTime:=Now + TimeSerial(0, 0, TIMER_SECOND), _
Procedure:="'" & CodeName & ".prcTimer """ & .Offset(0, 1).Address & """'")
End With
End Sub
Friend Sub prcTimer(ByVal pvstrAddress As String)
Static slngCount As Long
With Range(pvstrAddress)
Call .Calculate
slngCount = slngCount + 1
If slngCount < CELLS_TO_CALCULATE Then
Call Application.OnTime(EarliestTime:=Now + TimeSerial(0, 0, TIMER_SECOND), _
Procedure:="'" & CodeName & ".prcTimer """ & .Offset(0, 1).Address & """'")
Else
slngCount = 0
End If
End With
End Sub
VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel
Code erstellt und getestet in Office 14
Gruß, Mullit