Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
500to504
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro

Makro
14.10.2004 16:54:46
gefre
Hallo,
ich habe folgendes Makro-Problem:
Es müssen die Zellen C5:H10 von einer Datei in eine andere nach D2 kopiert werden. Ich habe mit dem Macrorecorder folgendes aufgezeichnet:
Windows("Quelle.xls").Activate
Range("C5:H10").Select
Selection.Copy
Windows("Ziel.xls").Activate
Range("D2").Select
ActiveSheet.Paste
Die Zieldatei ist immer geöffnet, die Quelle-Datei wechselt. Wie kann ich dies im Makro definieren?
Gruß Gerhard

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro
Reinhard
Hi Gerhard, 

Set wsQuelle = Workbooks("Quelle.xls").Worksheets("Tabelle1")
Set wsZiel = Workbooks("Ziel.xls").Worksheets("Tabelle1")
With wsZiel
wsQuelle.Range("C5:H10").Copy Destination:=.Range("D2")
Set wsQuelle = Workbooks("Quelle2.xls").Worksheets("Tabelle1")
wsQuelle.Range("C5:H10").Copy Destination:=.Range("X100")
'usw
End With
Gruß
Reinhard

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige