Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
260to264
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
260to264
260to264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Daten Transformieren

Daten Transformieren
27.05.2003 17:16:18
Reinhold
Hallo,
ich habe Adressdaten die nur in der Spalte A erfasst wurden.
Nun möchte ich diese so Sortieren dass die zusammengehörigen Daten in einer Spalte stehen.
Jetzt stehen die Daten wie folgt:
in Spalte A
Z1: Name
Z2: Straße
Z3: PLZ und Ort
Z4: E-mail
Z5: Internet
Z6: leere Zeile
Z7: Name
Z8: Straße
Z9: PLZ und Ort
Z10: E-mail
Z11: Internet
Z12: leere Zeile
usw.
Wie kann ich die Daten automatisch umsortieren dass die Daten wie folgt stehen.
Z1: Z2: Z3: Z4: Z5:
Z7: Z8: Z9: Z10 Z11: Die Datensätze sind immer durch eine Leerzeile getrennt.
Gruß Reinhold

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

Betreff
Datum
Anwender
Anzeige
Re: Daten Transformieren
27.05.2003 17:54:24
Willie

Auf die schnelle kannst du es so machen!Sub umwandeln()
x = 1
For i = 1 To 10

Sheets("Tabelle2").Cells(i, 1).Value = Cells(i, 1).Value
Sheets("Tabelle2").Cells(i, 2).Value = Cells(i + 1, 1).Value
Sheets("Tabelle2").Cells(i, 3).Value = Cells(i + 2, 1).Value
Sheets("Tabelle2").Cells(i, 4).Value = Cells(i + 3, 1).Value
Sheets("Tabelle2").Cells(i, 5).Value = Cells(i + 4, 1).Value
Sheets("Tabelle2").Cells(i, 6).Value = Cells(i + 5, 1).Value
i = i + 5
Next
End Sub

Danach mußt du eben die Spalten sortieren wie du es brauchst
ich habe es getestet es geht
Gruß

Willie

Anzeige
Re: Daten Transformieren
27.05.2003 18:00:40
Willie

Anmerkung

for i = 1 to 10000 'Je nachdem wieviele Zeilen du hast

Willie

Re: Daten Transformieren
27.05.2003 19:59:11
Reinhold

Hallo Willie

vielen Dank, klappt prima

Gruß Reinhold

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige