3 Spalten in eine Zeile transponieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hey NoNet,
dir auch noch einmal vielen Dank für die schnelle Hilfestellung! Die Arbeit mit dem Datensatz hat sich dadurch für mich extrem vereinfacht. Ich hätte nun abschließender Weise nochmal eine zusätzliche Frage, nachdem ihr mir in so guter Weise das Potential von Excel aufgezegit habt.
Wie ich den Zeilenumbruch beliebig setzten kann habe ich nun verstanden und wende es sehr effektiv an, es ist nun aber der Fall, dass ich den Umbruch oftmals nach einer unterschiedlichen Anzahl von Orten brauche. Ich habe daher den Orten eine Art Auftragsnummer zugeordnet, die nun in der 3. Spalte aufgeführt wird:
PLZ1 | ORT 1| NR 1|
PLZ2 | ORT 2| NR 1|
PLZ3 | ORT 3| NR 1|
PLZ4 | ORT 4| NR 2|
PLZ5 | ORT 5| NR 2|
PLZ6 | ORT 6| NR 3|
...
Ich wollte euch nun abschlißend fragen, ob es mit Hilfe einer Wenn Dann Regel die Möglichkeit gibt, dass Excel sobald sich die Nummer in der dritten Spalte ändert, automatisch eine Zeile beginnt. Also das fertige Ergebnis so aussehen würde:
PLZ1 | ORT 1| NR 1|PLZ2 | ORT 2| NR 1|PLZ3 | ORT 3| NR 1|
PLZ4 | ORT 4| NR 2|PLZ5 | ORT 5| NR 2|
PLZ6 | ORT 6| NR 3|...
Freundliche Grüße
Hannes

Hallo Hannes,
nur zur Ergänzung : Noch eine kleine VBA-Lösung :

Sub ZeilenKopieren()
'Indikator (Nr.) muss in der letzten Spalte der Quelle-Liste stehen !
Dim rngQuelle As Range, wsQuelle As Worksheet
Dim rngZiel As Range, wsZiel As Worksheet
Dim lngQZ As Long, lngQS As Long, lngA As Long
Dim lngZZ As Long, lngZS As Long
Set wsQuelle = Worksheets("Input")      'Quelldaten auf Blatt "Input"
Set wsZiel = Worksheets("Output")       'zieldaten nach Blatt "Output"
Set rngQuelle = wsQuelle.Range("A1")    'Die Startadresse auf Quell-Blatt
Set rngZiel = wsZiel.Range("A1")        'Die Zieladresse auf dem Ziel-Blatt
lngQS = rngQuelle.Column                'Erste Spalte der Quelle ermitteln
lngZZ = rngZiel.Row                     'Erste Zielzeile ermitteln
lngA = rngQuelle.End(xlToRight).Column - rngQuelle.Column + 1 'Anzahl der Spalten
For lngQZ = rngQuelle.Row To rngQuelle.End(xlDown).Row
If lngQZ = rngQuelle.Row Then 'erste Zeile kopieren
rngQuelle.Resize(, lngA).Copy rngZiel
Else
If wsQuelle.Cells(lngQZ, lngQS + lngA - 1) = _
wsQuelle.Cells(lngQZ - 1, lngQS + lngA - 1) Then
lngZS = lngZS + lngA
Else
lngZZ = lngZZ + 1
lngZS = rngZiel.Column
End If
wsQuelle.Cells(lngQZ, lngQS).Resize(, lngA).Copy wsZiel.Cells(lngZZ, lngZS)
End If
Next
Application.CutCopyMode = False
End Sub

Gruß, NoNet

Hast Du Interesse, andere Excel-Begeisterte kennenzulernen ? - Dann komme zum
Exceltreffen 11.-13.10.2013 in Duisburg
http://www.exceltreffen.de/index.php?page=230
Es sind noch genügend Plätze für Interessenten frei - schau doch mal rein !

Beliebteste Forumthreads (12 Monate)

3 Spalten in eine Zeile transponieren

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3 Spalten in eine Zeile transponieren

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread