Daten "transponieren"

Forumthread: Daten "transponieren"

04.05.2005 20:38:59

Jürgen

Hallo Leute,
ich habe ein kleines Problem:
Ich möchte Datensätze die untereinander stehen, nebeneinander Kopieren, damit ich sie sortieren kann.
Immer 8 Zeilen bilden einen Datensatz (incl. Leerzeile).
Die Daten stehen jeweils in der ersten Zelle.
Transponieren funktioniert schon, aber die Datensätze stehen nicht untereinander.
Mit weiteren Variabeln wird das Problem nur schlimmer.
Wer kann mir weiterhelfen ?
Vielen Dank
Mein Versuch:
https://www.herber.de/bbs/user/22182.xls

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Daten "transponieren"

04.05.2005 21:01:37

Hajo_Zi
AW: Daten "transponieren"

04.05.2005 22:25:06

Jürgen
AW: Daten "transponieren"

05.05.2005 00:17:41

Herbert

AW: Daten "transponieren"

04.05.2005 21:01:37

Hajo_Zi

Hallo Jürgen,


Private Sub CommandButton1_Click()
'* H. Ziplies                                     *
'* 12.12.04, 04.05.05                             *
'* erstellt von Hajo.Ziplies@web.de               *
'* <a href="http://home.media-n.de/ziplies/">http://home.media-n.de/ziplies/</a> *
'   ein Datensatz besteht immer aus 8 Zeilen, einschl Leerzeile
'   soll umgeordnet beginend ab C1
Dim LoLetzte As Long, LoZeile As Long
Dim RaO As Range
With Worksheets("Tabelle1")
Columns("C:I").ClearContents
LoLetzte = IIf(IsEmpty(.Range("A65536")), .Range("A65536").End(xlUp).Row, 65536)
For LoZeile = LoLetzte To 1 Step -8
.Cells(LoZeile, 9) = .Cells(LoZeile, 1)
.Cells(LoZeile, 8) = .Cells(LoZeile - 1, 1)
.Cells(LoZeile, 7) = .Cells(LoZeile - 2, 1)
.Cells(LoZeile, 6) = .Cells(LoZeile - 3, 1)
.Cells(LoZeile, 5) = .Cells(LoZeile - 4, 1)
.Cells(LoZeile, 4) = .Cells(LoZeile - 5, 1)
.Cells(LoZeile, 3) = .Cells(LoZeile - 6, 1)
Next LoZeile
'       alte Zeilen löschen die in Spalte C leer sind
Set RaO = .Range("C1:C" & LoLetzte).SpecialCells(xlCellTypeBlanks)
RaO.EntireRow.Delete
Columns("A").ClearContents
End With
Set RaO = Nothing
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.

"Wer Rechtschreibfehler findet, darf sie behalten!"
Dies gilt auch für Bert.

AW: Daten "transponieren"

04.05.2005 22:25:06

Jürgen

Danke Hajo!
Wenn alle Daten kopiert wurden steigt es leider bei der Zeile
Set RaO = .Range("C1:C" & LoLetzte).SpecialCells(xlCellTypeBlanks)
aus. Kennt Office97 diesen Befehl ?
Die leeren Zeilen fallen beim sortieren eh weg.
Nochmals Danke
Jürgen

AW: Daten "transponieren"

05.05.2005 00:17:41

Herbert

'* erstellt von Hajo.Ziplies@web.de *
Das sagt doch eigentlich alles!
mfg Herbert

Beliebteste Forumthreads (12 Monate)

Forumthread: Daten "transponieren"

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread