Office: Sortieren von Daten

Hallo,

ich wollte die Daten nach bestimmtem Muster sortieren. Zwar habe ich ein Makro geschrieben und es auch funktioniert aber es ist zu langsam (insb. Code fürs Suchen der Daten und Kopieren in die entsprechenden Spalten). Der Code sollte ca. 550 000 Daten so schell wie möglich von der Ursprungsdatei in die Zyklus-Datei übertragen.
Habt ihr ein Vorschlag dazu?

Gruß Tom

Code:

:)

 

Hallo Tom,

Dann beschreib doch mal anschaulich, welche Daten der Ursprungsdatei wie in die Zyklus-Datei zu übertragen sind.
Das ist für den Helfer mE mehr zielführend, als sich die Aufgabenstellung mühsam aus einem Makro-Torso herauslesen zu müssen.

Gruß
Aloys

 

Moin,

Code:

dürfte so einiges bringen. Und am Ende natürlich zurück setzen *wink.gif*

Ansonsten: In der angehängten Datei habe ich keine einzige Zeile Code gefunden …

 

Hallo,

also Makro sollte folgendes machen:

- wenn in Register: Quelle in Spalte "G" (Station) besipielweise 1 steht dann Makro kopiert die Zellen: Datum, Stunde, Minunte, Sekunde, Linie ud Artikel in die nächste freie Zeile in Register: Zyklus (in die Spalten A:F); noch besser wäre wenn Makro konnte gleich die Zellen: Stunde, Minute und Sekunde zu einer Zelle (Uhrzeit) verbinden und statt 3 Spalten in Register: Zyklus hätte ich bloss eine Spalte mit Uhrzeit. Ich glaube, in dem Fall , das Makro hätte noch länger gebraucht um alle Zellen zu übertragen

- dazu sollte der Wert von Spalte H (in Register: Quelle) in die entsprechende Spalte (Spalten G bis AD je nach Nummer der Station) in Register: Zyklus kopiert werden (beispielweise wenn in Register: Quelle Spalte G = 1, dann kopiert den Wert von Spalte H (Register: Quelle) in Register: Zyklus Spalte G (diese Spalte ist für Station 1 gedacht).

Gruss
Tom

 

Hallo Tom,

wenn es denn superschnell sein soll: Wie sieht es mit einer Pivot-Tabelle aus? In Quelle habe ich eine Hilfsspalte eingebaut, um "vernünftig" arbeiten zu können.

Ich sehe, dass das Ziel nicht exakt so aussieht wie Zyklus, aber das eine was du willst, das andere was möglich ist *mrcool

 

Hallo Tom,

eine weitere Lösung auf Basis eines Arrays Tom.xlsm

Gruß
Aloys

 

Moin Tom,

und jetzt noch einmal als VBA-Version. Einfach einmal probieren. Name des Ziel-Sheets natürlich noch bei dir anpassen *wink.gif*

 

Hallo,

@GMG-CC
@aloys78

beide Lösungen finde ich interessant*wink.gif*. Auf den ersten Blick scheint der Vorschlag mit Array einfacher zu sein. Morgen werde ich diese Lösungen für die kompletten Daten ca. 550 000 Zeilen testen.
Erstmal Vielen Dank

 

Hallo,

ich habe die Lösungen getestet, beide funktioneren. Jedoch habe ich ein kleines Problem mit Array. Es wird eine Tabelle mit ca. 51.000 Zeilen und 28 Spalten erzeugt. Es sollte aber die Tabelle mit ca. 150.000 Zeilen generiert werden. Die restlichen 100.000 Zeilen gehen verloren.
Ich habe der oryginale Code von Aloys78 für 150.000 Zeilen getestet und es funktioniert. Alle Zyklen werden in die Tabelle übernommen, in meiner von Modifikation von Code leider nicht. Woran liegt es? Hat Array eine Begrenzung? Wo habe ich einen Fehler gemacht?

Anbei der Code
Code:

Gruss
Tom

 

Hallo Tom,

natürlich hatte ich zuerst auch an ein Array gedacht. Ist prinzipiell immer schneller. Aber diese Riesenmenge an Daten muss bei einem Array komplett in den Arbeitsspeicher, und das wird schnell knapp. OK, es gibt auch noch so etwas wie eine Auslagerungsdatei, aber dann geht der Speed ganz schön schnell verloren.

Ich habe mir deine geänderte Lösung nicht weiter angesehen, weil ... na ja, siehe hierüber.

 

Hallo GMG-CC,

leider kann ich die komplette Datei mit Code hier nicht hochladen - einfach zu gross.
Ich verstehe nicht, was anderes in meinem Code gibt in Vergleich zu Vorschlag vom Aloys78 und wieso Array bei mir so schnell voll ist. Für den ersten Array (1. Schicht, ca. 45 000 Zeilen) habe ich keinen Datenverlust, erst für 2. und 3. Schicht gehen die Daten verloren (ab ca. Zeile 51000 keine Daten mehr).
Ich wollte nach dem Kopieren der Daten von 1. Schicht Array zurücksetzen (beleeren: Erase arr) und für 2. Schicht wieder neu mit Daten befüllen aber ohne Erfolg.

 

Hallo Tom,

(ich bin übrigens der Günther, siehe Signatur),
also, du sollst ja auch nicht die komplette Datei hochladen. Was ich meinte: Die Datenmenge ist wahrscheinlich für eine ArrayLösung zu groß, darum habe ich weiter oben ja auch einen Code vorgestellt, der mit ziemlicher Sicherheit auch bei 1.000.000 Zeilen nicht "abschmiert".

Davon abgesehen (ich habe mir bislang den Kommentar bewusst "verkniffen"): Solche Datenmengen sind eher ein Fall für eine Datenbank als für Excel ... *mrcool

Dein geänderter Code basiert ja auf der Array-Lösung; vielleicht setzt sich Aloys damit noch einmal auseinander (ich tue es hier aus den in meinem vorherigen Beitrag genannten Gründen aus Überzeugung nicht).

 

Hallo Tom,

dass solche Datenmengen für Excel nicht typisch sind, da gebe ich Günther Recht.
Meine Lösung auf Array-Basis habe ich mit über 550 000 Zeilen getestet, in dem ich deine 1048 Zeilen 550 mal per VBA-Code kopiert habe. Die ganze Verarbeitung dauert dann 130 Sek, was mE bei dieser Datenmenge akzeptabel ist.

Warum es bei Dir nicht läuft, kann ich dir nicht sagen. Und ich verspüre auch keine Neigung, in diesem Code nach möglichen Fehlern zu suchen. Gründe:
- du erwartest offenbar, dass man aus dem Code wieder die Aufgabenstellung ableiten soll; diese unterscheidet sich offenbar von der bisher geschilderten,
- davon abgesehen ist der Code nicht strukturiert und nur schwer lesbar.

Ich empfehle dir, die Aufgabenstellung hier anhand einer Beispieldatei anschaulich zu beschreiben; der vorhandene Code kann da Beiwerk sein.

Gruß
Aloys