Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1332to1336
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
Inhaltsverzeichnis

Bereich in der aktiver Zeile kopieren

Bereich in der aktiver Zeile kopieren
21.10.2013 21:23:47
Gerhard
Hallo zusammen,
Bitte um VBA Hilfe!
Wie kann ich aus der Datei Daten.xls den Bereich von Zelle C bis Zelle J der jeweils
aktiven Zeile in eine geöffnete zweite Datei mit variablen Namen in das
1.Tabellenblatt in die 4.Zeile ab der Spalte D übernehmen ?
Vielen Dank für Eure Hilfe
Gruß Gerhard

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich in der aktiver Zeile kopieren
22.10.2013 08:27:24
GuentherH
Hallo Gerhard,
Das geht wenn Du sicherstellen kannst, dass nur die Quelldatei und die Zieldatei geöffnet sind, oder - komplizierter - wenn Du ein Auswahlfenster öffnen willst.
über application.workbooks kannst Du dann hinkommen.

sub DatenRueber
if application.workbooks.count= 2 then
with application.workbooks("Daten.xls").worksheets(1)
.range(cells(.activecell.row,3),cells(.activecell.row,10)).copy
end with
application.workbooks(3-application.workbooks("Daten.xls").index).worksheets(1).range("D4"). _
paste
end if
end sub
Gruß,
Günther

Anzeige
AW: Bereich in der aktiver Zeile kopieren
22.10.2013 09:31:57
Gerhard
Hallo Günther
Vielen Dank für Deine Hilfe
das Makro läuft leider nicht und bringt eine Fehlermeldung
siehe angehängte Beispieldatei
Gruß Gerhard
https://www.herber.de/bbs/user/87734.xls

AW: Bereich in der aktiver Zeile kopieren
22.10.2013 10:31:04
GuentherH
Hallo Gerhard,
war leider ungetestet. musste gleich an drei Stellen ändern.
https://www.herber.de/bbs/user/87740.xls
Natürlich als Daten.xls speichern.
Beste Grüße,
Günther

AW: Bereich in der aktiver Zeile kopieren
22.10.2013 11:02:07
Gerhard
Vielen Dank Günther,
Jetzt funktioniert das Makro super!
Danke und Gruß Gerhard
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige