Berechnung trotz Application.Calculation
06.09.2021 23:47:08
Don
ich habe schwere Performance Probleme mit folgender Sub.
der code braucht ca 80 sec. weil zwischendurch trotz 'xlCalculationManual' gerechnet wird.
Sporatisch hatte ich auch schon kurze Laufzeiten von Die auskommentierte "Variante A" ist leicht langsamer als "Variante B"
Hat jemand erhellende Gedanken?
Auf dem Blatt gibt es folgendes event:
Private Sub Worksheet_Change(ByVal Target As Range)
'MsgBox (Target.Address)
If Target.Address = "$C$4" Then
ActiveSheet.Calculate
ActiveCell.Offset(-1, 0).Select
If Range("DatenSatzTblZeile").Value "0" Then Call copyDaten
If Range("DatenSatzTblZeile").Value = "0" Then Call leereMaske
End If
End Sub
Sub copyDaten()
' Application.ScreenUpdating = False
ActiveSheet.Unprotect
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
' für TestZwecke
Dim Start As Double
Start = Timer
Dim k As Long
Dim arrFelder As Variant
arrFelder = sh_DbPflege.Range("tbl_EingabeWerte")
' Variante A
'' die ersten 42 Werte des array übertragen
' For k = LBound(arrFelder, 1) To 42
' If arrFelder(k, 1)
End Sub
