---

Transponieren.xlsx.txt

Hallo!

Meine Tabelle beinhaltet mehrere Werte wie Nummer, Datum und Wert 1 bis 7, die leider alle untereinander stehen.
Wie kann Ich diese Werte am schnellsten Transponieren?

siehe Transponieren.xlsx.txt

------------------
Mit freundlichen Grüßen

CADdoctor

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich hab auf http://www.online-excel.de/excel/singsel_vba.php?f=75 den passenden Code für mein Problem gefunden.
Leider ist der Wurm in Zeile 14 drin.
Ich bekomme immer die Meldung "Typen unverträglich".
Was muss ich da umschreiben damit der Code funktioniert.

------------------
Mit freundlichen Grüßen

CADdoctor

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

versuche es mal auf diesem Weg:

Code:

---

Sub Transponieren()
  Dim lngZeile As Long
  For lngZeile = 1 To 28 Step 9
      Range(Cells(lngZeile, 1), Cells(lngZeile + 8, 1)).Copy
      Cells(IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count) + 1, 2).PasteSpecial _
        Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
  Next lngZeile
End Sub

---

Spalte A und Zeile 1 kannst du im Anschluss an die Schleife noch löschen.

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Beverly,

Danken, der Code funktioniert einwadfrei und ist noch dazu um einiges kürzer als der von online-excel.de!
Schöne Sonntag noch.

------------------
Mit freundlichen Grüßen

CADdoctor

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen,

auch wenn es schon eine Lösung gibt, würde mich interessieren: Warum nicht über Bordmittel? (Zugegeben, ich habe in den Anhang nicht hineingesehen.)

Bereich markieren - kopieren - Inhalte einfügen (z. B. über die rechte Maustaste - Inhalte einfügen...) und bei den Optionen unten "Transponieren" mit einem Häkchen versehen?

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

weil in diesem Fall die gesamte Spalte fortlaufend transponiert wird. Es sollen aber immer nur 9 Zellen transponiert werden und die nächsten 9 jeweils darunter als neue Zeile - wenn man sich die Arbeitsmappe anschaut, dann wird einem das klar 

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP