Probleme mit Dezimalwerten
04.03.2009 11:10:47
Kuegle
Möchte jede Zelle des markierten Bereichs mit dem in der Variablen "Faktor" angegebenen Wert ergänzen. Also wenn in der Variablen "Faktor" der Ausdruck "= 2 * " und in der Zelle A1 120,11 steht soll danach in A1 als Formel: "= 2 * 120,11" stehen.
Der nachfolgende Code funktioniert nur bei ganzzahligen Zellwerten. Sobald eine Kommazahl enthalten ist, geht nichts mehr.
Dim Faktor
Faktor = "=2 * "
For Each Zelle In Selection
Zelle.Formula = Faktor & Zelle.Value
Next
Wer weiß Rat?
Vielen Dank!
Bernd