Tabel converteren

[ericeul]

Hallo,

om gegevens in ons beheersysteem op te laden dien ik data in een welbepaalde format aan te bieden (zie groene tabel van bijlage).
De gegevens die ik heb echter zijn gerangschikt volgens de gele tabel (zie bijlage).

In tegenstelling tot dit voorbeeldje gaat het om ca 60000 gegevens.

Weet iemand een truukje om de gele format automatisch om te zetten naar de groene format?

Alvast bedankt

Eric

 

[eenreus]

Zoiets?

Zoiets?

Sub convert()

Dim rS As Long
Dim cS As Long
Dim rT As Long




Application.ScreenUpdating = False
rS = 2
cS = 2
rT = 10

Do Until IsEmpty(Cells(rS, cS).Value)
    Do Until IsEmpty(Cells(rS, cS).Value)
    Cells(rT, 5).Value = Cells(1, cS).Value
    Cells(rT, 6).Value = Cells(rS, 1).Value
    Cells(rT, 7).Value = Cells(rS, cS).Value
    rS = rS + 1
    rT = rT + 1
    Loop
rS = 2
cS = cS + 1
Loop

Application.ScreenUpdating = True

End Sub