Excel VBA：将WHEN公式插入到具有可变列的特定范围的单元格中

Question

Hello dear StackOverflow users,

My issue is regarding inserting a Formular via Macro into specific range of cells. Again, again and again.

So the Basic function of the formula should be the following:

=WHEN('ZEK '!F3="X";"6";WHEN('ZEK '!G3="X";"8";"1"))

In my macro it has to Change the column for the next specific range. This is Happening in a for Loop for i growing.

meaning --> =When('ZEK '!$F$"& i+2 &"....... or in any other Syntax that should work. My try fairly does not, thats why I need your help.

This is my Initial try where i exchanged literally everything with strings:

Sub 123()
Dim a,b,c As String
a = 1
b = 6
c = 8

....

'used and declared variables k, x, f, a, b, c

Range(Cells(k + 2, 5), Cells(k + 27, 5)).FormulaR1C1 = _
"=WHEN('ZEK'!$F$" & f & "=" & x & ";" & a & ";WHEN('ZEK'!$G$" & f & "=" & x & ";" & b & ";" & c & "))"

End Sub

With that i get Runtime Error 1004. (changed it to .Formula from .FormulaR1C1)

I hope i gave enough Information, so that you could help me. This really does not have to be performant, i just Need to get the formula into about 100.000 cells with i changing for each Range of cells

Answer 1

I think it's a language problem... Try

"=IF('ZEK'!$F$" & f & "=" & x & "," & a & ",IF('ZEK'!$G$" & f & "=" & x & "," & b & "," & c & "))"

Notice the use of IF and , as a delimiter instead of ; . Is WHEN even a valid worksheet function? To be honest I don't know if the worksheet functions get translated or not when setting the formula via VBA. The delimiters are adapted though.

edit: there is also the .FormulaLocal property that should work with ; as delimiter! So change .Formula to .FormulaLocal . This will probably cause an error if you execute it on a machine that uses , as default delimiter so I'd try to stick with .Formula .