Code geeft fout resultaat

[Valentin]

De volgend code geeft als resultaat in de cellen K2:K7 #NAAM? echter in de formulebalk geeft deze als resultaat {=INTERVAL(Data; Bins)}
Iemand een idee wat hier fout is?

Sub Frequency()

Set pt = ActiveSheet.PivotTables(1)
Data = pt.DataBodyRange
Bins = Range("J2:J7")
Range("K2:K7").FormulaArray = "=Frequency(Data, Bins)"
End Sub

 

[Lampie173]

Hallo Valentin,

Ik weet het niet zeker, maar moet "=Frequency(Data, bins)" niet zonder "" zijn?
Dus zo: Range("K2:K7").FormulaArray = Frequency(Data, Bins)

Groet,

Lampie

 

[Valentin]

Oplossing verkregen op Excelforum.com

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("K2:K7").FormulaArray = "=Frequency(" & ActiveSheet.PivotTables(1).DataBodyRange.Address & ", J2:J7)"
End Sub