Bestand herindelen

[MvanLenthe]

Ik heb een bestand met een niet werkbare indeling, ik wil dit graag laten herindelen. Het is niet eenmalig en het zijn grote bestanden dus knippen en plakken is geen optie.

Ik hoop dat iemand mij kan helpen.

Groet, Maarten

Bekijk bijlage Voorbeeldbestand.xlsx

 

[VenA]

Waar komt het weeknummer vandaan? 24-9-2018 is week 39. Met een macro met het correcte weeknummer.

Sub VenA()
  ar = Sheets("Huidige format").Cells(1).CurrentRegion.Resize(, 11)
  ReDim ar1(UBound(ar), 12)
  For j = 3 To UBound(ar)
    If ar(j, 1) = "Datum" Then c00 = ar(j - 1, 1)
    If IsDate(ar(j, 1)) Then
      ar1(t, 0) = c00
      ar1(t, 1) = "Week " & Format(Application.WeekNum(ar(j, 1), 21), "00")
      ar1(t, 2) = ar(j, 1)
      For jj = 2 To 11
        ar1(t, jj + 1) = ar(j, jj)
      Next jj
      t = t + 1
    End If
  Next j
  Sheets("Gewenst").Cells(1).Resize(t, 13) = ar1
End Sub

 

[MvanLenthe]

Super, Heel erg bedankt!

Het weeknummer komt uit de backoffice van de boordcomputers.....helaas. Wel fijn dat het nu ook gecorrigeerd wordt.