|
Hallo,
ich mache eine Kalkulation und am Ende der Kalkulation soll der letzte Wert überprüft werden, ob dieser zwischen -0,01 und 0,01 liegt. Andernfalls soll die Zell rot markiert werden. Da ich aber in der Zelle eine Formel stehen habe, kann er den Wert nicht vergleichen, deshalb habe ich dann versucht mit
Worksheets("lias").Range("P" & m).Value = Worksheets("lias").Range("P" & m).Value
das Problem zu lösen. Der Wert wird auch eingesetzt, jedoch wird dann der Wert vom ersten m eingesetzt und nicht vom letzten m, was bei der ersten Schleife ausgegeben werden sollte. Gibt es vielleicht noch einen schöneren Weg oder weiß jemand, wo mein Fehler ist?
(code)
Sub assetendbal(ByVal zeile As Integer, n As Integer)
Dim introw As Integer, m As Integer, valueCell As Double
m = n
'Schleife zum einfügen der Formel
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
'Kontrolle ob Wert ungefähr gleich Null ist
Worksheets("lias").Range("P" & m).Value = Worksheets("lias").Range("P" & m).Value
If Worksheets("lias").Range("P" & m).Value < 0.01 And Worksheets("lias").Range("P" & m).Value > -0.01 Then
Worksheets("lias").Range("P" & m).Value = 0
Else: Worksheets("lias").Range("P" & m).Select
With Selection.Interior
.Color = 255
End With
(/code)
|