Ich komme einfach nicht dahinter.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Dim Bereich As Range
i = 0
Application.EnableEvents = False
With ActiveSheet
Do Until .Range("K40").Offset(i, 0) = ""
i = i + 1
Loop
If i > 0 Then
.Range(.Range("V40"), .Range("V40").Offset(i - 1, 0)).FormulaR1C1 = _
"=IF(AND(RC[-6]>1,RC[-5]=""""),""X"",IF(AND(RC[-6]>1,RC[-3]>1),""X"",IF(AND(RC[-6]>1,RC[-5]> _
1),"""",)))"
.Range(.Range("W40"), .Range("W40").Offset(i - 1, 0)).FormulaR1C1 = _
"=IF(R[7]C[-12]="""","""",SUMIF(R[7]C[-9]:R[7]C[-4],"">0"",R39C14:R39C19)*100)"
End If
Application.EnableEvents = True
End With
End Sub
vielen Dank im voraus
Angelika