FormulaArray

[Jack Nouws]

Hallo

Ik wil met behulp van deze code een matrixformule in een bereik zetten maar ik krijg elke keer een foutmelding. Wie kan zeggen wat hier problemen kan geven?

Sub CmdInkoopSoort()
    ComboBox1.Visible = True
        If ComboBox1.Value <> "" Then

With Sheets("Hoofdmenu")
    [BD6].Value = "Datum"
    [BF6].Value = "Leverancier"
    [BJ6].Value = "Ingekocht"
    [BL6].Value = "Geleverd"
    [BN6].Value = "Te Leveren"
'    [BD9:BD33].FormulaArray = _
'        "=IF(SUMPRODUCT((MONTH(datavoorraad!R6C1:R200C1)=R6C4)*(datavoorraad!R6C4:R200C4=R6C55))+ROW(R9C67)>ROW(),INDEX(datavoorraad!R6C1:R200C1,SMALL(IF((MONTH(datavoorraad!R6C1:R200C1)=R6C4)*(datavoorraad!R6C4:R200C4=R6C55),ROW(datavoorraad!R6C1:R100C1)-ROW(datavoorraad!R6C11)+1,""""),ROW()-ROW(R9C67)+1)),"""")"
  End With
  End If
End Sub

Met vr gr
Jack

 

[ThePope90]

Hallo

Ik wil met behulp van deze code een matrixformule in een bereik zetten maar ik krijg elke keer een foutmelding. Wie kan zeggen wat hier problemen kan geven?

Sub CmdInkoopSoort()
    ComboBox1.Visible = True
        If ComboBox1.Value <> "" Then

With Sheets("Hoofdmenu")
    [BD6].Value = "Datum"
    [BF6].Value = "Leverancier"
    [BJ6].Value = "Ingekocht"
    [BL6].Value = "Geleverd"
    [BN6].Value = "Te Leveren"
'    [BD9:BD33].FormulaArray = _
'        "=IF(SUMPRODUCT((MONTH(datavoorraad!R6C1:R200C1)=R6C4)*(datavoorraad!R6C4:R200C4=R6C55))+ROW(R9C67)>ROW(),INDEX(datavoorraad!R6C1:R200C1,SMALL(IF((MONTH(datavoorraad!R6C1:R200C1)=R6C4)*(datavoorraad!R6C4:R200C4=R6C55),ROW(datavoorraad!R6C1:R100C1)-ROW(datavoorraad!R6C11)+1,""""),ROW()-ROW(R9C67)+1)),"""")"
  End With
  End If
End Sub

Met vr gr
Jack

Niet om het een of ander, maar ik denk dat je makkelijker geholpen wordt als je de foutmelding ook prijsgeeft

 

[Jack Nouws]

Niet om het een of ander, maar ik denk dat je makkelijker geholpen wordt als je de foutmelding ook prijsgeeft

Ok

FOUT 1004 tijdens uitvoering
Door de toepassing of door object gedefinieerde fout

Dit is het enigste wat ik te zien krijg.

Met vr gr
Jack

 

[Wigi]

Simpel: SOMPRODUCT is geen matrixformule, dus dan begrijp ik ook niet dat je FormulaArray gebruikt.

 

[Jack Nouws]

Hallo

Ik krijg nu ook een foutmelding op mijn combobox nl: Er zijn onvoldoende systeem bronnen voor voledige weergave.
Wat wil dat zeggen?
Misschien is er iets anders loos?

Met vr gr
Jack

 

[trucker10]

Hallo

Er zijn onvoldoende systeem bronnen voor voledige weergave.
Wat wil dat zeggen?
Misschien is er iets anders loos?

Met vr gr
Jack

Dat heeft niet met het (ram) geheugen te maken ,maar misschien tijd voor een upgrade > nieuwe pc :thumb:

Bij deze een goede link naar eventueel een antwoordje op je probleem