gegevens rechts van elkaar onder elkaar plaatsen

[sveneu]

Hallo

Ik heb een databaseje met automerken en de daarbijhorende types.
Uiteindelijk wil ik ze allemaal in een MYSQL database verwerken maar dan zal ik ze eerst netjes in excel moeten krijgen.

Nu staan ze zo in excel:

ID - AUTOMERK - TYPE 1 - TYPE 2 - TYPE 3 - TYPE 4 - enz enz enz

En het moet zo worden:

tabblad 1 met de automerken (die heb ik al)

tabblad 2 met de types, dus zoals hieronder:

id_merk - id_type - type

1 - 1 - golf
1 - 2 - polo
1 - 3 - lupo

..

Bestandje heb ik bijgevoegd.

Kan iemand mij vertellen of het mogelijk is dit snel in excel te doen?

Dus kortom: gegevens die horizontaal van elkaar staan verticaal gaan invoeren.

gr Sven

 

[Efsix]

Probeer eens kopiëren en dan; plakken speciaal >> transponeren.

 

[Warme bakkertje]

Deze zou het moeten doen

Option Base 1

Sub tst()
Dim sn()
sq = Sheets("Blad1").Cells(1, 1).CurrentRegion
ReDim sn(UBound(sq, 1) * UBound(sq, 2), 3)
y = 1
For j = 1 To UBound(sq)
    x = 1
    For jj = 3 To UBound(sq, 2)
        If sq(j, jj) <> "" Then
            sn(y, 1) = sq(j, 1)
            sn(y, 2) = x
            sn(y, 3) = sq(j, jj)
            x = x + 1
            y = y + 1
        End If
    Next
Next
With Sheets("Blad2").Cells(1, 1)
    .CurrentRegion.ClearContents
    .Resize(UBound(sn), 3) = sn
End With
End Sub

 

[sveneu]

Ik ben er inmiddels uit!

Bedankt voor jullie hulp