mit der unten aufgeführten anweisung schreibe ich eine einfache formel (wenn a=x dann b=y sonst c= kleiner z)in eine tabelle, was auch problemlos funktioniert
Cells(KReUn + I, J).Formula = "=If((R" & KDaUn + I & "C" & J & ")*(R" & 15 & "C" & J & ")*100 / SUM(R" & KDaUn + I & "C" & 4 & ":R" & KDaUn + I & "C" & DaRe & ") >= (R" & 13 & "C" & J & "),(R" & KDaUn + I & "C" & J & ")*(R" & 15 & "C" & J & ")*100 / SUM(R" & KDaUn + I & "C" & 4 & ":R" & KDaUn + I & "C" & DaRe & "),""< ""&R" & 13 & "C" & J & ")"
mein einziges problem ist die formatierung der letzten anweisung (dann c= < y)die in realität so aussieht:
.....,""< ""&R" & 13 & "C" & J & ")"
wenn y = 0.125 ist, liefert diese anweisung < 0.125
wenn y = 1.000 ist, liefert diese anweisung < 1
ich möchte verhindern, dass die nullen abgeschnitten werden, denn diese geben auskunft über die genauigkeit der zahl (die zahl wird aus einer zelle übernommen, in der sie als zahl mit einer bestimmten anzahl dezimalstellen formatiert wurde)
bin für jeden tipp dankbar
gruss beat