Inhalte gleicher Spaltenüberschriften kopieren
11.06.2003 16:22:08
the_z
ich würde gerne aus einer Tabelle, Inhalte(nur Werte) bestimmter Spalten in eine weitere vorhandene Tabelle kopieren. Dabei sollte sich das Script an vorhandenen Spaltenüberschriften in beiden Tabellen (jeweils 1 Datei) orientieren, um die Inhalte richtig zuzuordnen. Dabei darf eine unterschiedliche Anordnung der Spalten keine Rolle spielen.
Hab dazu schon folgenden Code, der so abgeändert werden müsste das er mit 2 definierbaren Dateien funktioniert:
Sub Kopieren()
Dim Spalte As Integer, Spalte2 As Integer
For Spalte = 1 To Sheets(1).Cells.SpecialCells(xlLastCell).Column
Spalte2 = 1
Columns(Spalte).Copy
While Worksheets(2).Cells(1, Spalte2).Value <> Worksheets(1).Cells(1, Spalte).Value
Spalte2 = Spalte2 + 1
Wend
Worksheets(2).Activate
Cells(1, Spalte2).Select
ActiveSheet.Paste
Worksheets(1).Activate
Next Spalte
End Sub
in einem Excelsheet funzt es sehr gut. thx an mike
Aber das Script soll mit 2 verschiedenen Dateien arbeiten die im Code definiert werden können.
thx
martin