kann mir jemand sagen was ich ändern muss damit folgender Ausdruck funktioniert? Das wäre nett, danke schön, Gruss, Ramon
Sub (Neu)
Set sh = Sheets("Tot_L40")
For i = 4 To 202 Step 2
If Cells(4685, i) = 0 Then Cells(4686, i + 1) = 0
If Cells(4686, i) <> 0 Then Cells(4686, i + 1).FormulaArray = "=MAX(IF(MOD(Row(1:4680),13)=0, sh.Range(sh.Cells(1,i+1),sh.Cells(4680,i+1))"
Next i
End Sub