Fout in Macro

[Bart198099]

Beste allen,


Eerder dit jaar ben ik goed geholpen op dit forum met het bestand in de bijlage.
De bedoeling van het document is een automatische sortering van een exportbestand uit een automatiseringssysteem.

Maandelijks wordt nieuwe data in dit document geladen.

Nu is het helaas zo dat het format van het exportbestand iets is veranderd waardoor de macro niet meer werkt.

In het document staat bij Datablad de oorspronkelijke data, de macro werkt hier goed op.
Als ik echter de nieuwe data (uit sheet1) in het datablad kopieer dan wordt bij de macro (ctr-p) een fout aangegeven.

Waarschijnlijk is het iets heel kleins maar ik kom er niet uit.

Iemand van jullie misschien wel?

Alvast dank!
Bart




Bekijk bijlage Klachten 2013 juni.xlsmBekijk bijlage Klachten 2013 juni.xlsm

 

[snb]

Ik zou hier niet van een fout in een macro spreken.

Sub M_snb()
  With Sheets("sheet1")
    sn = .UsedRange
    ReDim sp(Application.CountIf(.Columns(1), "Info:"), 4)
  End With
  jj = 0
    
  For j = 1 To UBound(sn)
    If sn(j, 1) = "Info:" Then
      sp(jj, 0) = sn(j - 3, 1)
      sp(jj, 1) = sn(j + 1, 2)
      sp(jj, 2) = sn(j - 2, 3)
      sp(jj, 3) = sn(j - 6, 8)
      sp(jj, 4) = sn(j - 1, 9)
      jj = jj + 1
    End If
  Next

  With Sheets("Sorteerblad")
    .Columns(3).NumberFormat = "dd-mm-yyyy hh:mm:ss"
    .Cells(1).Resize(UBound(sp) + 1, UBound(sp, 2) + 1) = sp
    .Cells(1).CurrentRegion.Sort .Cells(1, 3), , , , , , , , xlNo
    .Rows(1).Insert
    .Range("A1:E1") = Split("nummer|klacht|tijdstip|netnaam|afdeling", "|")
    .ListObjects.Add 1, , , 1
 End With
End Sub

 

[Bart198099]

Beste snb,

Je hebt gelijk, het is idd geen fout.

Mag ik u wederom hartelijk danken voor de snelle reactie en oplossing!