Office: (Office 2010) Excel Spalten untereinander neu nebeneinander anordnen

Jabbar · 12. Mai 2014

Hallo zusammen

Ich möchte eine Adressdatei bei welcher die Datensätze immer mit 2 Leerzeilen getrennt sind neu nebeneinander anordnen.

Die Beispieldatei findet ihr im Anhang. Reiter Beispiel wie es aussieht. Reiter Ende wie ich es mir vorstellt.

Gibt es hier einen einfachen Weg? Jeden Adresssatz transponieren ist sehr aufwändig. Die Liste ist effektiv noch grösser als die Beispieldatei!

Für sachdienliche Hinweise danke ich bestens!

Gruss

Jabbar

:)

Hajo_Zi · 13. Mai 2014

schaue mal hier Datensätze umschreiben

Jabbar · 14. Mai 2014

Hallo Hajo_Zi

Besten Dank für deinen Input! Das Problem bei mir ist, dass nicht alle Datensätze gleich gross sind. Ein paar haben 4 Zeilen ein paar haben 5 Zeilen.

Aus diesem Grund funktioniert dein Makro leider nicht es sei denn man könnte da sagen, immer nach der zweiten Leerzeile soll er einen Zeilenumbruch machen. So hätte ich zumindest 90% aller Datensätze korrekt und müsste nur noch die restlichen bereinigen.

Besten Dank für deine Rückmeldung.

Hajo_Zi · 14. Mai 2014

Code:

Sub Umordnen2()
'***********************************************
'* H. Ziplies *
'* 08.11.12 *
'* erstellt von HajoZiplies@web.de *
'* Homeseite - Hajo's Excelseiten *
'***********************************************
' Leerzelle as Trennung
' die Anzahl wird abgefragt, die Daten sind in Spalte B
' falls Spalte A belegt ist dies der Tabellenkopf
' es werden die Daten vom ersten Datensatz übernommen
' die Datensätze werden umgeordnet von einer Spalte in mehreren Zeilen
Dim LoLetzte As Long ' letzte Zeile
Dim LoZeile As Long ' Zeile in die geschrieben wird
Dim LoAnzahl As Long ' Zellen je Datensatzanzahl
Dim LoI As Long ' Schleifenvariable Zeile
Dim LoJ As Long ' Schleifenvariable Spalte
LoZeile = 1
Application.ScreenUpdating = False ' Bildschirmaktualisierung aus
With ActiveSheet
' letzte Zeile in der Datentabelle feststellen in Spalte B (2)
LoLetzte = IIf(IsEmpty(.Cells(Rows.Count, 2)), _
.Cells(Rows.Count, 2).End(xlUp).Row, .Rows.Count)
Sheets.Add After:=Sheets(Sheets.Count)
If .Cells(1, 1) "" Then ' Prüfen ob Tabellenkopf
LoAnzahl = IIf(IsEmpty(.Cells(Rows.Count, 1)), _
.Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count)
' Tabellenkopf schreiben einschl. Format und drehen um 90°
.Range(.Cells(1, 1), .Cells(LoAnzahl, 1)).Copy
Cells(LoZeile, 1).PasteSpecial Paste:=xlAll, Transpose:=True
LoZeile = LoZeile + 1
End If
' Schleife über alle Datensätze
For LoI = 1 To LoLetzte
If .Cells(LoI, 2) "" Then
' Datensatz umschreiben
For LoJ = 1 To Columns.Count
If .Cells(LoI, 2) = "" Then
Exit For
Else
Cells(LoZeile, LoJ) = .Cells(LoI, 2)
End If
LoI = LoI + 1
Next LoJ
LoZeile = LoZeile + 1
End If
Next LoI
End With
Cells.EntireColumn.AutoFit
Application.ScreenUpdating = True ' Bildschirmaktualisierzng ein
Application.CutCopyMode = False ' Zwischenspeicher löschen
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2010) Excel Spalten untereinander neu nebeneinander anordnen

Excel Spalten untereinander neu nebeneinander anordnen

Excel Spalten untereinander neu nebeneinander anordnen

Excel Spalten untereinander neu nebeneinander anordnen

Excel Spalten untereinander neu nebeneinander anordnen - Similar Threads - Excel Spalten untereinander

VBA: Spalten auf anderen Worksheeds in der Mappe ausblenden.

Excel VBA Spalten mit Ordnerinhalt vergleichen

Excel VBA - Code Hilfe (Spalten, Werte kopieren etc.)

Teil der Daten von Spalte A in Spalte B verschieben

Spalte gruppieren und aus den Inhalten jeweils eine Tabelle

Gleiche Werte in separate Spalte sortieren

Inhalte mehrer Spalten in zwei Spalten (untereinander)