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 Sub
Bitte geben Sie ein aussagekräftiges Thema an. Bitte geben Sie eine gültige Email Adresse ein!