Wie transponiere ich korrekt?

[Schülerin]

Hallöchen,

habe mal eine Kurzfrage zu folgendem Code:

Code:

Sub Transponierungsaufgabe()
f = Array("Vorne", "Seite", "Hinten")

Range("A1:C1") = f 'Code verhält sich wie gewünscht

Range("A1:A3") = f '??? Wie lautet hier Code damit untereinander Vorne, Seite, Hinten in den Zellen steht.

End Sub

Wie muss ich den Code verändern, damit von A1 bis nach A3 der Reihe nach untereinander Vorne, Seite, Hinten steht?

[atilla]

Hallo,

so:

Code:

Sub Transponierungsaufgabe()
f = Array("Vorne", "Seite", "Hinten")

Range("A1:C1") = f 'Code verhält sich wie gewünscht

Range("A2:A4") = Application.Transpose(f) '??? Wie lautet hier Code damit untereinander Vorne, Seite, Hinten in den Zellen steht.

End Sub

[snb]

Code:

Sub M_snb()
   sn = Array("Vorne", "Seite", "Hinten")

   cells(1,1).resize(,ubound(sn)+1) = sn

   cells(2,1).resize(ubound(sn)+1) = Application.Transpose(sn)

End Sub

[Schülerin]

Hallo meine Lieben,

vielen Dank für die schnelle Antwort.

Gewußt wie und es funktioniert!