Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
680to684
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
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellen kopieren und einfügen

Zellen kopieren und einfügen
14.10.2005 17:26:56
Mola
Hallo,
wieso klappt es nicht?
Ich will mir einen Zellbereich aus einer anderen Datei kopieren (nur die Werte) und in der geöffneten Datei einfügen....
Bis zum kopieren der Zellen alles ok - leider bekomme ich nicht die Kurve, dass er mir wieder auf die eigentlich Mappe geht.
Dim Mappe as Workbook
Dim Blatt As Worksheet
Set Blatt = Sheets
Set Mappe = Workbooks.Open ("C:.....")
Sheets("Übersicht").Select
Range(Range("B8:J8"), Range("B8:J8").End(xlDown)).Select
Mappe.Save
Mappe.Close
ActiveSheet.Select
Range("B8").Select
ActiveCell.Paste
End Sub
Kann mich jemand auf den richtigen Weg bringen?
Viele Grüße
Mola

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen kopieren und einfügen
14.10.2005 18:10:32
Leo
Hi,

Sub til()
Dim Mappe As Workbook
Dim Blatt As Worksheet
Set Blatt = ActiveSheet
Set Mappe = Workbooks.Open("C:.....")
Mappe.Sheets("Übersicht").Range(Range("B8:J8"), Range("B8:J8").End(xlDown)).Copy _
Blatt.Range("B8")
Mappe.Close
End Sub

mfg Leo
Super - Dankeschön Leo!- o.T.
14.10.2005 18:23:32
Mola
.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige