möchte aus der Matrix:
1 2 3 4 5 6
7 8 9 10 11 12
13 14 ...
den Vektor:
1
2
3
4
5
.
.
.
14
erzeugen.
Wie geht sowas?
Danke im Voraus.
Sub Vektor()
' Bereich vorher markieren
Dim C1%, Cn, R1, Rn, Neu%, I%
C1 = Selection.Column 'Erste Spalte
Cn = C1 + Selection.Columns.Count - 1 'letzte Spalte
R1 = Selection.Row 'erste Reihe
Rn = C1 + Selection.Rows.Count - 1 'letzte Reihe
Neu = Rn + 2 'Zielzelle (bitte anpassen)
For I = R1 To Rn
Range(Cells(I, C1), Cells(I, Cn)).Copy
Cells(Neu, C1).PasteSpecial Transpose:=True
Neu = Neu + Cn
Next I
Application.CutCopyMode = False
End Sub