Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
688to692
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
688to692
688to692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

226 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige