|
Autor
|
Thema: Tabelle mit Werten Transponieren (2026 mal gelesen)
|
CADdoctor
Mitglied
Technischer Zeichner (Versorgungstechnik)
   Beiträge: 313
Registriert: 12.05.2007 Software:
AutoCAD MEP 2013
Excellink 2013
Windows 7 x64 Pro SP 1
Office 2010 SP 1
Mozilla Firefox 13.0.1
Mozilla Thunderbird 13.0.1<P>Hardware:
ASUS P6T WS Professional
Intel Core i7-920, 4x 2.67GHz
PNY Quadro FX 1800
Kingston HyperX DIMM XMP Kit 6GB
Kingston HyperX SSD 120GB, SATA 6Gb/s
|
erstellt am: 04. Aug. 2012 10:12  <-- editieren / zitieren -->   Unities abgeben:          
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 |
CADdoctor
Mitglied
Technischer Zeichner (Versorgungstechnik)
Beiträge: 313
Registriert: 12.05.2007 Software:
AutoCAD MEP 2013
Excellink 2013
Windows 7 x64 Pro SP 1
Office 2010 SP 1
Mozilla Firefox 13.0.1
Mozilla Thunderbird 13.0.1<P>Hardware:
ASUS P6T WS Professional
Intel Core i7-920, 4x 2.67GHz
PNY Quadro FX 1800
Kingston HyperX DIMM XMP Kit 6GB
Kingston HyperX SSD 120GB, SATA 6Gb/s
|
erstellt am: 04. Aug. 2012 13:05 <-- editieren / zitieren --> Unities abgeben:
|
Beverly
Mitglied
Dipl.-Geologe (Rentner)
Beiträge: 394
Registriert: 11.08.2007
|
erstellt am: 05. Aug. 2012 09:26 <-- editieren / zitieren --> Unities abgeben: Nur für CADdoctor 
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 |
CADdoctor
Mitglied
Technischer Zeichner (Versorgungstechnik)
Beiträge: 313
Registriert: 12.05.2007 Software:
AutoCAD MEP 2013
Excellink 2013
Windows 7 x64 Pro SP 1
Office 2010 SP 1
Mozilla Firefox 13.0.1
Mozilla Thunderbird 13.0.1<P>Hardware:
ASUS P6T WS Professional
Intel Core i7-920, 4x 2.67GHz
PNY Quadro FX 1800
Kingston HyperX DIMM XMP Kit 6GB
Kingston HyperX SSD 120GB, SATA 6Gb/s
|
erstellt am: 05. Aug. 2012 12:04 <-- editieren / zitieren --> Unities abgeben:
|
Paulchen
Mitglied
Bauing./SW-Entwickler
Beiträge: 1227
Registriert: 19.08.2004 Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice
|
erstellt am: 06. Aug. 2012 09:04 <-- editieren / zitieren --> Unities abgeben: Nur für CADdoctor
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 |
Beverly
Mitglied
Dipl.-Geologe (Rentner)
Beiträge: 394
Registriert: 11.08.2007
|
erstellt am: 06. Aug. 2012 12:48 <-- editieren / zitieren --> Unities abgeben: Nur für CADdoctor
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 |
Foren auf CAD.de (alle Foren)
| 
