Wenden Sie die IF-Bedingung auf einen Excel VBA-Bereich an

Question

Oct 21, 2013, 08:20 PM

Wenden Sie die IF-Bedingung auf einen Excel VBA-Bereich an

Ich habe diesen Code geschrieben, aber er scheint nicht zu funktionieren. Warum?

Dim oRo As String
Dim nRo As String


Lastro = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
oRo = "J2:O" & Lastro
nRo = "Q2:V" & Lastro


Range("C2:G" & Lastro).Select

With Range("C2:G" & Lastro)
.Range("C2:G" & Lastro).Formula = "=IF(oRo*nRo<0,ROUNDUP(oRo*1.3,-2),IF(ABS(oRo)    <=ABS(nRo),nRo,ROUNDUP(oRo*1.3,-2)))"
End With    

End Sub