Zwei Excel Dateien in eine neue Excel Datei kopier

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Chris,
ich hab da noch ein paar Fragen
1. Sind die beiden Dateien beim Start des Makros schongeöffnet?
2. Möchtest du die Dateien nacheinander in einem Dateiauswahkdialog zum Öffnen auswählen?
3. Stehen die Daten immer im 1. Tabellenblatt der Arbeitsmappen oder einem Blatt mit einem bestimmten Namen?
4. Sollen die Seiteneinstellungen der Tabelle in der 1. Datei in die zusammengeführte Datei übernommen werden? D.h das komplette Tabellenblatt würde in eine neue Datei kopiert werden.
5. Gibt es Formeln in den Tabellen?
5.1 Sollen nur Werte in die zusammengeführte Datei übernommen werden?
6. Gibt es eine/mehrer Überschriftenzeilen, die aus der 2. Datei nicht mit kopiert werden sollen.
Gruß
Franz

Hallo Chris,
1. Wenn ich die Spalten bis CK fortführen will muss ich die bereits von dir vorgegebenen spalten einfach nur fortführen?
Ja
2. Wenn ich bei Datei 2 erst ab Zeile 8 die Daten einlesen will was müsste da umgeändert werden?
Die ensprechende Eingabemöglichkeit ist hier:
Steuerung

	A	B	C
9	Anzahl Titelzeilen	3	Diese Zeilen werden nicht mit kopiert

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
ändere das in:
Steuerung

	A	B	C
9	Kopieren ab Zeile	8	Zeilen oberhalb werden nicht mit kopiert

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
wenn ich noch einbauen will das es die Zeilenumbrüche entfernt, wo müsste ich das einbauen

Die folgenden Zeilen im Makro anpassen, wenn vor dem Kopieren die Zeilenschaltungen in den Zellen ersetzt werden sollen. Ich hab mal ein Leerzeichen als Ersatz genommen, With wksSteuer For lngSpalte = 2 To .Cells(13, 1).End(xlToRight).Column If .Cells(14, lngSpalte).Text "" Then lngSpa_1 = .Range(.Cells(13, lngSpalte).Text & "13").Column lngSpa_2 = .Range(.Cells(14, lngSpalte).Text & "14").Column With wksQuelle With .Range(.Cells(lngZeile_1, lngSpa_2), .Cells(lngZeile_Q, lngSpa_2)) 'Zeilenschaltungen in Zellen ersetzen .Replace What:=Chr(10), Replacement:=" ", Lookat:=xlPart 'Daten kopieren .Copy Destination:=wksZiel.Cells(lngZeile_Z, lngSpa_1) End With End With End If Next lngSpalte End With 'wksSteuer Gruß
Franz

Sub Test() Cells.Replace Chr(10), " ", xlPart Cells.Replace Chr(9), " ", xlPart Cells.Replace Chr(13), " ", xlPart Cells.Replace Chr(59), " ", xlPart 'Trennzeichen entfernen ActiveSheet.Range("a1:ck6").EntireRow.Delete 'Zeilen löschen Dim Bereich As Range Dim Zelle As Range Set Bereich = Range("A2:CH1874") For Each Zelle In Bereich If Zelle = "" Then Zelle.Value = 0 Next Zelle Leere Zeilen mit Nullbefüllen End Sub

'Quelldatei wieder schliessen wkb_Q.Close savechanges:=False With wksZiel 'Trennzeichen entfernen .Cells.Replace Chr(10), " ", xlPart .Cells.Replace Chr(9), " ", xlPart .Cells.Replace Chr(13), " ", xlPart .Cells.Replace Chr(59), " ", xlPart 'Zeilen löschen .Range("a1:ck6").EntireRow.Delete Dim Bereich As Range Dim Zelle As Range 'Leere Zeilen mit Nullbefüllen Set Bereich = .Range(.Cells(2, 1), _ .Cells(.Cells.SpecialCells(xlCellTypeLastCell).Row, .Range("CH1").Column)) For Each Zelle In Bereich If Zelle = "" Then Zelle.Value = 0 Next Zelle 'Zeilenhöhe optimieren Bereich.EntireRow.AutoFit End With

Beliebteste Forumthreads (12 Monate)

Zwei Excel Dateien in eine neue Excel Datei kopier

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zwei Excel Dateien in eine neue Excel Datei kopier

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread