Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Daten sortieren und kopieren

Daten sortieren und kopieren
02.11.2005 09:21:45
Thomas
Hallo zusammen,
ich habe folgende Aufgabe zu lösen:
Ich importiere daten aus einer anderen Datei in mein Tabellenblatt2.
Die Daten sehen folgendermaßen aus: DATUM / NAME / OBJEKT / TÄTIGKEIT / USW....
Die importierten Daten sind nicht sortiert.
Jetzt möchte ich die daten nach Datum sortiert haben und dann blockweise auf tabelle1 bekommen.
Also wenn da zb. die daten so aussehen:
11.10.05 xx xxx xxx xxx
14.10.o5 xxx xxx xxx xxx
9.10.05 xxx xxx xxx xxx
11.10.05 xxx xxx xxx xxx
9.10.05 xxx xxx xxx xxx
Dann soll auf tabelle 1 stehen:
9.10.05 xxx xxx xx xxx
9.10.05 xxx xxx xxx xxx
11.10.05 xxx xxx xxx xxx
14.10.05 xxx xxx xxx
14.10.05 xxx xxx xxx
Also nach datum sortiert und immer eine leere zeile dazwischen.
Freue mich über alle Ideen !!!
Mfg, Thomas
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten sortieren und kopieren
02.11.2005 10:15:53
Matthias
Hallo Thomas,

Sub Datumsblöcke()
Dim lz As Long, i As Long
'Sortieren 'bei Überschrit A1 ändern nach A2!
Cells.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'Leerzeilen einfügen
lz = Cells(Rows.Count, 1).End(xlUp).Row
For i = lz To 2 Step -1
If Cells(i, 1) <> Cells(i - 1, 1) Then
Cells(i, 1).EntireRow.Insert
End If
Next i

Gruß Matthias
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige