Krijg fout 1004 niet weg

[Atwist]

Hallo
Heb de hele middag al zitten turen, ik krijg die verrekte fout 1004 melding niet weg.
Deze is gekomen nadat ik onder een knop wat bijgezet heb, dit het ik later ook weer weg gehaald maar de fout blijft.
Met Google kom ik ook niet verder.
Kan iemand misschien even kijk waar de fout zit?????

Alvast bedankt voor de hulp.

 

[JEC.]

Je probeert de listbox te vullen zonder dat er data in kolom C staat van tabblad 2. Dat geeft de error.

 

[Atwist]

JVeer

Erg veel dank
Hier had ik niet aan gedacht, stom stom stom

 

[VenA]

Ik zou echte tabellen gebruiken en AddItem niet gebruiken. Is in jouw vorige vraag ook al op gewezen.

Private Sub UserForm_Initialize()
  ar = Sheets("Sheet1").ListObjects(1).DataBodyRange
  For j = 1 To UBound(ar)
    ar(j, 3) = FormatCurrency(ar(j, 3))
    ar(j, 4) = FormatCurrency(ar(j, 4))
  Next j
  ListBox1.List = ar
  ListBox2.List = Sheets("Sheet2").ListObjects(1).DataBodyRange.Value