Ich mache im Moment einen Vergleich:
Do While ActiveCell.Value = v_EWG_Wert
leider wird diese Schleife nie betreten.
Zwar werden mit Debug.Print beide als z.B. 2,75 angezeigt, aber die werden anscheinend trotzdem nicht als gleich angesehen.
Ich habe die Zahl in v_Ewg_wert im moment als Variant.
ActiveCell.Value ist eigentlich tatsächlich der gleiche Wert.
In einem vorherigen Teil des Programms wird dieser wert errechnet, in einem Array zwischengespeichert und danach in die Zelle in der Tabelle eingetragen:
v_EWG_Wert_neu = v_Summe / i_i
' neuen wert in der ersten Zelle (spalte D) des Bereichs eintragen
ActiveSheet.Range(v_LetzteZelle).Select
' Wert aus Variabler in Array schreiben
v_EWG_gerundet(i_j) = v_EWG_Wert_neu
' zur vorsicht dann direkt aus dem Array in ActiveCell.Value schreiben
ActiveCell.Value = v_EWG_gerundet(i_j)
i_j = i_j + 1
v_EWG_gerundet ist auch Variant.
Der für den Vergleich genutzte Wert v_ewg_wert ist einfach der wieder aus dem Array v_EWG_gerundet(i_j) ausgelesene Wert.
Warum erkennt er die Werte nicht als gleich, bzw. wie kann ich die Werte so ändern, dass er die Gleichheit erkennt?
Kann mir das jemand beantworten.
Würde mir sehr weiterhelfen
Bin für jede Antwort dankbar
Gruß Maike