Excel-VBA Filtern und kopieren
11.04.2006 15:38:54
kunstname
Die Problemstellung:
Anfangsdatei: https://www.herber.de/bbs/user/32773.xls
Habe zum besseren Verständnis wie die Lösung aussehen soll angefangen, die Daten in dieser Datei mal manuell zu übertragen:
Die Datei https://www.herber.de/bbs/user/32774.xls wurde aus Datenschutzgründen gelöscht
B) Wenn 1.Wert aus Spalte 1 UNGLEICH 1.Wert aus folgender Zeile der Spalte 1 ist, dann soll die komplette 1.Zeile und die 2.Zeile auf ein neues Arbeitsblatt in einer neuen Arbeitsmappe geschrieben werden.
C) Wenn 1.Wert aus 2.Zeile GLEICH 1.Wert aus vorheriger Zeile, dann schreibe die gesamte 1.Zeile auf ein Arbeitsblatt einer automatisch neu erstellten Arbeitsmappe UND füge die Werte aus Spalte 2, 3 und 4 der 2.Zeile hinten an die neu eingefügte Zeile in der neuen Arbeitsmappe.
Dann: 1.Wert aus Spalte1 Zeile 3 = 1.Wert aus Spalte 1 der vorherigen Zeile?
Wenn ja, Werte aus Spalte 2,3 und 4 der 3.Zeile hinten an die 1.Zeile der vorhin neu erstellten Arbeitsmappe einfügen.
Das wiederholt sich so lange, bis 1.Wert der aktuellen Zeile NICHT gleich 1.Wert der vorherigen Zeile ist, dann soll die gesamte aktuelle Zeile in die vorhin neu erstellte Arbeitsmappe in die nächste freie Zeile kopiert werden.
Dann wieder zurück in das ursprüngliche Tabellenblatt: vergleichen ob 1.Wert der Spalte 1 der nächsten Zeile gleich dem 1.Wert der vorherigen Zeile ist. Wenn ja: Werte aus Spalte 2,3 und 4 dieser aktuellen Zeile hinten an die zuletzt eingefügte Zeile der vorhin neu erstellten Arbeitsmappe einfügen.
Das soll so lange ablaufen, bis alle Werte in Spalte 1 miteinander verglichen sind.
Der, der es schafft dieses Problem zu lösen ist mit Abstand DER Excel-Gott schlechthin....
Vieeeeeeeelen Dank schon mal im Voraus!!!!Grüße