Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1248to1252
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
1248to1252
1248to1252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

30 Tabellen in ein Blatt untereinander kopieren

30 Tabellen in ein Blatt untereinander kopieren
Bernhard
Hallo liebe Excel-Gemeinde,
ich habe 2 Stunden im Forum gesucht, aber leider erfolglos. Daher bitte ich nunmehr um Eure Hilfe.
In einem Verzeichnis "B:\Quelldaten" liegen 30 Dateien mit jeweils 1 Blatt. Die Dateien - jede hat ein Blatt - weisen alle eine gleiche Spalten-Struktur auf. Lediglich die Datenzeilen können von 50 bis zu 400 Zeilen variieren. Diese 30 Dateien bzw. Blätter sollen bitte alle in einer Datei "Zusammenfassung" untereinander kopiert werden.
Ergänzung (nice to have :-)):
Super wäre es, wenn vor dem Herauskopieren in diesen 30 Tabellenblättern in der Zelle A29 bis "Ende used Range" (also in soviele Zeilen, wie die Tabelle lang ist) ein Wert aus der Zelle F15 kopiert wird (dort steht die Kostenstelle).
Danke vorab.
LG, Bernhard
AW: 30 Tabellen in ein Blatt untereinander kopieren
28.01.2012 23:10:05
JoWe
Hallo Bernhard,
ein Versuch:
Option Explicit
Sub getData()
    Dim wb As Workbook
    Dim sh1 As Worksheet
    Dim aname, name1, pfad1, special As String
    Set wb = ThisWorkbook
    Set sh1 = wb.Sheets(1)
    aname = wb.Name
    pfad1 = wb.Path & "\"
    With sh1
        .Cells.Delete
        .Cells(1, 2) = "ID"
        .Cells(1, 3) = "Nummer"
        name1 = Dir(pfad1, vbNormal)
        Do While name1 <> "" And name1 <> aname
            If Right(name1, 4) = ".xls" Then
                Workbooks.Open Filename:=pfad1 & name1
                special = Sheets(1).Range("F15")
                Sheets(1).Range("B29:E" & Sheets(1).Range("b65536").End(xlUp).Row).Copy
                Windows(aname).Activate
                .Cells(.Range("b65536").End(xlUp).Row + 1, 8) = special
                .Cells(.Range("b65536").End(xlUp).Row + 1, 2).PasteSpecial Paste:=xlValues
                Windows(name1).Activate
                ActiveWorkbook.Close savechanges:=False
            End If
            name1 = Dir
        Loop
        .Cells.Select
        .Cells.EntireColumn.AutoFit
        .Cells(1, 1).Select
    End With
End Sub

Gruß

Jochen

Code eingefügt mit VBA in HTML 1.2

http://vbahtml.origo.ethz.ch
Anzeige
AW: 30 Tabellen in ein Blatt untereinander kopieren
29.01.2012 11:29:49
Bernhard
Hallo Jochen,
vielen Dank f.d. Code, leider funktioniert er aber nicht. Es werden die Blätter im Verzeichnis "B:\Quelldaten" zwar aufgerufen, aber es geschieht nichts mit diesen. Es werden nur folgende zwei Zeilen in der Datei "Zusammenfassung", in der der Code steht, erzeugt:
ID Nummer
97 7XU2QON1RQO0REEWE20VM151O WAHR WAHR
105 7XU2QON1RQO0REEWE20VM151O WAHR WAHR
https://www.herber.de/bbs/user/78642.xlsm
Würdest du bitte noch mal einen Blick auf den Code werfen?
Grüße und vielen Dank, Bernhard
AW: 30 Tabellen in ein Blatt untereinander kopieren
29.01.2012 17:04:00
JoWe
Hallo Bernhard.
lade doch mal bitte eine der 30 Dateien hoch, dann muss ich nicht weiter im Dunkeln stochern...
und komplettiere Deine Sammeltabelle mal mit einem Beispiel für das Ergebnis und lade die dann auch noch hoch.
Hier ein paar weitere Anmerkungen:
Aus welcher Tabelle heraus möchtest Du den Code starten?
Ab welcher Zeile sollen Daten importiert werden?
Welche Palten sollen dabei berücksichtigt werden?
Das alles ging aus Deiner Fragestellung nicht so richtig hervor.
Du hattest nichts zu Überschriften gesagt, daher die Idee mit "ID" und "Nummer".
Weiter war nichts darüber bekannt in wecler Zeile/Spalte der Import starten sollte.
Die hier aus Deiner Sicht notwendigen Änderungen dürften doch aber nicht allzu vile Problem aufgeworfen haben, oder?!
Gruß
Jochen
Anzeige
AW: 30 Tabellen in ein Blatt untereinander kopieren
29.01.2012 18:13:14
Bernhard
Hallo Jochen.
Gerne 2 Dateien sowie deine Fragen (vielen Dank schon mal im voraus):
Ich würde gerne aus der Datei "Zusammenfassung.xls" heraus die Zusammenfassung starten.
Ab der Zeile 29 sollen die Daten importiert werden
Die Spalten A-F sollen importiert werden
Alle Dateien liegen in dem Ordner "B:\Quelldaten"
2 Beispiels-Dateien, die zusammengefügt werden sollen
https://www.herber.de/bbs/user/78645.xls
https://www.herber.de/bbs/user/78646.xls
Die Datei "Zusammenfassungs.xls" nochmals:
https://www.herber.de/bbs/user/78647.xlsm
Herzliche Grüße aus Bayern
Bernhard
Anzeige
AW: 30 Tabellen in ein Blatt untereinander kopieren
29.01.2012 19:53:49
JoWe
Hallo Bernhard,
hier noch mal ein Versuch.
Diesmal lade ich die geänderte Arbeitsmappe hoch:
https://www.herber.de/bbs/user/78649.xls
Ich hoffe esklappt jetzt.
Gruß
Jochen
@Jochen ... Tauschend Dank
29.01.2012 20:02:16
Bernhard
Hallo Jochen.
Perfekt. Klappt wunderbar. Vielen herzlichen Dank für deine Mühen. Das hätte ich wohl nie hinbekommen. Da hast du mir sehr geholfen und mir viel Arbeit des mühseligen Kopierens erspart.
Liebe Grüße aus Bayern
Bernhard

303 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