Omzetten personeelskosten in 12 kolommen naar waarden

[Teo1]

Ik heb een bestand met in de rijen de personeelkosten en in de kolommen de maanden

kolom a = naam
kolom b = jan
kolom c = feb
etc

rij 2 = personeelslid 1
rij 3 = personeelslid 2
etc

nu wil ik deze in een extra werkblad omzetten naar een andere structuur

kolom a = naam
kolom b = maand
kolom c = personeelskosten

per personeelslid komen er voor 1 jaar dus 12 regels

wie heeft er ideeen om dit op een eenvoudige manier te doen?

groet,

Teo

 

[HSV]

Maak tabblad "nieuw" even helemaal leeg.

Sub hsv()
Dim sq As Long, i As Long
With Sheets("oud")
sq = .Columns(1).SpecialCells(2).Rows.Count
With Sheets("nieuw")
  .Range("A1").Resize(, 3) = Array("Name", "Maand", "Bedrag")
  For i = 2 To sq
   With .Cells(Rows.Count, 1).End(xlUp)
      .Offset(1).Resize(12) = Sheets("oud").Cells(i, 1).Value
      .Offset(1, 1).Resize(12) = Application.Transpose(Sheets("oud").Range("B1:M1").Value)
      .Offset(1, 2).Resize(12) = Application.Transpose(Sheets("oud").Range(Sheets("oud").Cells(i, 2), Sheets("oud").Cells(i, 13)).Value)
     End With
    Next i
  .Columns.AutoFit
  End With
 End With
End Sub

 

[Teo1]

Werkt super ! bedankt