Hallo zusammen,

nach langen Stöbern und probieren habe ich meine Lösung nicht finden können... Leider bin ich kein Eexperte...

In einem komplexen Makro mit vielen zwischenschritten möchte ich eine einfache Aufgabe erledigen. Ich führe verschiedene Listen/Datensätze aus 100en Excel-Listen zusammen. Dazu kopiere ich per Makro die Inhalte der externen Exceldatei auf das Tabellenblatt 6. Per Makro wird in Tabelle7 die passende Überschrift gesucht und die Datenreihen sortiert eingefügt, um eine einheitliche Strucktur zu generieren. Anschließend wird der Datensatz bis auf die erste Zeile (überschrift) ausgeschnitten und auf Tabellenblatt 8 unter den bisherigen Datensätzen geschrieben. Anschließend wird Tabellenblatt 6 geleert und der nächste Datensatz wird aufgerufen und das spiel geht von vorne los. In einem zwischenschritt möchte ich fehlende Überschriften auf dem Tabelleblatt 7 und 8 ergänzen, da die Datensätze variieren und in der Spaltenanzahl nicht konsistent sind. Mal hat man 6, mal 10 Überschriften/ Spalten unsw.. In meinem Code werden bisher nur die vorhandenen Spalten von Tab.6 zu Tab.7 kopiert und die fehlenden Überschriften samt Daten aus Tab.6 bleiben auf der Strecke. Als Bsp.:

Tabelle6 von A1:A10: "Name", "ID", "Nummer", "Ort","name1","name3",....

Tabelle7 von A1:A6:  "Name","Nummer","ID","Ort1","name2",...

=> Name, ID, Nummer: werden sortiert übernommen

=>name1, name3 ,... Daten werden nicht auf Tbb. 7 übernommen, da keine passende überschrift vorhanden ist.

gibt es eine einfache möglichkeit die Überschrift in Tab. 7/8 zu ergänzen? Die Reihenfolge der ergänzten Daten spielt erstmal keine Rolle.

Also am ende muss nicht "name", "name1",... stehen. Es reicht, die fehlenden Überschriften hinten anzuhängen.

Vielen Dank um Voraus!