Automatisches herunterzählen

23/09/2010 - 21:42 von Jörg Klein | Report spam
Hallo,

ich möchte von einem Startwert, der in Zelle A11 steht solange den Wert von
Zelle C11 herunterzàhlen, bis das Ergebnis gleich das Ergebnis in Zelle B11
ist.

A11 = 1,65
B11 = 1,13
C11 = 0,002

Beginnen soll die ganze Berechnung in Zelle A15.

Mit folgenden Zeilen habe ich begonnen. Leider habe ich kein Beispiel
gefunden, welches ich verstehe. Ich möchte die Werte in den Zellen A11, B11,
C11 vareieren. Wie geht es bitte weiter.


Sub Berechnung()

ActiveSheet.Cells(15, 1).Formula = "= A11"

End Sub

Vielen Dank für die Hilfe

Joerg
 

Lesen sie die antworten

#1 Claus Busch
23/09/2010 - 22:05 | Warnen spam
Hallo Jörg,

Am Thu, 23 Sep 2010 21:42:25 +0200 schrieb Jörg Klein:

ich möchte von einem Startwert, der in Zelle A11 steht solange den Wert von
Zelle C11 herunterzàhlen, bis das Ergebnis gleich das Ergebnis in Zelle B11
ist.

A11 = 1,65
B11 = 1,13
C11 = 0,002

Beginnen soll die ganze Berechnung in Zelle A15.



Formellösung:
In A15: =$A$11-$C$11
in A16: =WENN(UND(A15<>"";A15>=$B$11);A15-$C$11;"")
und runterziehen bis Zellen leer bleiben.

Oder per VBA:

Sub Runterzaehlen()
Dim i As Integer
Dim m As Integer

i = Int((Range("A11") - Range("B11")) / Range("C11"))
Cells(15, 1) = Range("A11") - Range("C11")
For m = 16 To i + 14
Cells(m, 1) = Cells(m - 1, 1) - Range("C11")
Next
End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen