Transponieren von mehreren Zeilen?

Hallo Kerstin,
<br />drücke Alt+F11 damit du in den VBA-Editor kommst => Einfügen => Modul und kopiere den Code in dieses Modul.
<br />Gehe zurück nach Excel => Entwicklertools => Makros und starte das Makro "Transponieren".
<br />Oder lade dir die Mappe herunter (Makros sind in OneDrive deaktiviert). In der Mappe kannst du sehen, wo der Code steht und was das Makro macht:
<br />https://1drv.ms/x/s!AqMiGBK2qniTgfE31iJdN6QQ3gh0UA?e=SKPvRw
<br />Claus
<br />

Vielen Dank Claus - aber leider habe ich mit VB noch nie gearbeitet und hab keinen Plan wie ich hier vorgehen müßte.......
<br />

Hallo Kerstin,
<br />probiere es mit VBA. Ändere im Code gegebenenfalls die Blattnamen und die Bezüge:
<br />

Sub Transponieren()

Dim myCnt As Integer, i As Integer

Dim LRow As Long, n As Long

Dim varData As Variant

n = 1

With Sheets("Tabelle1")

LRow = .Cells(.Rows.Count, 1).End(xlUp).Row

For i = 1 To LRow

myCnt = Application.CountIf(.Range("A:A"), .Cells(i, 1))

varData = .Range(.Cells(i, 2), Cells(i - 1 + myCnt, 2))

Sheets("Tabelle2").Cells(n, 1) = .Cells(i, 1)

Sheets("Tabelle2").Cells(n, 2).Resize(, myCnt) = Application.Transpose(varData)

i = i - 1 + myCnt

n = n + 1

Next

End With

End Sub

Claus
<br />

Super - es hat geklappt! Vielen Dank für die Hilfe und die "Schritt-für-Schritt" Anleitung!
<br />

Hallo,

wenn die Zellen, die du kopierst in einer Zeile stehen, werden sie auch in einer Zeile eingefügt. Stehen die kopierten Zellen in einer Spalte, musst du beim Einfügen "Transponieren" wählen.

Sind die Zellen über mehrere Spalten und Zeilen verteilt, musst du wohl eine Formel oder VBA verwenden.

Claus