Supportnet / Forum / Tabellenkalkulation
excel Liste formatieren
Frage
Hallo,
kann mir jemand sagen wie ich folgende Excel Datei richtig formatiert bekomme...
So sieht die Datei momentan aus:
Vorname
Name
Strasse
PLZ
Ort
Vorname
Name
Strasse
PLZ
Ort
Vorname
Name
Strasse
PLZ
Ort
usw.
Ich will sie aber wie folgt möglichst automatisch formatieren lassen:
Vorname, Name, Strasse, PLZ, Ort
Vorname, Name, Strasse, PLZ, Ort
Vorname, Name, Strasse, PLZ, Ort
Wie kann ich das am besten anstellen?
Danke für Eure Hilfe!
Antwort 1 von Saarbauer
Hallo,
versuch es mal mit dem VBA-Modul
Sub Umsortieren()
Range("a1").Select
Zeile = Range("A65536").End(xlUp).Row / 6
For i = 1 To Zeile
Range(("b" & i)).Value = Range(("a" & i + 1)).Value
Range(("c" & i)).Value = Range(("a" & i + 2)).Value
Range(("d" & i)).Value = Range(("a" & i + 3)).Value
Range(("e" & i)).Value = Range(("a" & i + 4)).Value
Rows((i + 1) & ":" & (i + 4)).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Next i
End Sub
Gruß
Helmut
versuch es mal mit dem VBA-Modul
Sub Umsortieren()
Range("a1").Select
Zeile = Range("A65536").End(xlUp).Row / 6
For i = 1 To Zeile
Range(("b" & i)).Value = Range(("a" & i + 1)).Value
Range(("c" & i)).Value = Range(("a" & i + 2)).Value
Range(("d" & i)).Value = Range(("a" & i + 3)).Value
Range(("e" & i)).Value = Range(("a" & i + 4)).Value
Rows((i + 1) & ":" & (i + 4)).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Next i
End Sub
Gruß
Helmut
Antwort 2 von Saarbauer
Hallo,
Zeile = Range("A65536").End(xlUp).Row / 6
berichtigen in
Zeile = Range("A65536").End(xlUp).Row / 5
Gruß
Helmut
Zeile = Range("A65536").End(xlUp).Row / 6
berichtigen in
Zeile = Range("A65536").End(xlUp).Row / 5
Gruß
Helmut