Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
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
1668to1672
1668to1672
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereicher mehrere Folien untereinander Kopieren

Forumthread: Bereicher mehrere Folien untereinander Kopieren

Bereicher mehrere Folien untereinander Kopieren
25.01.2019 12:38:06
Jan
Hallo,
ich würde gerne einen Tabellenbereich aus verschiedenen Tabellenblätter in ein neues Tabellenblatt untereinander kopieren.
Details:
1. feste Spaltenanzahl (K bis Q)
2. unterschiedliche Zeilenanzahl
3. der Zeit 6 Tabellenblätter als Datenquelle (sollte erweiterbar sein)
4. Ausgabe auf eigenem Tabellenblatt
5. der Tabellenbereich sollte in der Formatierung "TEXT" bleiben
hier ein Beispiel: https://www.herber.de/bbs/user/127119.xlsx
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereiche mehrere Tabellenblätter kopieren
25.01.2019 12:46:20
Jan
Ich habe mist erzählt:
1. Fest Spaltenanzahl von K bis S
es kann sein, dass mehrere Spalten keine Einträge haben. Das Abbruchkriterium pro Tabellenblatt muss sein, dass die Spalte K die Anzahl der zu kopierenden Zeilen festlegt.
AW: Bereiche mehrere Tabellenblätter kopieren
25.01.2019 13:50:09
Bernd
Servus Jan,
inwiefern "erweiterbar"? Wie sollen/können die zu zusammenfassenden Blätter und das Ausgabeblatt automatisch identifiziert werden? Der Rest geht relativ schnell...
Grüße, Bernd
Anzeige
AW: Bereiche mehrere Tabellenblätter kopieren
25.01.2019 14:05:38
Bernd
Servus Jan,
als Ansatz... 

Option Explicit
Sub kopieren()
Dim ws As Worksheet
Dim ws_z As Worksheet
Dim rngCopy As Range
Dim intLZ As Integer
Dim intlz_z As Integer
Set ws_z = ThisWorkbook.Sheets("Tabelle7")
For Each ws In ThisWorkbook.Worksheets
intlz_z = ws_z.Cells(Rows.Count, "K").End(xlUp).Row + 1
If Not ws.Name = ws_z.Name Then
With ws
intLZ = ws.Cells(Rows.Count, "K").End(xlUp).Row
Set rngCopy = ws.Range("K1:S" & intLZ)
rngCopy.Copy Destination:=ws_z.Cells(intlz_z, "K")
Set rngCopy = Nothing
End With
End If
Next ws
intlz_z = ws_z.Cells(Rows.Count, "K").End(xlUp).Row
ws_z.Range("K1:S" & intlz_z).NumberFormat = "@"
Set ws = Nothing
Set ws_z = Nothing
End Sub
Grüße, Bernd
Anzeige
AW: Bereiche mehrere Tabellenblätter kopieren
25.01.2019 14:37:10
Jan
Vielen Dank,
ich werde mich am Montag daran versuchen.
erweiterbar heißt, wenn ich die Spalten T, U, V, usw. noch benötige, möchte ich in der Lage sein, diese in VB nachzutragen. (Also die Range manuell erweitern können)
AW: Bereiche mehrere Tabellenblätter kopieren
28.01.2019 08:51:22
Jan
Funktioniert gut, vielen Danke.
zur erweiterung muss ich nur die Werte K1 / k und S anpassen oder?
Anzeige
;

Forumthreads zu verwandten Themen

Daten in mehrere Arbeitsblätter kopieren
Ben

Hallo
Ich habe folgenden Code, um den Wert der Spalte D vom Arbeitsblatt "Übersicht" auf das Blatt "Montag" zu kopieren.
Sub schieben1() Dim R As Long R = Me.Shapes(Application.Caller).TopLeftCell.Row Select Case Left(Cells(R, 13).Text, 1) Case 1: kopieren "Montag", "D" & R End Se...
27.03.2009 09:43:23
Thread-ID: 1064498
3 Beiträge
Anzeige
Daten in mehrere Arbeitsblätter kopieren
Ben

Hallo
Ich habe mit Hilfe des Forums folgenden Code um den Wert der Spalte "D" des Arbeitsblatts "Übersicht" in in die Arbeitsblätter Montag bis Freitag zu kopieren.
Sub datensatz_verschieben() Dim R As Long R = Me.Shapes(Application.Caller).TopLeftCell.Row Dim arrWochentage As Variant...
15.04.2009 17:35:13
Thread-ID: 1068926
4 Beiträge
Anzeige
mehrere Arbeitsblätter zusammenkopieren
Stefan

Hallo zusammen,
ich muß leider schon wieder die Experten bemühen, da mein VBA leider nicht ausreichend ist.
Ich habe eine Mappe mit ca. 90 Tabellen. Alle ausser der 1. Tabelle können Infos im Bereich B6:E60 enthalten . Nun würde ich gern zur Auswertung alle diese Infos auf das Worksheet...
19.06.2009 10:57:02
Thread-ID: 1082815
10 Beiträge
Anzeige
Übertragung Daten in mehrere Tabellenblätter
hubijuerg

Hallo,
könnt Ihr mir bei folgendem Problem helfen? Über ein Makro öffne ich für jede Vorgangsnummer mehrere, in der Benennung unterschiedliche Tabellenblätter (Vorgangsnummern). Die Tabellenblättern (Vorgangsnummer) durchsuchen das Tabellenblatt (Basisdaten) nach dem Suchbergiff "Arbeitsplä...
31.03.2011 11:36:25
Thread-ID: 1208444
6 Beiträge
Anzeige
Datenbereich von mehreren Blättern kopieren
mehreren

Guten Morgen zusammen,
ich habe ein kleines Problem, wobei ich nicht verstehe warum mein Makro außerhalb der Entwicklerumgebung anders arbeitet.
Ich habe mehrere Arbeitsblätter die ab Zelle E23 bis Exx Daten enthalten, wobei deren Anzahl variieren kann. Ich möchte jetzt alle Daten aus d...
19.03.2013 08:13:30
Thread-ID: 1304676
5 Beiträge
verschiedener Bereiche in mehrere Blätter kopieren
Matze

Hallo zusammen,
wo liegt denn nun wieder mein Gedankenfehler?
Wie kann ich denn verschiedene Bereiche einer Tabelle(zB1) in weitere Tabellen(Mehrzahl Tab2,Tab3,..)übertragen/kopieren? Dabei ist zu beachten das die Bereiche "nicht" zusammenhängend sind.
'Fehlermeldung (Laufzeitfehler...
01.08.2013 21:48:38
Thread-ID: 1325334
6 Beiträge
Werte aus mehreren Tabellenblättern kopieren
Kai

Hallo zusammen,
ich nutze ein Makro um aus mehreren Tabellenblättern ein einziges zu erstellen.
Die Quelldateien haben bis zu 50.000 Zeilen sodass sich eine Menge Daten ergeben und das Makro sehr lange läuft. Allerdings sind dort viele Werte mit Null enthalten, die ich in der Zieldatei...
15.09.2015 16:18:01
Thread-ID: 1447599
2 Beiträge
Mehrere Tabellenblätter kopieren
Dennis

Guten Morgen Zusammen,
ich versuche gerade, aus einer großen Tabelle (Excel 2010) nur ein paar einzelne Tabellenblätter in eine neue Datei zu kopieren. Das funktioniert soweit gut.
Was ich noch zusätzlich möchte, ist bei jedem einzelnen, zu kopierendem Blatt einen bereich angeben der K...
21.01.2016 10:31:25
Thread-ID: 1470198
2 Beiträge
Daten und Formeln in mehrere Tabellenblätter
Dan

Hallo Zusammen,
ich versuche derzeit ein Template zusammenzustellen.
Dabei habe ich dynamische Bezeichnungen für die einzelnen Tabellenblätter.
Der VBA Code kann derzeit über eine Variable (i) erkennen, auf welches Tabellenblatt zugegriffen werden soll.
Nun habe ich 5 Tabellenbl...
09.04.2016 18:47:23
Thread-ID: 1487099
5 Beiträge
1 Blatt in mehrere neu erstellte Blätter kopieren
K.

Hallo Excel-Fans,
ich habe folgenden VBA-Code und komme bei einer Sache nicht weiter:
Private Sub Workbook_Open() Worksheets("countries").Columns(1).ClearContents Dim source As Range Dim target As Range Set source = Range("[CeBIT.xlsx]Source!countries") Set target = Range("A1") source.E...
20.04.2016 15:38:58
Thread-ID: 1489269
13 Beiträge
Mehrere Tabellenbl. in ein Tabellenblatt kopieren
Hermann

Hallo zusammen,
ich benötige mal wieder eure Hilfe.
Ich habe eine Exceldatei. In der befinden sich ca.40 Arbeitsblätter die alle das gleiche Format nur andere Werte haben.
Ein Arbeitsblatt hat jeweils 3 Seiten. Der Bereich der 3 Seiten umfasst (A1:Y180)
Nun möchte ich die jeweil...
22.06.2016 20:19:38
Thread-ID: 1500427
4 Beiträge
Mehrere Textdateien in ein Tabellenblatt kopieren
Franny

Hallo zusammen,
danke erstmal an alle, die hier ausgiebig den Nutzern helfen.
Kommen wir direkt zu meinem Anliegen, ich würde gerne aus mehreren Textdateien innerhalb eines Ordners Daten entnehmen. Die einzelnen Textdateien sind immer gleich aufgebaut und enthalten viele Werte, die nich...
16.02.2017 12:03:30
Thread-ID: 1541934
3 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