Transponieren
11.04.2019 10:58:33
Frank
ich habe im Netz ein Makro gefunden, welches mir Daten aus einer Spalte in eine Zeile transponiert. Wie stelle ich das Makro aber um, um aus einer Zeile Daten in eine Spalte zu transponieren. Danke schon mal fürs drüber schauen.
Gruß Frank
Sub Transeponieren()
Dim rngZiel As Range
Dim rngQuelle As Range
Dim i As Long
On Error Resume Next
Set rngQuelle = Application.InputBox("Bitte Quell-Spalte markieren:", "Wahl Quelle", , , , , _
, 8)
If rngQuelle Is Nothing Then Exit Sub
On Error GoTo 0
On Error Resume Next
Set rngZiel = Application.InputBox("Bitte Ziel-Zelle markieren:", "Wahl Ziel", , , , , , 8)
If rngZiel Is Nothing Then Exit Sub
On Error GoTo 0
On Error Resume Next
Set rngQuelle = rngQuelle.Columns(1).SpecialCells(xlCellTypeConstants)
If Err Then MsgBox "Keine Daten!": Exit Sub
On Error GoTo 0
Set rngZiel = rngZiel.Cells(1)
With rngQuelle.Areas
For i = 1 To .Count
rngZiel.Offset(i - 1).Resize(, .Item(i).Rows.Count) = WorksheetFunction.Transpose(. _
Item(i))
Next
End With
End Sub