Zwei Bereiche Kopieren und zusammen Einfügen
22.07.2015 15:44:48
Franky
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
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
Anzeige