Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1436to1440
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zwei Bereiche Kopieren und zusammen Einfügen

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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zwei Bereiche Kopieren und zusammen Einfügen
22.07.2015 16:18:32
Beni
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)
Anzeige

355 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige