Wie kann man Zellen von links nach rechts in Excel transponieren?

Wenn wir Werte in ein Excel-Arbeitsblatt eingeben, tippen wir sie normalerweise von links nach rechts. In einigen Fällen möchten Sie jedoch möglicherweise Zellen von links nach rechts transponieren, wie im folgenden Screenshot gezeigt. Es gibt keine integrierte Funktion in Excel, die Ihnen dabei schnell helfen kann, aber in diesem Artikel zeige ich Ihnen einige Tricks, die Ihnen helfen können.

Zellen mit VBA von links nach rechts transponieren

Zellen mit Kutools für Excel von links nach rechts oder von oben nach unten transponieren

Zellen mit VBA von links nach rechts transponieren

Um Zellen schnell ohne Formeln von links nach rechts zu transponieren, können Sie einen VBA-Code verwenden.

Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das leere Skript ein.

VBA: Transponieren von links nach rechts

Sub RearrangeColumns()
'UpdatebyExtenoffice20161125
  Dim xLng, i As Long, LastRow As Long, Letters As Variant, NewLetters As Variant
  Dim strTemp As String
 
  On Error Resume Next
    strTemp = Application.InputBox _
    (Prompt:="Enter the column you want to transpose with comma separate", _
    Title:="Kutools For Excel", Type:=2)
    For i = Len(strTemp) To 1 Step -1
       NewOrder = NewOrder + Mid(strTemp, i, 1)
    Next i

  LastRow = Cells.Find(What:="*", SearchOrder:=xlRows, _
            SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row
  Letters = Split(NewOrder, ",")
  ReDim NewLetters(1 To UBound(Letters) + 1)
  Application.ScreenUpdating = False
  For xLng = 0 To UBound(Letters)
    NewLetters(xLng + 1) = Columns(Letters(xLng)).Column
  Next
  Application.ScreenUpdating = True
  Range("A1").Resize(LastRow, UBound(Letters) + 1) = _
  Application.Index(Cells, Evaluate("ROW(1:" & LastRow & ")"), NewLetters)
End Sub

3. Drücken Sie F5 , um den Code auszuführen. Ein Dialogfeld erscheint, in dem Sie die Spaltenbuchstaben eingeben können, die Sie transponieren möchten. Trennen Sie diese Spaltenbuchstaben durch Kommas, wie im folgenden Screenshot gezeigt.

4. Klicken Sie auf OK. Nun wurden die ausgewählten Zellen von links nach rechts transponiert.

Zellen mit Kutools für Excel von links nach rechts oder von oben nach unten transponieren

Wenn Sie Kutools für Excel installiert haben, können Sie Zellen schnell von links nach rechts oder von oben nach unten mit den Hilfsprogrammen „Bereich horizontal umkehren“ und „Bereich vertikal umkehren“ transponieren.

Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor: (Jetzt kostenlos Kutools für Excel herunterladen!)

Wählen Sie die Zellen aus, die Sie von links nach rechts oder von oben nach unten transponieren möchten, und klicken Sie auf Kutools > Bereich > Bereich horizontal umkehren/Bereich vertikal umkehren > Alles oder Nur Werte umkehren. Siehe Screenshots:

Bereich horizontal umkehren > Alles:

Horizontal umkehren > Nur Werte umkehren:

Bereich vertikal umkehren > Alles:	Bereich vertikal umkehren > Nur Werte umkehren:

Demo: Zellen mit Kutools für Excel von links nach rechts oder von oben nach unten transponieren

Sie könnten daran interessiert sein:

• Wie kann man beim automatischen Ausfüllen nach unten/rechts in Excel Referenzen transponieren?
• Wie kann man in Excel Werte transponieren und verknüpfen?