Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.10.2025 13:01:47
Formel gibt nur #Wert! aus, wenn ich sie mit VBA berechne
25.10.2025 12:33:55
aktuellstes Datum aus Zelle auslesen
25.10.2025 08:21:40
Datensatz trennen
24.10.2025 18:10:41
vba pdf
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten aus anderem Tabellenblatt kopieren

Forumthread: 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
Anzeige

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 ;-)
Anzeige
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
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
Anzeige
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
Anzeige
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
;

Forumthreads zu verwandten 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
Spaltenwerte ausgewählter Tabellen kopieren
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Zur weiteren Verwendung möchte ich nur die Ergebnisse der markierten Tabellenblätter in eine neu...
07.09.2008 08:42:00
Thread-ID: 1007926
2 Beiträge
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
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
Anzeige
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
Formelbezug ändert sich bei kopieren von Zellen
Zellen

Hallo zusammen,
ich habe ein Tabellenblatt erstellt, in dem durch mehrere Nutzer Datensätze in Zeilen eingegeben werden. Gleichzeitig sind in die Zeilen schon Formeln eingetragen und per Blattschutz gegen versehentliche Änderungen des Users geschützt.
Wird nun eine Zelle kopiert, ändern...
27.10.2009 22:25:08
Thread-ID: 1112615
4 Beiträge
Pivot Tabelle in Tabelle mit Spalten umwandeln??
okgi

Hallo liebe Excel Gemeinde!!
Meine Frage ist: wie kann ich eine Pivot Tabelle in eine Tabelle mit Spalten automatisiert überführen?
Zum Beispiel:
Pivot Tabelle
________KST_____________
Konto_.......1...........2...........3..
__A___.100,00................31,99
__B___...
15.12.2009 17:35:51
Thread-ID: 1124143
3 Beiträge
Zellen aus einer Pivottabelle kopieren | Herbers Excel-Forum
Rocco
hallo leute,
habe leider ein problem zellen aus einer zuvor aktualisierten pivottabelle zu kopieren und weiss nicht warum ;(
vielleicht hat ja von euch wer einen guten rat für mich. mein code schaut im moment so aus:
'Pivottabelle aktualisieren
Sheets("Pivot").Select
ActiveShe...
18.01.2010 16:26:32
Thread-ID: 1130788
2 Beiträge
Werte aus verschiedenen Tabellen kopieren
Bastian

Moin, Moin,
Ich möchte mich an dieser Stelle den tollen Antwortern für ihre geduldige Hilfe meinen Dank aussprechen. Ich bewundere Euer Wissen im Umgang mit Excel und VBA.
Ich versuche auf diesem Gebiet auch hinzu zu lernen, bin aber leider schon wieder an ein für mich unlösbares Probl...
26.04.2010 10:08:34
Thread-ID: 1153787
8 Beiträge
Bug in Pivottabelle, Fehler in Pivottabelle
wkempf@t-online.de

Guten Tag,
ich habe in Excel 2003 einen Fehler, dem ich bisher noch nicht auf die Spur kommen konnte.
Ich habe die Datei vereinfacht ( Link: https://www.herber.de/bbs/user/69521.xls
), das heißt, die Anzahl der Datensätze reduziert und einige Folgetabellen bzw. Spalten entfernt.
...
14.05.2010 13:11:40
Thread-ID: 1156467
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige