Filtern, sortieren, CopyPaste usw. PER MAKRO!
10.09.2018 09:02:48
Klaus
Ich kämpfe wiedereinmal seit geraumer Zeit mit einer "tollen Idee" von meinem Chef und komme einfach nicht auf die Lösung.
Ersteinmal hier die Beispieldatei: https://www.herber.de/bbs/user/123853.xlsx
Erklärung:
Im Blatt "data" werden manuell täglich aktuelle Abrufe aus einer anderen Tabelle eingefügt.
Im Blatt "Auswertung..." wird ein Suchergebniss ausgewertet. Z.B. wird in "data" nach einer Nummer (Spalte B) gesucht und gezählt. Spalte C gitb die Anzahl der gefundenen Nummer an, Spalte F ist ein aktueller Bestand, Spalte D die Differenz, usw...
(Blatt Auswertung ist eher unwichtig)
Was ich bzw. mein Chef nun benötigen:
1. Blatt "data" soll/muss gefiltert werden. Eine neu eingelesene Datei umfasst derzeit 5000 Zeilen mit vielen "unnötigen" Informationen. Der Filter soll, wenn eine neue Eingabe erfolgt alle Zeilen, in denen in Spalte U nichts steht löschen. (Das schrumpft die Menge schonmal um ca. 3000-3500 Zeilen!)
2. im Blatt "data" (Spalte U) soll nach den Nummern aus Blatt "Auswertung..." (Spalte B) gesucht werden. Wird eine Nummer gefunden soll die komplette Zeile in ein neues Blatt, dass als Namen die entsprechende Nummer hat fortlaufend eingefügt werden.
(Je Nummer ein neues Blatt. Wenn Nummer nicht gefunden, dann ignorieren/nichts tun)
3. (und wohl das schwierigste) In jedem neu erstellten Blatt muss nun sortiert werden nach Spalte R. Im Besten Fall ist der Liefertermin nun aufsteigend. Als letztes sollen im neuen Blatt (Bsp. 4100010224) fortlaufend die Zeilen gefärbt werden. Bedingung, im Blatt "Auswertung..." Spalte F stehende Zahl gibt an, wieviele Zeilen von oben grün gefärbt sein sollen (in dem Fall 5 Zeilen). Alles was darunter steht und gefüllt ist soll rot gefärbt werden.
4. Im Blatt "Auswertung..." ein Button, der das ganze Makro startet und einen 2. Button, mit dem ich nach getaner Arbeit, alle neu erstellten Blätter wieder löschen ("data" und "Auswertung..." müssen bleiben!) und den kompletten Inhalt aus Blatt "data" löschen kann.
Ich komme mitlerweile nicht einmal mehr auf die simpelsten Makro-Schnipsel hierfür. Habe mehrere Codes aus dem Forum hier probiert. Ansatzweise und mit einer Nummer funktionierten diese auch aber auf Grund der vielen (bis zu 50) Nummern, nach denen gesucht werden soll klappte dann nichts mehr.
Ich bitte (verzweifelt) um euer Hilfe und bin für alles dankbar, was ihr mir bietet.
Vielen, vielen Dank vorab :)