Letzte Chance, dann muss ich weg:
Sub
test()
Dim
i, x, y, j
i = 10
j = 3
x = 1
y = 2
Cells(i, j) = Cells(i, x) - Cells(i, y) &
"#"
& Cells(i, y) * 0.5
Cells(i, j) = Replace(Cells(i, j),
,
","
)
End
Bitte geben Sie ein aussagekräftiges Thema an. Bitte geben Sie eine gültige Email Adresse ein!