Office: Zeile in bestimmte Tabelle kopieren, Bestimmung durch Inhalt in Zelle

Hallo Liebe Excel User,

ich benutze MS Office 2007 und habe ein Anliegen wo ich selber nicht weiter komme. Ich habe eine Beispiel Datei angehängt.

Ich kopiere wöchentlich aus einer Datei die neuen Zeilen raus und füge es in meine Excel-Datei ein.
So ist die offene Datei wieder leer und ich habe meine Daten für weitere Bearbeitung.

Bisher habe ich immer über >Daten>Sortieren die Spalte C 'Kat.' & Spalte B 'Datum' sortieren lassen und die einzelne Felder kopiert und in die dazugehörige Tabelle eingefügt. Jedoch sind es schon über 900 Zeilen und habe gerade gemerkt das ich das letzte Mal nicht richtig gearbeitet habe, den jetzt ist einiges durcheinander.

Deshalb meine Frage ob es möglich ist das irgendwie automatisch laufen zu lassen.
Sprich ich füge meine Zeilen in Tabelle 'Eingabe' ein und Excel sollte dann alleine die neuen Zeilen in die einzelnen Tabellen aufteilen und einfügen.
Jedoch lösche ich diese Zeilen in Tabelle 'Eingabe' nicht. Die sollen hier stehen bleiben, sortiert nach Spalte A 'Nr.'

Spalte C 'Kat.' hat nur ein Buchstabe und wenn die Zeile darin ein 'A' hat, dann soll der Eintrag in Tabelle A sein, wenn es 'S' ist dann in Tabelle 'S'.

Wenn etwas noch unklar sein sollte, dann fragt mich bitte, mir ist es wichtig das ich mir das irgendwie erleichtern kann. Für jede Idee bin ich dankbar.

Schöne Grüße
Emi

 

Hallo Emi,

in Deine Excel-Datei habe ich das Makro "Nach_Kat_Verteilen" aufgenommen, das Deinen Wünschen entgegenkommen sollte.

Zu beachten ist, dass in den Kat-Blättern "A" bis "S" die leeren Zeilen tatsächlich leer sein müssen - diese Leerzeilen dürfen auch nicht in Spalte A vornummeriert sein. Die laufende Nummer dieser Blätter in Spalte A wird vom Makro automatisch fortgeschrieben. Diese Blätter dürfen jedoch nicht gänzlich leer sein, sondern müssen 1 Überschriftenzeile in Zeile 1 enthalten und eventuell daran anschließende weitere (bereits) zugewiesene Datenzeilen.

Vorgangsweise:
1) Du fügst im Blatt "Eingabe" Deine externe Daten an den bestehenden Datenbestand an.
2) Du markierst diesen angefügten Datenbestand (es müssen nur alle zu verteilenden Zeilen in irgendeiner Weise markiert sein: es genügt, wenn Du die entsprechenden Zellen der Spalte A markierst).
3) Aufruf des Verteilmakros, indem Du die Tastenkombination Alt+F8 drückst, gefolgt von der Eingabe-Taste.

 

Hallo Anton Exl,

vielen Lieben Dank für diese Lösung. Sie funktioniert einwandfrei, leider konnte ich nicht früher daran weiterarbeiten.

Nun habe ich jetzt nach paar Versuche gemerkt das man schnell ausversehen die alten Datensätze mitmarkiert (also mir ist jetzt 2 mal passiert das ich den letzten mitmarkiert habe) und erneut in die Tabelle einfügte.
Eigentlich kann das nicht passieren wenn man nach dem Einfügen gleich deinen Verteiler startet, da das eingefügte markiert ist.
Jedoch gehe ich die Zeilen durch um kleine Fehler zu verbessern oder große Fehler zu löschen. Kann ich nicht beim Ausführen des Verteilers nicht irgendwie mit 'Interior.ColorIndex' diese Zeilen gleich einfärben in hellgrau oder hellblau? Vielleicht sogar abwechselnd, so das man erkennen kann welche gemeinsam eingefügt wurden?
Naja, in den einzelnen Tabellen wäre das einfärben jedoch unnötig.

Ich Liebe VBA, leider mag mich VBA garnicht. ;)
Hab selber versucht das Eingefügte zu färben... leider mit falschem Erfolg.
(Selection.Interior.ColorIndex = 15)

 

Hallo,

in der nachfolgenden Excel-Datei habe ich Dir eine ColorIndex-Lösung eingebaut.

Sobald Du das Makro aufrufst, wird eine Inputbox eingeblendet, in der angezeigt wird, welchen ColorIndex die Zelle oberhalb des selektierten Zellbereichs hat und welchen ColorIndex die 1. Zelle des selektierten Zellbereichs hat, welcher auch gleichzeitig im Eingabefeld der Box als Vorgabewert angezeigt wird.
Du hast zu diesem Zeitpunkt folgende Möglichkeiten:
1) Du akzeptierst die angezeigten Werte und klickst auf den 'Ok'-Button
2) Du änderst den vorgeschlagenen ColorIndex-Wert im Eingabefeld ab und klickst ebenfalls auf 'Ok'
3) Du bist damit gänzlich unzufrieden und klickst auf den 'Abbrechen'-Button, womit Du die Ausführung des Makros abbrichst.
Falls Du im Fall von Punkt 2) einen Wert eingibst, der in keine Zahl umgewandelt werden kann, wird die InputBox nochmals für einen weiteren Versuch angezeigt.
Im Falle von Punkt 1) bzw. 2) wird der zu verteilende Zellbereich mit der Farbe des ColorIndex eingefärbt und anschließend die Zeilen dieses Bereiches auf die Kategorien-Blätter verteilt in der Farbe des selektierten Zellbereiches.