Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
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
1564to1568
1564to1568
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte Tabellenteile in eine Tabelle kopieren

Forumthread: Bestimmte Tabellenteile in eine Tabelle kopieren

Bestimmte Tabellenteile in eine Tabelle kopieren
27.06.2017 13:56:02
kubden82
Moin,
ich habe schon ein wenig gefunden, nur ist das nicht ganz passend und ich bekomme es selbst nicht umgeschrieben. Ich habe auf meinen Tabellenblättern im Bereich A17:M17 Werte stehen, diese möchte ich nun auf den letzten Reiter untereinander kopieren.
Dieses habe ich bereits gefunden und es funktioniert gut, nur bekomme ich das nicht auf meinen Bereich umgeschrieben:
Sub ZusammenFuehren()
Dim intSheets As Integer
Dim lngLastRow As Long
' Das nur wenn gewünscht, löscht die letzte Tabelle vor dieser Aktion.
Sheets(ActiveWorkbook.Sheets.Count).Cells.Delete
For intSheets = 1 To ActiveWorkbook.Sheets.Count - 1
Sheets(intSheets).UsedRange.Copy
lngLastRow = Sheets(ActiveWorkbook.Sheets.Count).Cells(65536, 1).End(xlUp).Row + 1
Sheets(ActiveWorkbook.Sheets.Count).Paste Destination:=Sheets(ActiveWorkbook.Sheets.Count). _
Cells(lngLastRow, 1)
Sheets(ActiveWorkbook.Sheets.Count).Rows(lngLastRow).Delete
Next intSheets
Application.CutCopyMode = False
End Sub
Kann mir hier einer den Code anpassen?
Vielen Dank
kubden82
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Tabellenteile in eine Tabelle kopieren
27.06.2017 14:11:04
Michael
Hallo!
Bisschen anderer Ansatz, wollte den o.a. Code jetzt nicht groß durchforsten:
Sub a()
Const WERTE$ = "A17:M17"
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet
Application.ScreenUpdating = False
Wb.Worksheets(Wb.Worksheets.Count).Cells.ClearContents
For Each Ws In Wb.Worksheets
If Ws.Name  Wb.Worksheets(Wb.Worksheets.Count).Name Then
Ws.Range(WERTE).Copy
With Wb.Worksheets(Wb.Worksheets.Count)
.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial _
(xlPasteValuesAndNumberFormats)
End With
End If
Next Ws
Application.CutCopyMode = False
Set Wb = Nothing: Set Ws = Nothing
End Sub
Den zu kopierenden Bereich kannst Du gleich in der ersten Zeile des Codes anpassen, wenn gewünscht.
LG
Michael
Anzeige
AW: Bestimmte Tabellenteile in eine Tabelle kopieren
27.06.2017 14:16:10
kubden82
Vielen Dank, funktioniert super!
Gern, Danke für die Rückmeldung, owT
27.06.2017 18:49:59
Michael
;

Forumthreads zu verwandten Themen

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
Word-Frage, wo sind die zuletzt geöffneten dateie
Reinhard

Hallo Wissende,
wenn ich in Excel einen Dateinamen aus der Liste der zuletzt geöffneten Dateien nehme und danach in der Registry suche, so finde ich dort die Liste der Dateien und könnte mit kenntnis des Schlüssels dort die Dateiliste auslesen, naaja, wenn ich Code dafür hätte :-)
In/mi...
08.09.2008 22:51:00
Thread-ID: 1008263
4 Beiträge
Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Tabellenblätter in neue Arbeitsmappe kopieren
Christian

Hallo!
ich möchte gerne per makro aus einer datei mit ca. 70 tabellenblättern 11 Blätter auswählen und in eine neue Mappe kopieren, am besten sollten auch gleich noch die verküpfungen (in der neuen mappe) gelöscht werden.
Die zu kopierenden Blätter sind nicht hintereinander, also quer ü...
10.09.2008 16:37:00
Thread-ID: 1008845
6 Beiträge
Anzeige
Inhalt einer Tabelle in 2. Tabelle kopieren
Thomas

Hallo Excel Gemeinde,
Den Inhalt einer Tabelle, möchte ich in eine zweite Tabelle in der gleichen Arbeitsmappe kopieren, das funktioniert schon mal.
Die zu kopierenden Daten sollen aber am Ende der bereits vorhandenen Daten angefügt werden, bisher überschreibt es mir diese aber ;-(
...
24.09.2008 22:19:00
Thread-ID: 1012186
3 Beiträge
Anzeige
Exceltabelle in Word
S.H.

Hallo,
evtl. bin ich auch im falschen Forum, aber trotzdem meine Frage:
Ich habe ein Excel Arbeitsblatt unter word eingefügt und möchte dort weitere Zeilen einfügen. Das funktioniert auch soweit, am Ende der Word Seite ist allerdings Schluss. Ich schaffe es nicht, das die Tabelle einen...
20.10.2008 20:22:26
Thread-ID: 1017796
3 Beiträge
Exceldaten als Fliestext in Word einbinden?
Frank

Hallo zusammen,
ich habe eine halbe Excel und halbe Wordfrage :-)
Ich habe eine Exceltabelle mit diversen Zahlenmaterial. Das Zahlenmaterial wird ständig aktualisiert. Parallel dazu habe ich einen geschriebenen Langtext in Word, der eine Art ausführliche Erklärung zur Exceltabelle darst...
23.10.2008 07:08:00
Thread-ID: 1018498
3 Beiträge
Anzeige
von Tabelle eine Datei erstellen
Tabelle

Hallo Zusammen,
vielleicht kann mir jemand einen Tip geben.
Ich möchte gern von der aktiven Tabelle eine Datei erstellen.
Die Datei sollte ins Verzeichnis "C:\Gesamt\Produkte\"
kopiert werden.
Der Tabellenname: "Daten"
Nach Möglichkeit als Datei mit akt. Datum: "Daten...
23.10.2008 12:44:00
Thread-ID: 1018612
5 Beiträge
Kopieren in ausgeblendete Tabelle
Wolfgang

Hallo,
noch weiterhin auf der Suche nach Lösungsmöglichkeiten, folgende Frage. - Den untenstehenden Code entdeckte ich auf der "Herber-CD"; Wie kann ich den Code umstellen, wenn die Daten aus Tabelle "Grunddaten" und "Altdaten" in die ausgeblendete Tabelle "Gesamt" kopiert werden soll. Dabe...
09.11.2008 15:48:00
Thread-ID: 1023078
3 Beiträge
Excel Grafiken in Word kopieren
niefl

Hi,
eine Freundin schreibt gerade eine Arbeit in Word. Sie verwendet sehr viele Excel Diagramme und Tabellen. Sie verwenden "kopieren" (in Excel) und "Inhalte einfügen" / "als Bild (Erweiterte Metadatei)" um Diagramme in das Word-Dokument zu integrieren. Leider ist das Ergebnis nicht perfek...
09.11.2008 19:19:03
Thread-ID: 1023105
2 Beiträge
Leere Zeilen in Tabellenspalte zählen
A.Franz

Hallo...
ich habe fogendes Problem u.hoffe das mir jemand helfen kann.Ich Habe eine UserForm mit Listbox u.Textbox.Über diese schreibe ich Werte in die Tabelle (Spalte A).Ist es möglich,wenn ich die Userform aufrufe,das mir die Anzahl noch freier Zeilen in Spalte A z.B in einer TextBox oder...
03.12.2008 12:55:46
Thread-ID: 1029789
4 Beiträge
aus Excel einen Word-Brief erstellen, wie?
stefan

Hallo,
ich habe diverse Daten in Excel. Diese möchte ich per Buttonklick in ein (vordefiniertes) Worddokument schreiben.
Ich denke, das geht mit Textmarken.
Aber leider habe ich keinen Anhaltspunkt oder Beispiel wie ich anfangen soll.
Habt Ihr Ideen?
Danke Euch.
22.12.2008 09:56:00
Thread-ID: 1034734
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