Kopieren von Spalten aus Quelle zu Zieldatei
16.10.2014 09:46:41
Spalten
ich habe ein kleines Problem in einem Quellcode...
Die Aufgabe ist es, Spalten aus der Quelldatei in die Zieldatei zu übertragen. Die Reihenfolge, wie sie kopiert werden gebe ich vor. Es sollen zudem Leere Spalten mit übergeben werden... Der Quellcode jedoch sortiert sich die Reihenfolge automatisch numerisch bzw alphabetisch.
Hier ein Auszug vom Quellcode
With wksData
With .UsedRange
Zeile_L = .Row + .Rows.Count - 1 'letzte benutze Zeile
End With
For Spalte_D = 1 To .UsedRange.Column + .UsedRange.Columns.Count - 1
Select Case Spalte_D
Case 15, 17, 66, 11, 55, 25, 23, 80, 81, 82, 83, 84, 85, 27, 86, 87, 28, 88, 89, 90, 91, 29, 30 'o,q,bn,k,bc,y,w,6 Leerzeilen,aa,2 Leerzeilen,ab,4 Leerzeilen,ac,ad
.Range(.Cells(2, Spalte_D), .Cells(Zeile_L, Spalte_D)).Copy
wksZiel.Cells(Zeile_Z, Spalte_Z).PasteSpecial Paste:=xlPasteValues
Spalte_Z = Spalte_Z + 1
Case Else
'do nothing
End Select
Next
End With
Application.CutCopyMode = False
Wie kann ich es bewerkstelligen, dass meine Kopierreiehnfolge eingehalten wird und dementsprechend eingefügt wird?
Vielen Dank im vorraus :)