Zellen kopieren und einfügen
14.10.2005 17:26:56
Mola
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
Anzeige