ich habe in einer Datei zwei Blätter "Eingabe" und "Zuordnungstabelle" mit identischen Spaltenüberschriften. In "Eingabe" werden Adressdaten u.ä. eingetragen. Über untenstehenden Code werden alle Zeilen, die in Spalte A ein "a" haben, in die "Zuordnungstabelle" kopiert - dies über einen festen Bereich von Spalte B bis Spalte AG.
Sub Tabelle_füllen()
Dim objRang As Range
Set objRang = ActiveSheet.Range(Cells(2, 1), _
Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1))
Application.ScreenUpdating = False
With ActiveSheet
For Each c In objRang
If c = "a" Then
.Range(Cells(c.Row, 2), Cells(c.Row, 33)).Copy _
Destination:=Worksheets("Zuordnungstabelle").Cells(Sheets(" _
Zuordnungstabelle"). _
Cells(Rows.Count, 5).End(xlUp).Row + 1, 2)
End If
Next
End With
End Sub
Mein Problem ist nun, dass wenn in "Eingabe" neue Felder unter Umständen nötig sind, mit obigem Code über den Range dann die Einträge nicht mehr zwingend der richtigen Spalte zugeordnet sind. (Wenn ich neue Felder immer rechts, außerhalb meines Range einfüge habe ich kein Problem - logisch, aber es kann vorkommen, dass auch zwischendrin neue Felder eingefügt werden müssen.)Daher die Frage, wie der Code geändert werden muss, um die Einträge den identischen Spaltenbeschriftungen zuzuordnen, also ein Abgleich der Spaltenüberschriften erfolgt.
Hintergrund: Ich greife aus einer anderen Datei auf die "Zuordnungstabelle" per SVERWEIS zu, und damit darf sich die Spaltennummer nicht verändern.
Wenn mir (wiedermal) jemand helfen könnte?
Gruß,
Tobias