Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1696to1700
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
1696to1700
1696to1700
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellen meherere Blätter in einem Blatt kopieren

Tabellen meherere Blätter in einem Blatt kopieren
20.06.2019 10:17:47
Robert
Hallo zusammen,
ich habe eine Excel Datei, die viele Arbeitsblätter hat. Außer Arbeitsblatt "Übersicht" und "Projekt" die andere Blätter sind gleich aufgebaut! Die Anzahl von Blätter ist variable!
Ich weiß es nicht, ob es möglich wäre oder eine Code gegeben würde, mittels einer Makro die Zellbereich von B345:AD374 von allen Arbeitsblätter (außer von Blattern "Übersicht und "Projekt") kopieren und nach einander in einem Blatt "Ausertung" ab Zeile 2 einzufügen! Zellbereich enthält Zahlen und Namen, die auch mitkopiert werden müssen!
Das wäre mega nett, wenn jemand mir dabei helfen könnte!
Danke Vorab!
Grüße
Ro

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellen meherere Blätter in einem Blatt kopieren
20.06.2019 10:20:10
Hajo_Zi
Ja das geht.
frage jemand der neben Dir sitzt der sieht die Datei.
Die meisten hier sehen Sie nicht.
Da Sie nicht auf Deinen Rechner schauen.
Vielleicht sollte die Datei verlinkt werden?
Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
Anzeige
AW: Tabellen meherere Blätter in einem Blatt kopieren
20.06.2019 10:41:24
Hajo_Zi
das geht nicht, da eine XLSX Datei kein Makro enthalten kann.
Ich sehe keinen Grund eine Datei 2x zu speichern. Ich führe keine Liste unter welchem Dateinamen ich die Datei gespeichert habe.
Gruß Hajo
AW: Tabellen meherere Blätter in einem Blatt kopieren
20.06.2019 10:57:48
Hajo_Zi 

Option Explicit
' nicht "Übersicht,Projekt, Auswertung
Sub Kopieren()
Dim WsTabelle As Worksheet
Dim Loletzte As Long
With Worksheets("Auswertung")
For Each WsTabelle In Worksheets
If WsTabelle.Name  "Übersicht" And WsTabelle.Name  "Projekt" _
And WsTabelle.Name  "Auswertung" Then
Loletzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
WsTabelle.Range("B345:Ad374").Copy .Cells(Loletzte, 1)
End If
Next WsTabelle
End With
End Sub
Gruß Hajo
Anzeige
AW: Tabellen meherere Blätter in einem Blatt kopieren
20.06.2019 11:10:08
Robert
wowwww...hat super geklapptttttt…
Vielen Vielen Dankkkkkkkk….
:)))))))))
Du bist genial!!!
AW: Tabellen meherere Blätter in einem Blatt kopieren
20.06.2019 11:24:40
Robert
Noch etwas bitte:
In der original Datei, in die Tabellen, die kopiert werden sollen, sind auch Formeln mit drin!
Wie kann man die Werten ohne Formel kopieren? Einfach nur die Werte! Was sollte man in Code ändern?
Danke dir!!!
AW: Tabellen meherere Blätter in einem Blatt kopieren
20.06.2019 11:52:00
Werner
Hallo,
die Codezeile hier 
WsTabelle.Range("B345:Ad374").Copy .Cells(Loletzte, 1)

ersetzen durch 
WsTabelle.Range("B345:Ad374").Copy _
.Cells(Loletzte, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Gruß Werner
Anzeige
AW: Tabellen meherere Blätter in einem Blatt kopieren
20.06.2019 11:57:47
Robert
Probiert...klappt leider nicht..
Option Explicit
' nicht "Übersicht, Projekt, Auswertung

Sub Kopieren()
Dim WsTabelle As Worksheet
Dim Loletzte As Long
With Worksheets("Auswertung")
For Each WsTabelle In Worksheets
If WsTabelle.Name  "Übersicht" And WsTabelle.Name  "Projekt" _
And WsTabelle.Name  "Auswertung" Then
Loletzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
WsTabelle.Range("B345:Ad374").Copy.Cells(Loletzte, 1).PasteSpecial Paste:= _
xlPasteValues
Application.CutCopyMode = False
End If
Next WsTabelle
End With
End Sub

Anzeige
AW: Tabellen meherere Blätter in einem Blatt kopieren
20.06.2019 12:03:55
Werner
Hallo,
sorry, mein Fehler, der Unterstrich muss weg.
so: 
WsTabelle.Range("B345:Ad374").Copy
.Cells(Loletzte, 2).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Gruß Werner
AW: Tabellen meherere Blätter in einem Blatt kopieren
20.06.2019 12:06:31
Robert
Superrrr...hat funktionierrrrrrttt… Danke schönnn :)
Schönen Tag dir!!!
Grüße
Ro
Gerne u. Danke für die Rückmeldung. o.w.T.
20.06.2019 12:07:36
Werner

302 Forumthreads zu ähnlichen Themen

Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Anzeige
Zelle in andere Tabelle mit Button kopieren
Benny

Hallo Zusammen!
Kann mir jemand weiterhelfen? Wie kann ich die unten stehende Formel entsprechend anpassen?
Private Sub CommandButton2_Click() Dim wks As Worksheet Set wks = Worksheets("Änderungsanträge") wks.Range("C3") = wks.Range("D3") End Sub
Danke im Voraus!
Benny
07.10.2008 10:06:48
Thread-ID: 1014629
4 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
Anzeige
Objekte in neues Tabellenblatt kopieren
Bertram

Hallo zusammen,
ich kopiere ein komplettes Tabellenblatt per VBA in ein (temporäres) neues Tabellenblatt ohne den Code des TBs zu kopieren, verschiebe dieses und speichere es als neue Datei ab. Soweit so gut. Allerdings habe ich auch 4 Kästchen (OK1 bis OK4) auf meinem Tabellenblatt, die ic...
27.01.2009 15:22:00
Thread-ID: 1044271
4 Beiträge
Mittelwerte in ein neues Blatt kopieren per VBA
Drusilla

Hallo liebe Profis
Da mir letztes Mal so gut geholfen wurde, würde ich euch gerne nochmals fragen. Ich möchte per Makro folgendes erreichen:
-neues Blatt generieren mit dem Namen „Uebersicht“
-dort Mittelwerte (sind schon berechnet, schreibe das nur, damit ihr wisst, dass in der...
06.05.2009 09:51:09
Thread-ID: 1073265
2 Beiträge
Formel komplett aus anderem Blatt übernehmen
martin

Hallo.
In verschiedenen Arbeitsbättern befinden sich exakt die selben Rechnungen, jeweils mit unterschiedlichen Werten.
In einem Master-Blatt möchte ich gerne die Zeilen und Spaltenbeschriftungen, sowie die zu verwenden formeln definieren.
Könnt Ihr mir Tipps geben, wo ich dazu was...
18.06.2009 14:56:18
Thread-ID: 1082618
2 Beiträge
Zeilen in anderes Arbeitsblatt kopieren
Alex

Hallo @ all
ich habe folgendes Problem:
Tabelle 1 enthält eine Vielzahl von Daten. Diese will ich nun filtern und die jeweilige Zeile, die in N "TGA" enthält in Tabelle 2 kopieren.
Ich weiß, dass das Ganze mit wenn(summe... funktioniert, aber vermute, man muss hier feste Zahlen ange...
06.07.2009 11:29:58
Thread-ID: 1086570
7 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
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
6
3
4
15
3
1
1
6
4
1
9
5
2
6
4
2
7
2
6
10
5
2
1
7