Sub rechnen()
Dim A As Integer
Cells(1, 1).Value = A
A = A - 1
End Sub
Wenn ich in (1,1) einen Wert eintrage und dann Funktion rechnen ausführe,
steht dann in (1,1) ein Null.
Cells(1,1) hat einen Wert 12
Rechnen
Cells(1,1) hat einen Wert 11
Warum ?
Gruß Sergej