Sub
assetendbal(
ByVal
n
As
Integer
)
Dim
introw
As
Integer
, m
As
Integer
, valueCell
As
Double
m = n
Worksheets(
"lias"
).Range(
"P"
& m) = Worksheets(
"calc"
).Range(
"K"
& zeile)
For
introw = 1
To
rowNo(0)
m = m + 1
Worksheets(
"lias"
).Range(
"P"
& m) =
"=RC[-2]-RC[-1]"
Next
introw
If
Worksheets(
"lias"
).Evaluate(
"P"
& m).Value < 0.01
And
Worksheets(
"lias"
).Evaluate(
"P"
& m).Value > -0.01
Then
Worksheets(
"lias"
).Range(
"P"
& m) = 0
Else
: Worksheets(
"lias"
).Range(
"P"
& m).
Select
With
Selection.Interior
.Color = 255
End
With
End
If
End
Sub