Wert in aktiver Zelle ändern
27.05.2009 10:40:06
max
habe wieder mal ein kleines Problem:
Ich bekomme aus einer Datenabfrage immer positive Werte. Negative Werte werden über ein Belegkennzeichen dargestellt. Wenn nun im Feld links neben der Wertzelle das Belegkennzeichen G (für Gutschrift) steht, soll er den aktuellen Wert der Wertzelle (z.B. 258,37) mit negativem Vorzeichen versehen (-> -258,37). Was stimmt bei nachstehendem Makro nicht?
Sub Wert_umwandeln()
Dim wert As Integer
wert = ActiveCell.Value
ActiveCell.FormulaR1C1 = "=IF(RC[-1]=""G"", activecell.value = -wert, activecell.value = wert)"
End Sub
Dank im voraus!