For each rngc - beschleunigen
05.01.2014 17:46:49
Dietmar
wie kann ich folgende Function beschleunigen?
Es werden 100 Spalten auf 400 Zeilen durchgerechnet. Das dauert relativ lange.
Function Lagerbuchung(Buchungsbereich As Range)
Dim rngc As Range
For Each rngc In Buchungsbereich
With rngc
.Value = .Value + 0 'damit leere Zellen einen Zahlenwert haben
.Value = .Offset(, 2).Value - .Offset(, 3).Value + .Value
.Offset(, 2).Value = 0 'Eintragungen löschen
.Offset(, 3).Value = 0 'Eintragungen löschen
End With
Next
End Function
Meine Idee: Eine Prüfung reinsetzen, so dass nur Buchungsbereiche durchgerechnet werden, die auch Werte drinstehen haben.
Mit folgender If-Klammer hat sich in Richtung Beschleunigung leider nichts getan
Ff rngc.Offset(, 2).Value Jemand ein bessere Idee?
Vielen Dank!
Dietmar aus Aachen
Anzeige