Spalten kopieren und in Datei einfügen
05.11.2018 12:19:10
parza
Werner hat mir letzte Woche einen super Code geschrieben, um Spalten zu kopieren und sie dann in eine neue Datei einzufügen. Funktioniert genial (vba unten stehend).
Nun meine Frage: Bisher wird aus einer Datei die Registerkarte "Personal" in die neue Datei xxxx KE_18_19.xls in die Registerkarte "Berechnung" eingefügt.
Ist es möglich, dass gleichzeitig noch eine zweite Registerkarte "BU" ausgelesen wird, und ebenfalls in die Datei xxxx KE_18_19.xls eingefügt wird und zwar in die Registerkarte "BU2.
danke, parza
Option Explicit
Sub KE_erstellen()
Dim intI As Integer, loZeileZiel As Long, loSpalteZiel As Long
Dim wbZiel As Workbook, wsZiel As Worksheet, Spalte As Variant
'festlegen der Zielzeile
loZeileZiel = 3
'festlegen der Zielspalte (Startspalte) A=1, B=2 ...
loSpalteZiel = 4
Spalte = Array(1, 10, 11, 16, 17, 19, 23, 24, 25, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, _
39, 43, 48)
Application.ScreenUpdating = False
'Datei öffnen und Zielblatt zuweisen
''Set wbZiel = Workbooks.Open("F:\xxxx KE_18_193.xls")
Set wbZiel = Workbooks.Open("Q:\4\41\AllgemeinesSG41\Zusammenarbeit\Kostenersatz\18_19\xxxx _
KE_18_19.xls")
Set wsZiel = wbZiel.Worksheets("Berechnung")
Range("B3:Y7000").Select
Selection.ClearContents
For intI = 0 To 22
With ThisWorkbook.Worksheets("Personal")
'Bereich kopieren
.Range(.Cells(3, Spalte(intI)), .Cells(.Cells(.Rows.Count, _
Spalte(intI)).End(xlUp).Row, Spalte(intI))).Copy
With wsZiel
'kopierte Daten als Werte einfügen
.Cells(loZeileZiel, loSpalteZiel).PasteSpecial Paste:=xlPasteValues
loSpalteZiel = loSpalteZiel + 1
End With
End With
Next
'Zielblatt speichern und schließen
'wbZiel.Close True
'Kopierspeicher leeren
Application.CutCopyMode = False
'Variablen aufräumen
Set wbZiel = Nothing: Set wsZiel = Nothing
End Sub