Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
948to952
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
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellenblatt kopieren und einfügen

Tabellenblatt kopieren und einfügen
13.02.2008 13:00:00
Andreas
Hallo zusammen..
leider habe ich malwieder ein problem, was ich durch "abschauen" aus den Makro-Aufzeichnungen nicht lösen konnte.
Auch die Suche hier im Forum war ohne Erfolg.
Aufgabe:
Ich öffen eine Datei, gehe zu einerm bestimmten Arbeitsblatt
Das klappt soweit.
Jetzt will ich den bereich A3:AA271 kopieren
und in das Tabellenblatt "Temp" in einer anderen Datei einfügen.
bisher stehe ich soweit:
On Error Resume Next
Application.Workbooks.Open strDatenbank
Windows(strDatenbankname).Activate
Sheets(strCrudename).Activate
Range("A1:AA271").Copy
Windows(strHome).Activate
Sheets("Temp").Select
Range("A3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
eine fehlermeldung kommt nicht, allerdings wird der markierte Bereich nicht kopiert und eingefügt..
Jetzt schonmal vielen Dank für eure Unterstützung.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt kopieren und einfügen
13.02.2008 13:22:45
Rudi
Hallo,
Windows() ist falsch, Workbooks() wäre richtig.
Außerdem reicht das:

Workbooks(strDatenbankname).Sheets(strCrudename).Range("A1:AA271").Copy _
Workbooks(strHome).Sheets("Temp").Range("A3")


das


Windows(strDatenbankname).Activate
Sheets(strCrudename).Activate
Range("A1:AA271").Copy
Windows(strHome).Activate
Sheets("Temp").Select
Range("A3").Select
ActiveSheet.Paste
Application.CutCopyMode = False


kann ersatzlos gestrichen werden.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Tabellenblatt kopieren und einfügen
13.02.2008 13:48:17
Andreas
Wow, danke...
werd das gleich mal testen
Danke..

234 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige