Schneller um eins Hochzählen
30.11.2005 10:06:20
Holger
ich habe ein Formblatt mit einem Diagramm, in dem sich eine Kurve befindet. Diese Kurve soll bis um jeweils einen Wert verschoben werden, solange bis eine bestimmte Bedingung (Formel in Zelle B2) erfüllt ist. Das aber nur nebenbei. Ich habe das Ganze mit einer Schleife realisiert (siehe unten). Da sich allerdings dieser Vorgang in mehreren Makros wiederholt und es relativ lange dauert, bis die jeweils Kurve verschoben wurde, wollte ich fragen, ob es zu diesem Code eine Alternative gibt. Ich bin für jeden Tipp dankbar! Gruß, Holger
Dim i!
i = -40
Sheets("Protokoll").Range("A1").Value = i
Do
i = i + 1
Sheets("Protokoll").Range("A1").Value = i
Loop Until Range("B2").Value <= 2