Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
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
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
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Tabellen zu einer Tabelle umformen

Forumthread: Mehrere Tabellen zu einer Tabelle umformen

Mehrere Tabellen zu einer Tabelle umformen
05.07.2007 10:28:00
Claus
Hi Leute,
ich hab hier einen Ordner mit mehreren .xls Dateien. Jede dieser Dateien hat 2 Tabellen.
Die 1. hab ich schon so mit Makros bearbeitet wie ich sie brauche. Die 2. wird aus der 1. automatisch erzeugt, daher heißen alle 2.Tabellen auch gleich(Transponiert). Diese "Transponiert"-Tabelle hat nur 2 Zeilen, aber Spalten von A-AQ. In der ersten Zeile steht die Beschreibung und darunter in der 2. die dazu passenden Messwerte.
Nun bräuchte ich ein Makro, das wenn ich eine neue leere Ecxel Datei öffne und diese Makro ausführe, diese 2 Zeilen aus allen .xls Dateien des Ordners ausliest und sie in die aktuelle (aktive) Datei schreibt.
Dabei sollen zum Schluß alle diese Zweizeiler untereinander stehen.
Für eure Hilfe wäre ich sehr dankbar
MfG Claus

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Tabellen zu einer Tabelle umformen
05.07.2007 11:45:44
Chaos
servus,
bitte:

Sub suchen()
Dim n As String
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Workbooks.Add
n = ActiveWorkbook.Name
With Application.FileSearch
On Error Resume Next
.NewSearch
.LookIn = "C:\Documents and Settings\stadter\Desktop\Suchen"
.Filename = "*" & ".xls"
If .Execute() > 0 Then
For Dateien = 1 To .FoundFiles.Count
DateiName = Dir(.FoundFiles(Dateien))
Dateipfad = .FoundFiles(Dateien)
If DateiName  ThisWorkbook.Name Then
Workbooks.Open Filename:=.FoundFiles(Dateien)
With ActiveWorkbook
ActiveWorkbook.Sheets(1).Range("A1:BQ2").Copy Destination:=Workbooks(n). _
Sheets(1).Range("A65536").End(xlUp).Offset(1, 0)
ActiveWorkbook.Close
End With
End If
Next
End If
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub


aus einer Arbeitsmappe heraus starten, die du offen hast und dann wird das neue Workbook gleich mit erzeugt, alles andere wie beschrieben.
Musst evtl. deine Tabellenblattnamen anpassen, hier bezieht sich alles auf Sheet(1), also erstes Blatt
Gruß
Chaos

Anzeige
AW: Mehrere Tabellen zu einer Tabelle umformen
05.07.2007 12:01:00
Claus
Funktioniert einwandfrei!!!
Vielen Dank
Claus

AW: Mehrere Tabellen zu einer Tabelle umformen
05.07.2007 13:24:40
Chaos
Bitte
;

Forumthreads zu verwandten Themen

2 Combobox in UF in Tabelle1 u. Daten in Tabelle 2
Bernhard

Guten Abend liebe Excelprofis,
ich komme nicht weiter, folgende Aufgabenstellung zu lösen:
Ich rufe in Tabelle 1 eine Userform auf, die 2 ComboBoxen hat. (ArtikelNr. ArtikelBezeichnung). In Tabelle 2 stehen in Spalte A die ArtikelNrn. und in Spalte B die ArtikelBezeichnungen untereinand...
17.09.2008 21:32:00
Thread-ID: 1010532
5 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
Daten aus Tabelle in eine andere Tabelle
Cornelia

Ich habe 2 Tabellen mit dem gleichen Aufbau.
Tabelle 1 soll die Daten eingetragen werden. Von mehreren Leuten. Deshalb eben seperat.
Tabelle 2 soll die Daten aus Tabelle 1 übernehmen. Jeweils ein Blatt mit identischen Blattnamen aus Tabelle 1. Bisherige Lösung von mir in jede Zelle rein...
01.10.2008 08:11:00
Thread-ID: 1013510
6 Beiträge
Bereich von Tabelle1 als Grafik in Tabelle2 einfüg
Tabelle1

Hallo Leute,
ich komm irgendwie nicht weiter und benötige Hilfe.
es soll z.B. von Sheets("Tabelle1") Range("a1:b5")
als Grafik
in Sheets("Tabelle2")
Gruss
Atikar
19.11.2008 17:09:19
Thread-ID: 1026118
3 Beiträge
Werte aus allen Tabellen in ein Tabelle zusammenfü
Kurt

Hallo Zusammen,
ich möchte gern alle Werte aus den vorhandenen Tabellen in eine Tabelle eingelesen werden.
Es dürfen nur nicht aus der "Muster + Alle" Tabelle, geht das per Makro?
Aus folgenden Zellen sollen alle Werte addiert in die "Alle" Tabelle reingesetzt werden.
D17 + D17<...
16.01.2009 16:14:00
Thread-ID: 1040622
10 Beiträge
Anzeige
NEU: Tabellen zu einer „Mastertabelle“ zusammenfüh
Volker

Hi an alle!
Eine ähnlich Frage hatte ich vor kurzem schon mal gestellt. Mittlerweile hat sich an der Ausgangslage jedoch etwas geändert, so dass ich meine Frage noch einmal stelle.
Ich habe verschiedene Projektpläne (alles einzelne Excel-Dateien; etwa 20). Diese bestehen alle aus einem...
03.04.2009 14:30:39
Thread-ID: 1066690
5 Beiträge
Tabelleninhalte auslesen u. in eine andere Tabelle
Ralph

Hallo "ZUSAMMEN,
ich bin heute diesem Forum beigetreten um meine -nicht allzu guten- Excel-Kenntnisse zu erweitern.
Derzeit beschäftige ich mich damit, aus einer bestehenden Tabelle1 bestimmte Werte (z.B. wenn der
Umsatz kleiner 250,-- EUR ist) in eine Tabelle2 zu übertragen. Bis je...
23.09.2009 20:23:41
Thread-ID: 1105052
7 Beiträge
Tabelleninhalte auslesen u. in eine andere Tabelle
Ralph

Antwort auf Dein Ergebnis zu meiner Anfrage "Tabelleninhalte auslesen u. in eine andere Tabelle"
Hallo Matthias,
bin wieder an Bord und begeistert von Deiner Lösung. Klappt prima! Super... Super...
Habe versucht dieses VBA zu verstehen... aber keine Chance! Kannst Du mir vielleicht...
06.10.2009 19:23:15
Thread-ID: 1107569
8 Beiträge
Pivot Tabelle in Tabelle mit Spalten umwandeln??
okgi

Hallo liebe Excel Gemeinde!!
Meine Frage ist: wie kann ich eine Pivot Tabelle in eine Tabelle mit Spalten automatisiert überführen?
Zum Beispiel:
Pivot Tabelle
________KST_____________
Konto_.......1...........2...........3..
__A___.100,00................31,99
__B___...
15.12.2009 17:35:51
Thread-ID: 1124143
3 Beiträge
Daten aus Tabelle in Zieltabelle holen
René

Hallo liebe Excelgemeinde, gibt es eine Möglichkeit das Makro so zu ändern das die Spalten ab Spalte X in der Zieltabelle nicht überschrieben werden
Dim a As Long, b As Long, c As Long
b = Sheets("").Cells(Rows.Count, 1).End(xlUp).Row
c = Sheets("").Cells(Rows.Count, 1).End(xlUp).Ro...
01.02.2010 22:41:38
Thread-ID: 1134947
2 Beiträge
Anzeige
Daten aus Tabellen Suchen und in Tabelle zusammenf
Brutus

Wer kann mir helfen?
Ich möchte gern aus Tabelle K1 bis K13 verschiedene Daten in Tabelle ALLES zusammenfassen. s.Upload
https://www.herber.de/bbs/user/68180.xls
Ich würde mich freuen, wenn jemand eine Lösung in Form einen Formel oder Makro hätte!!!
23.02.2010 07:12:09
Thread-ID: 1140473
9 Beiträge
Tabellenblätter in eine neue Tabelle
Peter

Guten Tag
Ich habe eine Datei mit 24 Worksheets, in welchen gleichviele Spalten abgefüllt sind ( A - K) jedoch unterschiedlich viele Zeilen.
Nun möchte ich gerne in eine weitere Tabelle alle Tabellen übernehmen
Wenn in Tabelle1 zB. 5 Zeilen gefüllt sind, möchte ich diese 5 in die ne...
26.02.2010 12:50:03
Thread-ID: 1141743
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