Excel VBA Formula не работает на немецком языке excel

Question

Я не знаю, почему эта формула не работает. Любая помощь (немецкая версия excel 2007)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
Dim Calc As Double  
Calc = 1.5  
Range("A2").Formula = "= B2 *C2 * & Calc & "  
End Sub 

Я хочу использовать формулу. без .formula это работает.

Answer 1

Это не сработает под английским языком. * & не является допустимой последовательностью операторов.

Моих психических сил сказать мне, что вы хотите, чтобы встроить Calc в формулу как буквальные, и в этом случае оно должно быть

Range("A2").Formula = "= B2 *C2 * " & Str$(Calc) 

Вы должны использовать Str иметь Calc конвертируются в строку в соответствии с английским locale, требуется Formula. Вы можете оставить его как есть, если используете FormulaLocal.