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]