Opgelost range vullen met arrayformule

[snb]

Als ik [A1:C3] wil vullen met een Arrayformule doe ik dat handmatig met:

{={1\2\3;4\5\6;7\8\9}}

(want afgelsoten met ctrl-shft-enter)

Als ik datzelfde wil doen met VBA lukt mij dat niet met de regel:

[A1:C3].formulaArray= "={={1\2\3;4\5\6;7\8\9}"

Hoe zou dat dan wel moeten ?

 

[edmoor]

Wellicht zonder de accolades:

Range("A1:C3").FormulaArray ="=1\2\3;4\5\6;7\8\9"

 

[snb]

De 'Runtime Error 1004' blijft identiek.
Als je een range in een benoemd gebied opslaat heeft die ook de vorm "={1\2\3;4\5\6;7\8\9}"

ReDim sp(2, 2)
   
 For j = 0 To 8
     sp(j \ 3, j Mod 3) = j + 1
 Next
   
 Sheet1.Names.Add "snb", sp
 MsgBox Sheet1.Names(1)

 

[edmoor]

Dan zo:

Range("A1:C3").FormulaArray = "=""1\2\3;4\5\6;7\8\9"""

 

[snb]

Nu lukt het ineens wel met:

Sub M_snb()
  ReDim sp(2, 2)
    
  For j = 0 To 8
    sp(j \ 3, j Mod 3) = j + 1
  Next
    
  Sheet1.Names.Add "snb", sp
  MsgBox Sheet1.Names(1)
    
  [A5:C7].FormulaArray = Sheet1.Names(1)
End Sub

 

[edmoor]

Ok, zo dus:

Range("A1:C3").FormulaArray = "={1,2,3;4,5,6;7,8,9}"

 

[jkpieterse]

Of:

Range("A1").Formula2 = "={1,2,3;4,5,6;7,8,9}"

Of:

Range("A1").Formula2Local = "={1\2\3;4\5\6;7\8\9}"

 

[snb]

En nu de volgende complicatie: 1 of meer 'cellen' van de array zijn leeg.

 

[Enigmasmurf]

Bijvoorbeeld:

Range("A1").Formula2 = "={1,"""",3;4,5,6;7,8,9}"

 

[snb]

Dat leidt hier tot een " in de cel ipv niets.

 

[AHulpje]

Levert hier (Office 2021) netjes een lege cel op.

 

[jkpieterse]

Een echt lege cel "maken" met een matrix is onmogelijk, alle elementen moeten iets bevatten. En een lege string betekent toch dat de cel door Excel niet als zijnde leeg beschouwd wordt.

 

[HSV]

B1 is bij mij niet leeg.
=ISLEEG(B1) = ONWAAR

 

[AHulpje]

En zowel jkpieterse als HSV snappen natuurlijk dat ik met leeg bedoelde dat de door @snb genoemde " bij mij niet in de cel verscheen.

 

[Enigmasmurf]

Bovendien...

En nu de volgende complicatie: 1 of meer 'cellen' van de array zijn leeg.

Is er iemand die dit leest alsof TS lege cellen op zijn werkblad als resultaat wil zien?

@snb,
Als #9 bij jou niet werkt, laat dat dan eens in een bestand zien.