Zwei Bereiche Kopieren und zusammen Einfügen

Bild

Betrifft: Zwei Bereiche Kopieren und zusammen Einfügen
von: Franky
Geschrieben am: 22.07.2015 15:44:48

Hey Leute,
habe ein einfachen Code


Sub aktualisieren()
Dim zeile As Integer
          
Workbooks.Open Filename:="F:\Test\Datei2.xls"
Worksheets("Projekte").Activate
ActiveSheet.Unprotect ("#")
zeile = Cells(Rows.Count, 1).End(xlUp).Row
                
Range(Cells(2, 1), Cells(zeile, 7) & Cells(2, 9), Cells(zeile, 10)).Copy
Workbooks("Datei1.xls").Worksheets("Projektdaten").Activate
Range(Cells(2, 1), Cells(zeile, 9)).PasteSpecial Paste:=xlPasteValues
Workbooks("Datei2.xls").Close savechanges:=False
End Sub
Ich will aus Datei2 den Bereich von Spalte A bis G und Spalte I bis J entsprechend "zeile" kopieren
und
in Datei1 in Spalte A bis I einfügen.
Kann mir jemand helfen, wie ich die Fett-Gedruckte Zeile in meinem Code schreiben muss, damit das Funktioniert.
Vielen Dank schon mal

Bild

Betrifft: AW: Zwei Bereiche Kopieren und zusammen Einfügen
von: Beni
Geschrieben am: 22.07.2015 16:18:32
Hallo Franky
in zwei Schritten
beim Einfügen muss man nicht von bis angeben, nur oben links
Gruss Beni
Set wb = Workbooks("Datei1.xls").Worksheets("Projektdaten")
zeile = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(2, 1), Cells(zeile, 7)).Copy wb.Cells(2, 1)
Range(Cells(2, 9), Cells(zeile, 10)).Copy wb.Cells(2, 8)

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zwei Bereiche Kopieren und zusammen Einfügen"