Thema Datum  Von Nutzer Rating
Antwort
29.09.2015 10:49:02 Matthias
NotSolved
Blau Excel Tabelle sortieren/transponieren
 29.09.2015 12:18:31 Günther
*****
Solved
29.09.2015 12:58:12 Matthias
NotSolved
30.09.2015 03:07:26 Günther
Solved
29.09.2015 12:58:13 Matthias
NotSolved

Ansicht des Beitrags:
Von:
Günther		 Datum:
29.09.2015 12:18:31		 Views:
899		 Rating:
     
Antwort:
 Nein
Thema:
Excel Tabelle sortieren/transponieren

Moin,

 

am einfachsten und schnellsten geht es mit PowerQuery und dann Entpivotisieren. Einen Ansatz dafür (und auch für ein Makro) findest du bei Excel-ist-sexy.de. Oder mit diesem Code:

Option Explicit

Sub TransformSpecial()
   Dim wksSrc As Worksheet, wksDst As Worksheet
   Dim lRowSrc As Integer, lCol As Integer, lRowDst As Long
   Dim Ze As Integer, Sp As Integer
   
   Set wksSrc = Sheets("Tabelle1")
   Set wksDst = Sheets("Tabelle2")
   With wksSrc
      lRowSrc = .Cells(Rows.Count, 1).End(xlUp).Row
      lCol = .Cells(1, Columns.Count).End(xlToLeft).Column
   End With
   For Ze = 1 To lRowSrc
      lRowDst = wksDst.Cells(Rows.Count, 1).End(xlUp).Row
      wksSrc.Range(Cells(Ze, 1), Cells(Ze, lCol)).Copy
      wksDst.Cells(lRowDst + 1, 1).PasteSpecial Transpose:=True
   Next Ze
   wksDst.Rows(1).EntireRow.Delete
End Sub


Gruß
Günther

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
29.09.2015 10:49:02 Matthias
NotSolved
Blau Excel Tabelle sortieren/transponieren
 29.09.2015 12:18:31 Günther
*****
Solved
29.09.2015 12:58:12 Matthias
NotSolved
30.09.2015 03:07:26 Günther
Solved
29.09.2015 12:58:13 Matthias
NotSolved