AW: Ändern einer Formel
04.06.2017 21:41:26
Frank
Hey steve,
so passt es und yippieeee,es hat mal was geklappt wie ich mir das vorgestellt habe.
Habe deine Formel per Makrorecorder in VBA umgewandelt und das ganze dann in meinen bestehenden Code eingefügt.
'* Formeln werden geschrieben und kopiert *
Range("AQ3").FormulaR1C1 = "=IF(R[1]C[-2]=""Freilos"",R[-1]C[-2],IF(OR(AND(R[-1]C[-1]=2,R[1] _
C[-1]"""",OR(R[1]C[-1]=0,R[1]C[-1]=1))),R[-1]C[-2],IF(OR(AND(R[1]C[-1]=2,R[-1]C[-1]"""",OR(R[-1]C[-1]=0,R[-1]C[-1]=1))),R[1]C[-2],"""")))"
' "Zelle AQ3" =WENN(AO4="Freilos";AO2;WENN(ODER(UND(AP2=2;AP4"";ODER(AP4=0;AP4=1)));AO2; _
WENN(ODER(UND(AP4=2;AP2"";ODER(AP2=0;AP2=1)));AO4;""))) "
Range("AQ8").FormulaR1C1 = "=IF(R[1]C[-2]=""Freilos"",R[-1]C[-2],IF(OR(AND(R[-1]C[-1]=2,R[1] _
C[-1]"""",OR(R[1]C[-1]=0,R[1]C[-1]=1))),R[-1]C[-2],IF(OR(AND(R[1]C[-1]=2,R[-1]C[-1]"""",OR(R[-1]C[-1]=0,R[-1]C[-1]=1))),R[1]C[-2],"""")))"
' "Zelle AQ8" =WENN(AO9="Freilos";AO7;WENN(ODER(UND(AP7=2;AP9"";ODER(AP9=0;AP9=1)));AO7; _
WENN(ODER(UND(AP9=2;AP7"";ODER(AP7=0;AP7=1)));AO9;"")))
Range("AQ13").FormulaR1C1 = "=IF(R[1]C[-2]=""Freilos"",R[-1]C[-2],IF(OR(AND(R[-1]C[-1]=2,R[ _
1]C[-1]"""",OR(R[1]C[-1]=0,R[1]C[-1]=1))),R[-1]C[-2],IF(OR(AND(R[1]C[-1]=2,R[-1]C[-1]"""",OR(R[-1]C[-1]=0,R[-1]C[-1]=1))),R[1]C[-2],"""")))"
' "Zelle AQ13" =WENN(AO14="Freilos";AO12;WENN(ODER(UND(AP12=2;AP14"";ODER(AP14=0;AP14=1))) _
;AO12;WENN(ODER(UND(AP14=2;AP12"";ODER(AP12=0;AP12=1)));AO14;"")))
Range("AQ18").FormulaR1C1 = "=IF(R[1]C[-2]=""Freilos"",R[-1]C[-2],IF(OR(AND(R[-1]C[-1]=2,R[ _
1]C[-1]"""",OR(R[1]C[-1]=0,R[1]C[-1]=1))),R[-1]C[-2],IF(OR(AND(R[1]C[-1]=2,R[-1]C[-1]"""",OR(R[-1]C[-1]=0,R[-1]C[-1]=1))),R[1]C[-2],"""")))"
' "Zelle AQ18" =WENN(AO19="Freilos";AO17;WENN(ODER(UND(AP17=2;AP19"";ODER(AP19=0;AP19=1))) _
;AO17;WENN(ODER(UND(AP19=2;AP17"";ODER(AP17=0;AP17=1)));AO19;"")))"
For i = 2 To 62 Step 20 ' Bereich AG2 bis AT20 wird in 20er Schritte kopiert "
.Range("AG2:AT20").Copy .Cells(i, 33)
If i = 62 Then Exit For
.Range("AG2:AT20").Copy .Cells(i + 20, 33)
Next
Die Formeln wurden beim Kopieren an die Zellen angepasst,so das ich mir eine ganze Menge Schreibarbeit erspare.
Danke dir ;-)
Lg Frank