Kopieren per Makro



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Kopieren per Makro
von: Mathias
Geschrieben am: 12.06.2002 - 11:59:32

Hallo,

habe folgendes Problem: ich möchte per Makro einen Bereich aus einer Datei in eine andere kopieren, wobei die Quelldatei immer geöffnet ist. Bei folgendem Makro ist das Problem, dass offensichtlich zwar kopiert wird, jedoch die Zieldatei immer leer bleibt. Hat da jemand evtl. eine Idee?

Dim wsh As Worksheet
Set wsh = ActiveSheet

Workbooks.Open FileName:= _
"\\DONALD\Mappe2 MIT MAKRO.xls"
Workbooks.Open FileName:= _
"\\DONALD\Mappe2.xls"

Dim rngSource As Range, rngTarget As Range
Set rngSource = Workbooks("Mappe2 MIT MAKRO.xls").Worksheets(1).Range("A1:F14")
Set rngTarget = Workbooks("Mappe2.xls").Worksheets(1).Range("A1:F14")
rngSource.Copy rngTarget

Gruß, Mathias

nach oben   nach unten

Re: Kopieren per Makro
von: Wolle
Geschrieben am: 12.06.2002 - 12:57:50


Hallo Mathias,

probier es mal hiermit.

Workbooks.Open Filename:="\\DONALD\Mappe2 MIT MAKRO.xls"
Workbooks.Open Filename:="\\DONALD\Mappe2.xls"
Windows("Mappe2 MIT MAKRO.xls").Activate
Sheets("Tabelle1").Select
Range("A1:F14").Select
Selection.Copy
Windows("Mappe2.xls").Activate
Sheets("Tabelle1").Select
Range("A1:F14").Select
ActiveSheet.Paste

Gruß, Wolle

nach oben   nach unten

Re: Kopieren per Makro
von: WernerB.
Geschrieben am: 12.06.2002 - 16:06:44

Hallo Mathias,

teste doch mal diesen Code:


Option Explicit
Sub Kopieren()
    Workbooks("Ziel.xls").Sheets("Tabelle1").Range("A1:F14").Value = _
      Workbooks("Quelle.xls").Sheets("Tabelle1").Range("A1:F14").Value
End Sub

Viel Erfolg wünscht
WernerB.
nach oben   nach unten

Re: Kopieren per Makro
von: Mathias
Geschrieben am: 12.06.2002 - 20:22:06

Hallo Wolle,

danke, aber funzt leider auch nicht - Zieldatei bleibt leer :((

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Kopieren per Makro"