Bestimmte Spalten kopieren - Teil 2
26.01.2018 19:07:11
Markus
wie muss ich den unten stehenden Code anpassen, wenn ich die ausgewählten Spalten NICHT nacheinander in die Masterdatei kopieren will, sondern individuell.
Sprich, bspw. in Spalten 1,3 und 6 der Masterdatei.
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 =Workbooks("Datei1.xlsm").Worksheets("Tabelle1") 'das Quell-Tabellenblatt
Set WkSh_Z = Workbooks("Masterdatei.xlsm").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 'nicht nacheinander, sondern in Spalte A, C und F
WkSh_Q.Columns(rZelle.Column).Copy Destination:=WkSh_Z.Columns(iSpalte)
End If
Next iIndx
End With
Application.ScreenUpdating = True
End Sub
Besten Dank euch!
Anzeige