Anzeige
Archiv - Navigation
128to132
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
128to132
128to132
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kopieren per Makro

Kopieren per Makro
12.06.2002 11:59:32
Mathias
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Kopieren per Makro
12.06.2002 12:57:50
Wolle

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

Re: Kopieren per Makro
12.06.2002 16:06:44
WernerB.
Hallo Mathias,

teste doch mal diesen Code:

Viel Erfolg wünscht
WernerB.

Re: Kopieren per Makro
12.06.2002 20:22:06
Mathias
Hallo Wolle,

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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige