Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1636to1640
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
1636to1640
1636to1640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten aus anderem Tabellenblatt kopieren

Daten aus anderem Tabellenblatt kopieren
16.08.2018 10:06:22
Excel2017
Hallo Forum,
ich möchte per VBA den Inhalt von mehreren Tabellenblättern in das Blatt kopieren, in welchem ich mich gerade befinde. Dabei sollen die Daten um 1 Spalte verschoben werden; ich möchte in Spalte 1 den Ursprung dieser Daten beschreiben.
In meinem "Report-Blatt" sollen die Daten hintereinader geschrieben werden. Ich kenne die Anzahl der jeweils belegten Zeilen in allen betroffenen Blättern.

Ich habe folgendes versucht:
ActiveWorkbook.Worksheets(AName).Range(Cells(1, 1), Cells(MaxRowA, MaxColA)).Select
Application.CutCopyMode = False
Selection.Copy
Cells(MaxRowR + 1, 2).Select
ActiveSheet.Paste
bei "Worksheets....Select" bekomme ich den Laufzeitfehler 1004.

Es läuft ohne Probleme, wenn ich folgendes ausführe:
Sheets(AName).Select
Range(Cells(1, 1), Cells(MaxRowA, MaxColA)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(RName).Select
Cells(MaxRowR + 1, 2).Select
ActiveSheet.Paste
Gibt es keine Möglichkeit ohne dauernde Blatt-Aktivierung?
Danke im Voraus und Gruß
Werner

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten aus anderem Tabellenblatt kopieren
16.08.2018 10:10:39
Hajo_Zi
ActiveWorkbook.Worksheets(AName).Range(Cells(1, 1), Cells(MaxRowA, MaxColA)).Copy _
Cells(MaxRowR + 1, 2)

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Falsche Referenzierung!
16.08.2018 10:29:37
J.O.Maximo
Richtig wäre:
ActiveWorkbook.Worksheets(AName).Range( _
ActiveWorkbook.Worksheets(AName).Cells(1, 1),
ActiveWorkbook.Worksheets(AName).Cells(MaxRowA, MaxColA)).Copy _
Cells(MaxRowR + 1, 2)
...sollte einem sog. MVP eigentlich klar sein.
Grüße aus einem anderen Hirn ;-)
AW: Falsche Referenzierung!
16.08.2018 10:43:53
Excel2017
Hallo Hajo,
auch mit Deinem Codier-Vorschlag erhalte ich den Fehler 1004.
Hallo J.O.Maximo.
Dein Codier-Vorschlag wird mit "Syntaxfehler" abgewiesen.
Ich warte auf neue Vorschläge!
Gruß Werner
Werner
Anzeige
AW: Falsche Referenzierung!
16.08.2018 10:47:56
Excel2017
Hallo J.O.Maximo,
Habe die zweite Zeile Deines Codier-Vorschlags entfernt.

ActiveWorkbook.Worksheets(AName).Range( _
ActiveWorkbook.Worksheets(AName).Cells(MaxRowA, MaxColA)).Copy _
Cells(MaxRowR + 1, 2)

Der Syntax-Fehler ist jetzt weg. Dafür bekomme ich den Laufzeitfehler 1004.
Gruß Werner
Warum entfernt? Da war fehlte nur _
16.08.2018 10:51:43
J.O.Maximo
Hallo,
Einfach mal trial und error?
Da war ein Typo im Code, sollte heissen: 
ActiveWorkbook.Worksheets(AName).Range( _
ActiveWorkbook.Worksheets(AName).Cells(1, 1), _
ActiveWorkbook.Worksheets(AName).Cells(MaxRowA, MaxColA)).Copy _
Cells(MaxRowR + 1, 2)
Grüße aus einem anderen Hirn ;-)
Anzeige
AW: Warum entfernt? Da war fehlte nur _
16.08.2018 11:09:39
Excel2017
Hallo J.O.Maximo,
jetzt funktioniert der Code. Und meine zusätzlichen Befehle sind darin auch schon enthalten (und wurden von mir entfernt):
Application.CutCopyMode = False
Selection.Copy
Sheets(RName).Select
Cells(MaxRowR + 1, 2).Select
ActiveSheet.Paste
Danke für die Unterstützung.
Gruß Werner
AW: Daten aus anderem Tabellenblatt kopieren
16.08.2018 11:10:21
Daniel
Hi
sheets(AName).Cells(1, 1).resize(MaxRowA, MaxColA).copy
Cells(MaxRowR + 1, 2).PasteSpecial xlpasteall
Gruß Daniel

332 Forumthreads zu ähnlichen Themen

Daten aus Tabellenblatt kopieren
Jochen

Hi,
ich kopiere daten von einem Tabellenblatt in ein anderes:
Sub Übersicht() Dim intS As Integer 'letzte belegte Spalte auf Blatt 1 Sheets("Daten").Columns("C:H").Copy With Sheets("Übersicht") intS = .Cells(1, Columns.Count).End(xlToLeft).Column .Cells(1, intS).PasteSpecial Paste:=xl...
08.08.2008 22:24:43
Thread-ID: 1000422
2 Beiträge
Anzeige
1:1-Kopieren ohne dass Formeln "angepasst" werden
Wolfango

Hallo Experten!
Eine Spalte enthält lauter Formeln (alles relative Bezüge). Wenn ich diese komplette Spalte (markiert über Klick auf Spaltenkopf) in eine neue, unbenutzte Spalte kopiere werden (aufgrund der relativen Bezüge) ja stets alle Formeln automatisch angepasst (egal ob über das Menü...
17.09.2008 15:45:18
Thread-ID: 1010435
3 Beiträge
Daten aus Pivot-Tabelle kopieren
Thomas

Guten Abend ,
wie kann ich per Schaltfläche einen Datenbereich aus einer Pivottabelle kopieren und in einem anderen Tabellenblatt einfügen?
Gruß
Thomas
03.10.2008 21:10:24
Thread-ID: 1014090
2 Beiträge
Anzeige
Umwandeln PIVOT-Tabelle in reguläre Datentabelle
Susi

Hallo liebe Excel-Freunde,
ich habe eine Pivot-Tabelle aus einer umfangreichen Datenmenge erstellt und das Datum nach Quartalen gruppiert. Diese Daten der neuen Pivot-Tabelle möchte ich nun weiterverwenden. Das Problem dabei ist, das ich die Werte der Pivot-Tabelle in eine neue reguläre Dat...
04.02.2009 12:03:00
Thread-ID: 1046976
5 Beiträge
Daten per Makro kopieren ohne Formeln
Kai

Hi,
ich möchte Zeilen innerhalb einer Mappe von einem Tabellenblatt ins ander kopieren. Meine Daten stehen in der Tabellen "IMPORT" (Zeilen 10:100) und sollen nach "DATENBESTAND" ab Zeile 50 reinkopiert werden.
Das kopieren alleine wäre sicher nicht das Problem, aber in meinem Tabellenb...
05.03.2009 13:05:31
Thread-ID: 1056794
3 Beiträge
Automatisiert Daten aus versch. Tabellen kopieren?
Henrick

Hallo Forumsteilnehmerinnen und -teilnehmer!
Ich bin kein großer Excel-Experte und kein Progammierer. Ich habe als Controller solide Anwenderkenntnisse. Ich bin dabei mein Berichtswesen in Excel neuaufzubauen (da ist in den letzten Jahren hier viel versäumt worden). Nun zu meinem Problem:<...
29.04.2009 16:33:52
Thread-ID: 1071956
8 Beiträge
Daten aus Tabellenblättern in ein Blatt kopieren
Jens

Hallo zusammen,
ich habe folgendes Problem:
Ich habe ca. 20 Tabellenblätter.
Auf allen Tabellenblättern sind drei Zellen (A4, A6, S41), deren Werte ich gerne auf Tabellenblatt 1 (Tabelle1) kopiert hätte.
Es sollen nur Werte, keine Formate kopiert werden [.PasteSpecial Paste:=xlP...
15.07.2009 12:25:07
Thread-ID: 1088795
5 Beiträge
Tabellenblatt kopieren ohne Zellbezüge (VBA)
S.

Liebe Herber Excel-Gemeinde,
ich kopiere ein Tabellenblatt aus einem bestehenden Excel-Dokument in ein neues Dokument mit VBA. Dazu kopiere ich einfach das ganze Sheet, da es auch Diagramme enthält. Allerdings kopiert er bei dieser Methode auch die Zellbezüge zur Originaldatei mit. Dies möc...
11.08.2009 11:38:01
Thread-ID: 1094961
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
1
2
1
1
4
2
7
4
3
3
2
1
7
1
2
8
2
2
1
1
1
6
1
7