Hallo,
ich brauche einen VBA-Code für ein Makro, das die Spalte C im aktuelllen worksheet in einer Schleife durchläuft und prüft ob in der nächste Ebene eine größer /gleichgroße / kleinere Zahl steht bis zu einer freien Zeile.
Das hängt damit zusammen das die höchste Ebene (in dem Fall die 5) die absoluten Werte in Spalte D abbilden und die jeweils darunterliegende Werte der Ebene nur ein Teilergebnis aus aus den Werten der nächsthöheren Ebene jeweils ist.
Leider hab ich wenig bis garkeine Ahnung und hoffe das ihr mir helfen könnt :(
Zum besseren Verständnis hab ich noch das mal mit dem recorder aufgezeichnet und
Range("D13").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[1]C)"
Range("D11").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[1]C,R[3]C)"
Range("D6").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[1]C:R[4]C)"
Range("D5").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[2]C:R[5]C)"
Range("D3").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[1]C,R[4]C:R[7]C,R[9]C,R[11]C)"
Range("D2").Select
ActiveCell.FormulaR1C1 = _
"=SUBTOTAL(9,R[2]C,R[5]C,R[6]C,R[7]C,R[8]C,R[10]C,R[12]C)"
Range("D3").Select

Vielen Dank im Voraus