在VBA中相乘返回零

Question

我在VBA中键入以下代码，它返回零？

我正在尝试计算VBA中的收入。 Salgspris是价格，AntalsoglteVare是所售商品的Nr。我尝试使用以下代码在VBA中将它们相乘，但返回零。

Sub Revenue()

Dim SalgsPris As Double 
Dim AntalSolgteVare As Integer
Dim Revenue As Double 

Range("a2").Activate

Do

SalgsPris = ActiveCell.Offset(0, 4).Value
AntalSoglteVare = ActiveCell.Offset(0, 5).Value

ActiveCell.Offset(0, 6) = SalgsPris * AntalSolgteVare

ActiveCell.Offset(1, 0).Activate

Loop Until ActiveCell = ""

End Sub