Dateien zusammenführen

Forumthread: Dateien zusammenführen
5 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Dateien zusammenführen

29.03.2005 15: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

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Was ist für Dich "Dateien zusammenführen"? oT

29.03.2005 15:35:51

Martin
AW: Was ist für Dich "Dateien zusammenführen"? oT

29.03.2005 15:42:08

Peter
AW: Was ist für Dich "Dateien zusammenführen"? oT

29.03.2005 16:01:18

Bert
AW: Was ist für Dich "Dateien zusammenführen"? oT

29.03.2005 16:11:40

Peter
AW: Dateien zusammenführen

29.03.2005 16:25:29

Rolf

Was ist für Dich "Dateien zusammenführen"? oT

29.03.2005 15:35:51

Martin

AW: Was ist für Dich "Dateien zusammenführen"? oT

29.03.2005 15: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 16:01:18

Bert

Hi,
schau dir mal Menü Daten|Konsolidieren an.
mfg Bert

AW: Was ist für Dich "Dateien zusammenführen"? oT

29.03.2005 16: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 16: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