Index Formel nach rechts ziehen

Das geht nur mit VBA

Markiere den Bereich der gefüllt werden soll (inkl. der ersten Zelle mit der Formel) und führe das Makro unten aus.

Andreas.

Sub Test()

Const Base = "1:86000"

Dim Where As Range, R As Range, Here As Range

Set Where = Selection

Where.FillRight

Set Here = Range(Base)

For Each R In Where.Cells

R.Formula = Replace(R.Formula, Base, Here.Address(0, 0))

Set Here = Here.Offset(1)

Next

End Sub

Hallo Sören,

du willst das Argument für KKLEINSTE in jeder Spalte um 1 erhöhen?

Dann probiere:

=WENN(ISTFEHLER(INDEX($B:$B;KKLEINSTE(WENN(($A$1:$A$86000=$C1);ZEILE(1:$86000));SPALTE(A1))));"fehlt";INDEX($B:$B;KKLEINSTE(WENN(($A$1:$A$86000=$C1);ZEILE(1:$86000));SPALTE(A1))))

Claus

Mit Index() kann man so etwas machen.
=index(Tabelle2!$D$9:$H$9;;Zeile(A1))
Wenn du die Formel nach unten ziehst, wird immer ein Wert weiter rechts ausgegeben.

Hallo Jürgen,

damit machst du die Formel aber länger und unübersichtlicher.

Probiere es für Umlage1 mit:

=INDEX(DbtKrKS;SUMMENPRODUKT((INDEX(DbtKrKS;;1)=$H$1)*(INDEX(DbtKrKS;;2)<=$I$1)*(INDEX(DbtKrKS;;3)>=$I$1)*(ZEILE(INDIREKT("$1:$"&ANZAHL2(INDEX(DbtKrKS;;1))))));SPALTE(D1))

und ziehe die Formel eine Zelle nach rechts für Umlage2

Claus

Hallo Benedikt,

schreibe in B1:

=A1

in C1 dann entweder:

=B1+INDEX($A$1:$A$20;SPALTE()-1)

oder:

=SUMME(BEREICH.VERSCHIEBEN($A$1;;;SPALTE()-1))

und ziehe die Formel nach rechts.

Edit: Oder in B1 =SUMME(INDIREKT("A1:A"&SPALTE()-1)) und ziehe nach rechts

Claus