For each alternativ für grosse Bereiche
23.01.2006 11:04:20
m.koerueklue@osram.de
In einem großen Bereich sollen die vorhandene Werte durch 10000 geteilt werden.
Zwar macht folgende Code diese Aufgabe, aber es dauert. Wie kann ich es schneller machen?
Dim myRange As Range
Set myRange = Worksheets("Tabelle1").Range("B8:IV2508")
For Each Zelle In myRange
Zelle.Value = Zelle.Value / 10000
Next
Danke im Voraus
Murat K.
Anzeige