typen komen niet overeen

[moensk]

Heb een VB script en krijg steeds foutmelding dat type niet overeenkomen (fout 13)
alles staat op TEKST
graag even bestand bekijken aub

 

[Joske2000]

Hi,

In kolom B staan op rij 66 en 554 de foutmelding #NAAM?

Haal deze weg en het scriptje werkt naar behoren.

Groeten,

Joske

 

[moensk]

super bedankt

 

[roeljongman]

toch niet..

op rij 66 en 554 staan in kolom B #NAME! fout.. als die eruit zijn loopt alles netjes door..

lol, ik zie dubbel en dacht ik heet toch geen joske..

 

[VenA]

Blijkbaar was het scriptje van mij.

Geen idee waar iets vandaan komt en waar het naartoe moet. Maar zo kan je een foutafhandeling inbouwen.

Sub VenA()
  ar = Cells(1).CurrentRegion.Resize(, 3)
  For j = 2 To UBound(ar)
    If ar(j, 1) <> ar(j - 1, 1) Then t = j
      ar(t, 3) = ar(t, 3) & IIf(Len(ar(t, 3)) = 0, "", " - ") & IIf(IsError(ar(j, 2)), "", ar(j, 2))
  Next j
  Cells(1).CurrentRegion.Resize(, 3) = ar
End Sub