Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1708to1712
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
1708to1712
1708to1712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mehrere Tabellen nebeneinander kopieren

mehrere Tabellen nebeneinander kopieren
01.09.2019 13:40:41
Nanu
Hallo Zusammen,
ich habe folgendes Problem und komme kaum weiter:(
ich habe ganz viele Tabellen und möchte immer Zeile B3 bis B26 kopieren und in eine Tabelle Namens "Zusammenfassung" neben einander einfügen.
Das Heißt:
Tabelle 1 B3 bis B26 kopieren und in Tabelle Zusammenfassung in Spalte B ab Zeile 4 einfügen
Tabelle 2 B3 bis B26 kopieren und in Tabelle Zusammenfassung in Spalte C ab Zeile 4 einfügen
usw..
Danke im Voraus

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere Tabellen nebeneinander kopieren
01.09.2019 14:59:54
Matthias
Hallo
Als Beispiel für 2 Register!
Das Register "Zusammenfassung" steht am Ende als 3.Register
Option Explicit
Sub Kopieren()
Dim x&
For x = 1 To 2
With Worksheets(x)
.Range("B3:B26").Copy Destination:=Sheets("Zusammenfassung").Cells(4, x + 1)
End With
Next
End Sub
Hast Du 10 Tabellen zu kopieren dann For x = 1 To 10
Das Register "Zusammenfassung" ans Ende stellen als 11.Register.
Gruß Matthias
AW: mehrere Tabellen nebeneinander kopieren
01.09.2019 17:15:31
Nanu
Vielen Dank Matthias,
kann man das irgendwie so einrichten, dass immer nach 12 Tabellen auch die Zeile nach unten verschoben wird?
Das Heißt:
Tabelle 1 B3 bis B26 kopieren und in Tabelle Zusammenfassung in Spalte B ab Zeile 4 einfügen
Tabelle 2 B3 bis B26 kopieren und in Tabelle Zusammenfassung in Spalte C ab Zeile 4 einfügen
.
Tabelle 13 B3 bis B26 kopieren und in Tabelle Zusammenfassung in Spalte N ab Zeile 5 einfügen
Nochmal Danke
Anzeige
AW: mehrere Tabellen nebeneinander kopieren
01.09.2019 17:37:52
Hajo_Zi
schreibe für 4
Application.WorksheetFunction.RoundUp(X / 12, 0) + 3

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
AW: mehrere Tabellen nebeneinander kopieren
01.09.2019 17:43:30
Matthias
Hallo
Option Explicit
Sub Kopieren()
Dim x&
For x = 1 To 13
With Worksheets(x)
If x 4,  _
x + 1)
If x >= 13 Then .Range("B3:B26").Copy Destination:=Sheets("Zusammenfassung").Cells(5,  _
x + 1)
End With
Next
End Sub
Das Register "Zusammenfassung" ans Ende stellen als 14.Register.
Gruß Matthias
Anzeige
AW: mehrere Tabellen nebeneinander kopieren
01.09.2019 18:23:11
Piet
Hallo
oder Zusammenfassung an den Anfang stellen, für sofortige Übersicht, und For Next mit 2 bginnnen:
For X = 2 to WorksHeets.Count - so spielt es keine Rolle ob es 13 oder mehr Tabellen sind. Alle werden erfasst.
mfg Piet
was schreibst Du mir das ? ... owT
01.09.2019 18:30:30
Matthias
 
AW: meinst du mich, Matthias?
01.09.2019 18:56:39
Piet
hallo Matthias
ich habe nicht vor Kollegen zu kraenken, bin jetzt etwas verwirrt ....
Weil Nanu schrieb das die Formel in einer Exceel Tabelle funktioniert, aber nicht in seinem Google Projekt, fiel mir auf das dort Doc steht. Mein Wissen reicht aber nicht aus um sagen zu können ob der Fehler daran liegt? - Deshalb stellte ich die Frage ins Forum.
mfg Piet
Anzeige
AW: mehrere Tabellen nebeneinander kopieren
01.09.2019 19:11:18
Nanu
Das funktioniert aber leider nicht wie gewünscht, wenn ich Beispielsweise 100 Tabellen haben und nach immer 12 Tabellen eine Zeile Runter muss.
Gibt es eine etwas kürzere Lösung/Funktion ?
AW: mehrere Tabellen nebeneinander kopieren
01.09.2019 19:29:11
Hajo_Zi
mein kurze Lösung gefiel also nicht.
Viel Erfolg noch.
Gruß Hajo
AW: mehrere Tabellen nebeneinander kopieren
01.09.2019 19:32:56
Matthias
Dazu brauchst DU nur Hajos & Piets Vorschläge einbauen.
Option Explicit
Sub Kopieren()
Dim x&
For x = 1 To Worksheets.Count
With Worksheets(x)
If Worksheets(x).Name  "Zusammenfassung" Then
.Range("B3:B26").Copy Destination:=Sheets("Zusammenfassung").Cells(Application. _
WorksheetFunction.RoundUp(x / 12, 0) + 3, x + 1)
End If
End With
Next
End Sub
Gruß Matthias
Anzeige
AW: mehrere Tabellen nebeneinander kopieren
01.09.2019 19:37:32
Nanu
WOW VIELEN HERZLICHEN DANK!!!
AW: mehrere Tabellen nebeneinander kopieren
01.09.2019 19:55:56
Hajo_Zi
schaue in meinen Beitrag, das war auch mein Vorschlag vor 2 Stunden.
Gruß Hajo
AW: mehrere Tabellen nebeneinander kopieren
01.09.2019 21:06:01
Nanu
Ja, hab ich leider überlesen. SRY :(
nochmal etwas kürzer wg. With ...
01.09.2019 19:38:08
Matthias 

Option Explicit
Sub Kopieren()
Dim x&
For x = 1 To Worksheets.Count
With Worksheets(x)
If .Name  "Zusammenfassung" Then
.Range("B3:B26").Copy Destination:=Sheets("Zusammenfassung").Cells(Application. _
WorksheetFunction.RoundUp(x / 12, 0) + 3, x + 1)
End If
End With
Next

End Sub

299 Forumthreads zu ähnlichen Themen

Word-Text auf xls-Zellen verteilen
Florian

Guten Morgen zusammen,
eine Frage: wie kann ich Word-Zeilen auf Excel-Zeilen (einzelne Zellen verteilen)?
Im Word-File habe ich z.B. den Text
Zeile1
Zeile2
Zeile3
untereinanderstehen, jetzt soll "Zeile1" in Zelle A1, "Zeile2" in Zelle B1 usw. stehen. Bsp hängt an.
Da...
18.08.2008 07:29:00
Thread-ID: 1002498
3 Beiträge
Anzeige
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Textbox auf UF dann Zellen füllen
Walter

Hall Fachfrauen und Männer,
habe ein kleines Problem bzw. Frage:
Ich habe auf einer UF eine Textbox1 wenn ich einen Wert eingebe z.b. 15,00
dann wird der Wert in meine Tabelle C10 eingesetzt.
Nun möchte ich das der Wert von C10 die Zellen mit dem gleichen Wert bis
C20 ausfül...
30.09.2008 10:27:04
Thread-ID: 1013282
11 Beiträge
Anzeige
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
Zellen von einer in die andere Tabelle kopieren
einer

Guten Morgen!
Ich habe 2 Tabellen. Eine Quelltabelle und eine ZielTabelle. Ich möchte nun die Daten aus der Quelldatei in die Zieldatei einfügen (aber Werte ohn Formatierung einfügen d.h. PasteSpecial). Irgendwie will das nicht gehen. :(
Dim wks As Excel.Worksheet
Dim Quell As Excel...
16.10.2008 10:53:15
Thread-ID: 1016793
5 Beiträge
Zelleninhalt auf Textteil überprüfen...
Jessi

Hallo zusammen,
ich bin gerade dabei meine Liste mit SVerweisen zu füllen und hänge an einem Problem:
Eine Ausgabe (über SVerweis) liefert einen Wert "String" XY_Text, ALTERN_Text oder MUSTER_Text in einer Zelle
jetzt möchte ich in einer anderen Zelle sagen:
Wenn Zelleninhalt mi...
07.11.2008 12:55:13
Thread-ID: 1022638
2 Beiträge
mehreren Zellen in einer Zelle mit Absätzen
Christian

1. Ist es möglich, die markierten Zeilen von Screenshot 1 per Formel/Makro so zu übernehmen, das diese wie in Screenshot 2 übernommen werden? Solche Felder kommen aber öfters und auch mit einzelnen Zeilen dazwischen vor. Die Formatierung (bei Zahlen mit ,00 soll ein langer Strich stehen) sollte...
28.11.2008 15:53:49
Thread-ID: 1028725
3 Beiträge
mehrere Zellen in einer Zelle mit Absätzen II
Christian

Hi
Wir brauchen etwas ähnliches wie in diesem Script von Daniel (der uns schon sehr weitergeholfen hat!):
https://www.herber.de/bbs/user/57225.xls
Zeilen sollen zusammengefasst werden, wenn die Bezeichnung in Spalte A und B gleich sind (siehe Screenshots).
https://www.herber.de...
05.12.2008 15:47:00
Thread-ID: 1030485
7 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
2
14
1
10
1
2
4
1
2
6
4
3
4
8
3
10
5
4
1
2
11
4
9
12
2