Makro: Spalten gemäß Mustertabelle verschieben

Question

Hallo Makro-Programmierer,
ich bekomme regelmäßig Tabellen in denen die Spaltenüberschriften (ab Spalte C; in Zeile 2 oder 3) alphanummerisch sortiert sind. Diese Tabellen kopiere ich dann in Dateien mit jeweils den selben Spaltenüberschriften, die dort aber anders angeordnet sind und zusätzliche Spalten für Gesamtsumme, Teilsummen und weitere Angaben enthalten.
z..B. in der "Tabelle neu" sind die Spalten wie folgt angeordnet:

Datum Text FB1 FB2 GF10 HB1 HB2 HB3 TT1 TT2 TT3

in der Tabelle "Muster" stehen die gleichen Spaltenüberschriften in den
Spalten:
A B H I N D E F J K L
Kann ein Makro eine solche Umsortierung der Spalten per Vergleich der beiden Tabellen herstellen? Dabei ist obiges eines von unterschiedlichen Mustern. Es geht um mehrere Dateien verschiedenen strukturen.
Die Anzahl der Zeilen spielt keine Rolle, die kompletten Spaltensollen umsortier werden.

Vielen Dank im voraus
mfg
Wolfgang

Answer 1

Hallo Wolfgang,

vergleich per Schleife die Überschriften, schreibe den Spaltenindex der gefundenen Spalte in eine Variable und den Spaltenindex der Spalte aus der Quelldatei in eine andere Variable. Kopiere per

Sheets("Quelldatei").Columns(Spaltenindex).Copy
Sheets("Zieldatei").Cells(1, SpaltendexGefunden).Insertdie Daten dann an die richtige Stelle.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 2

Guten Morgen Oliver,

vielen Dank schon mal für die Anregung.
Ob es mir gelingt, daraus ein funktionierendes Makro zu basteln, weiss ich nicht. Und werde es wohl frühestens Morgen probieren können. Wenn ich mich denn mal selbst versuche, ein Makro zu erstellen, dann brauche ich mehr Ruhe als ich hier im Büro habe.

mfg
Wolfgang