Opgelost Eerdere macro geeft nu foutmelding op een Macbook

[xmir]

Hi goeroe's,

In een van mijn vele vorige posts ben ik geholpen met een macro om in twee kolommen dubbelingen samen te voegen middels deze macro:

Sub Samenvoegen()
  With Cells(2, 7).CurrentRegion
    ar = .Value
    .Offset(1).ClearContents
    Set d = CreateObject("Scripting.Dictionary")
    For j = 2 To UBound(ar)
      d(ar(j, 1)) = CDbl(d(ar(j, 1)) + ar(j, 2))
    Next j
    .Offset(1).Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
  End With
End Sub

Ik gebruik hem al jaren op een Windows pc maar nu probeer ik hem werkend te krijgen op een Macbook (gewoon Excel, Office 365) en krijg foutmelding 429 Active X onderdeel kan object niet maken, bij foutopsporing gaat hij naar 'Set d = CreateObject("Scripting.Dictionary")' (en beide kolommen zijn vervolgens leeg).
Hebben jullie zo toevallig enig idee waar ik het moet zoeken of moet ik een voorbeeldje maken? Of een linkje naar het oude topic?

Alvast dank,
Mirjam

 

[edmoor]

Een Mac heeft slechts beperkte ondersteuning voor VBA.
ActiveX wordt sowieso niet ondersteund.

 

[xmir]

Ok dan zal dat het zijn helaas, dank je!