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

Beiträge aus den Excel-Beispielen zum Thema "Ummodeln von Zeilen in Spalten...."