Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
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
588to592
588to592
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateien zusammenführen

Forumthread: Dateien zusammenführen

Dateien zusammenführen
29.03.2005 13:30:32
Peter
Hallo,
ich habe vier Excel-Dateien, die jeweils eine Tabelle der gleichen Struktur (Anzahl und Art der Spalten) enthalten. Kann ich in einer weiteren Datei eine Zusammenführung der Einzeldateien erzeugen? Wenn ja, wie mache ich das?
Danke
PeMoe
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Was ist für Dich "Dateien zusammenführen"? oT
29.03.2005 13:35:51
Martin
AW: Was ist für Dich "Dateien zusammenführen"? oT
29.03.2005 13:42:08
Peter
Naja, ich weiß nicht genau wie ich mich ausdrücken soll:
Ich möchte halt, daß die Daten der einzelnen Tabellen in einer neuen Tabelle zusammengefasst werden.
AW: Was ist für Dich "Dateien zusammenführen"? oT
29.03.2005 14:01:18
Bert
Hi,
schau dir mal Menü Daten|Konsolidieren an.
mfg Bert
Anzeige
AW: Was ist für Dich "Dateien zusammenführen"? oT
29.03.2005 14:11:40
Peter
Kann man damit nicht nur Rechenoperationen ausführen (Summe, Mittelwert, Maximum,...) durchführen? Ich möchte, daß einfach die gesamten zeileninhalte aus verschiedenen Quell- in eine Ziel-Datei übernommen werden.
AW: Dateien zusammenführen
29.03.2005 14:25:29
Rolf
Hallo Peter,
vielleicht hilft dir das
fG
Rolf

Sub sheetscopy()
Const n As Integer = 4
Dim i As Integer, lc As Integer
Dim NewSheet As Worksheet
Dim CopyRange As Range
Set NewSheet = Worksheets.Add
NewSheet.Move after:=Sheets(Sheets.Count)
For i = 1 To n
Set CopyRange = Sheets(i).Range("A1").CurrentRegion
lc = NewSheet.Range("A1").CurrentRegion.Rows.Count + 1
CopyRange.Copy NewSheet.Cells(lc, 1)
Next
End Sub

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