HI

 LetzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
       Range("E2").FormulaLocal = "=WENN(A2="Bezirk";F2+G2;"""")"
       Range("E2").AutoFill Destination:=Range("E2:E" & LetzteZeile)
       Range("F2").FormulaLocal = "=WENN(A2="Bezirk";KÜRZEN(J2/(C2*K2));"""")"
       Range("F2").AutoFill Destination:=Range("F2:F" & LetzteZeile)
       Range("G2").FormulaLocal = "=WENN(A2="Bezirk";WENN(H2<=(C2*K2)/4;0;1);"""")"
       Range("G2").AutoFill Destination:=Range("G2:G" & LetzteZeile)
       Range("H2").FormulaLocal = "=WENN(A2="Bezirk";J2-(C2*K2)*F2;"""")"
       Range("H2").AutoFill Destination:=Range("H2:H" & LetzteZeile)
       Range("I2").FormulaLocal = "=WENN(A2="Bezirk";L2*J2;"""")"
       Range("I2").AutoFill Destination:=Range("I2:I" & LetzteZeile)
       Range("D2").FormulaLocal = "=WENN(A2="Bezirk";D2*G2;"""")"
       Range("D2").AutoFill Destination:=Range("D2:D" & LetzteZeile)

Ich lasse in einem Durchlauf 22 Sheets mit Daten befüllen, dabei berechnet mir dieser Code für jedes Sheet die angegebenen Zellen neu und geht dann zum nächsten Sheet

Mein Problem liegt nun in den letzten beiden Zeilen

Da dies ja einen Zirkelbezug ergibt. Ich habe aber schon einen Code gesehen der das in VBA hinbringt, ohne das dieser Zirkelbezug eintritt.

Kriegt das hier jemand für mich hin

Schon mal einen RIESSIGEN DANK im voraus

Gruß

Angelika