Meine Testumgebung hat in Zellen A10 und B10 zwei Zahlen stehen. dann der (Schnell-)Code:
Sub test()
Dim i, j, x, y
i = 10
j = 3
x = 1
y = 2
Cells(i, j) = Cells(i, x) - Cells(i, y) & " , " & Cells(i, y) * 0.5
End Sub
Kannst du den einmal in einer neuen Mappe probieren?
|