Herbers Excel-Forum - das Archiv

Ummodeln von Zeilen in Spalten....

Bild

Betrifft: Ummodeln von Zeilen in Spalten....
von: Dirk

Geschrieben am: 23.02.2005 16:25:46
Ich habe folgendes Problem:
Ich habe in einem Excel-Blatt Informationen zu einem und denselben Artikel untereinander stehen:
Artikel Information
AL100 A
AL100 B
AL100 C
Diese Informationen muß ich aber nebeneinander stehen haben
Artikel Information
AL100 A B C
Wie bekomme ich das hin ?
Gruß
Dirk
Bild

Betrifft: AW: Ummodeln von Zeilen in Spalten....
von: M. Gottschalk
Geschrieben am: 23.02.2005 16:32:52
Hallo
Makiere deine daten und kopiere Sie!
klicken an eine beliebige freie stelle wo sie später stehen sollen.
und gehe dann über "Bearbeiten" auf "Inhalte Einfügen"
und mache ein Häckchen bei Transponieren.
Fertin!
Gruß m.gottschalk
Bild

Betrifft: AW: Ummodeln von Zeilen in Spalten....
von: Dirk
Geschrieben am: 23.02.2005 16:37:54
Danke für die prompte Nachricht:
Das Ergebnis sieht jetzt so aus:
AL100 AL100 AL100
A B C
Den Artikel AL100 will ich aber links vor den ganzen Informationen A / B / C stehen haben...gibt es dazu noch einen Kniff ?
Bild

Betrifft: AW: Ummodeln von Zeilen in Spalten....
von: M. Gottschalk

Geschrieben am: 23.02.2005 16:49:00
Probier doch zuerst mal die Daten zu trenn und dann so zusammen zufügen wie
du sie brauchst.
siehe Beispiel
https://www.herber.de/bbs/user/18614.xls
Bild

Betrifft: AW: Ummodeln von Zeilen in Spalten....
von: Roland Hochhäuser
Geschrieben am: 23.02.2005 16:34:12
Hallo Dirk,
schau dir mal in der Hilfe Transponieren an. Ich habe jetzt gerade kein Excel97 zur Hand, kann daher über die einzelnen Schritte nichts sagen.
Gruß Roland
Bild

Betrifft: AW: Ummodeln von Zeilen in Spalten....
von: UweD

Geschrieben am: 23.02.2005 16:57:35
Hallo Dirk

per Makro ginge es:
hab mal eine Musterdatei beigefügt:
https://www.herber.de/bbs/user/18616.xls

Sub sortieren()
Dim SP%, SA%, L1%, LR%, I%
SP = 1 'Spalte Artikel
SA = 2 'Werte Spalte
L1 = 1 'ab Zeile 1
With ActiveSheet
LR = ActiveSheet.Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
For I = LR To L1 + 1 Step -1
If .Cells(I - 1, SP) = .Cells(I, SP) Then
.Cells(I - 1, SA).Copy
.Cells(I, SA).Insert Shift:=xlToRight
.Rows(I - 1).Delete
End If
Next
End With
End Sub

Gruß UweD
 Bild
Excel-Beispiele zum Thema "Ummodeln von Zeilen in Spalten...."
Zeilenhöhe in cm festlegen Summe gefilterter Zeilen
Zeilenumbruch Leere Zeilen löschen
Spalten/Zeilen aus- und einblenden Zeilenumbruch in Formel erzwingen
Zeilen und Spalten über ein Drehfeld ein- und ausblenden Alle Kopf-/Fußzeilen-Festlegungen löschen
Fußzeilen beim Öffnen eintragen Zellinhalte zeilenweise sortieren