Bestimmte Spalten (Überschrift) kopieren 2 Mappen
23.01.2018 21:48:50
Markus
ich habe unter C Dokumente einen Ordner in dem sich 3 Exceldateien befinden.
1) Master.xlsm
2) Datei1.xlsm
3) Datei2.xlsm
Nun möchte ich, aus Datei 1 und 2 nur bestimmte Spalten, anhand ihrer Überschrift, in die Master-Datei kopieren.
Dabei kommen:
die ausgewählten Spalten aus Datei1.xlsm in die Tabelle1 der Master.xlsm
Die ausgewählten Spalten der Datei2.xlsm in die Tabelle2 der Master.xlsm
Wie müsste ich folgenden Code modifizieren, welcher nur das Kopieren innerhalb einer Excel-Mappe ermöglicht. Ich scheitere immer dabei den Dateipfad unterzubekommen.
Public Sub Kopieren()
Dim WkSh_Q As Worksheet
Dim WkSh_Z As Worksheet
Dim rZelle As Range
Dim aUeberschr As Variant
Dim iIndx As Integer
Dim iSpalte As Integer
aUeberschr = Array("Name", "Alter", "Vorname")
Application.ScreenUpdating = False
Set WkSh_Q = Worksheets("Tabelle1") ' das Quell-Tabellenblatt
Set WkSh_Z = Worksheets("Tabelle2") ' das Ziel-Tabellenblatt
With WkSh_Q.Rows(1)
For iIndx = 0 To UBound(aUeberschr)
Set rZelle = .Find(aUeberschr(iIndx), LookAt:=xlWhole, LookIn:=xlValues)
If Not rZelle Is Nothing Then
iSpalte = iSpalte + 1
WkSh_Q.Columns(rZelle.Column).Copy Destination:=WkSh_Z.Columns(iSpalte)
End If
Next iIndx
End With
Application.ScreenUpdating = True
End Sub