Nicht zusammenhängende Bereiche kopieren
12.06.2013 23:12:30
Albert
ich will von einer Tabelle Werte aus den Bereichen C bis J kopieren und in einer zweiten Tabelle an derselben Stelle einfügen. Zwischen den zu kopierenden Zeilen liegen jeweils 8 Zeilen.
Meine Versuche, das Problem zu lösen sind kläglich gescheitert. Vielleicht kann mir jemand von Euch bei meinem unten dargestellten VBA-Code weiterhelfen.
Es haben sich ein paar Probleme ergeben:
1) Union(Cells .....)).copy funktioniert nicht
2) Tabelle1 in Zieldatei kann nicht angesprochen werden
Sub Werte_importieren()
Dim Pfad_lokal As String
Pfad_lokal = Range("G2")
Dim wbZiel As Workbook
Dim wbQuelle As Workbook
Set wbZiel = ThisWorkbook
Set wbQuelle = Workbooks.Open(Range("G2"))
Dim lR%, i%
Dim lX%, n%
Dim intRow As Integer
'wbQuelle.Tabelle1.Select
lR = Cells(Rows.Count, 3).End(xlUp).Row
For i = 204 To 12 Step -8
Cells(i, 10).Copy 'Union(Cells(i, 3), Cells(i, 9), Cells(i, 10)).Copy -> funktioniert _
nicht
wbZiel.Tabelle1.Select 'funktioniert nicht
lX = Cells(Rows.Count, 3).End(xlUp).Row
For n = 204 To 12 Step -8
Cells(n, 10).Paste
Next i
Next n
wbQuelle.Close SaveChanges:=False
Set wbQuelle = Nothing
Set wbZiel = Nothing
End Sub
Vielen Dank im Voraus und schönen Abend
Albert