Herbers Excel-Forum - das Archiv

Zusammenführen von Tabellen - Spaltentiefe

Bild

Betrifft: Zusammenführen von Tabellen - Spaltentiefe
von: Elke

Geschrieben am: 24.02.2005 12:07:44
Hallo Ihr,
in der Hoffnung das mir jemand eine Lösung hat.
Ich versuche 2 Tabellen mit teilweise gleichem Inhalt, der bei Überschneidungen den doppelten Satz gleich löscht, zusammenzulegen.
Das funktioniert soweit auch, allerdings werden nur die Spalten A + B berücksichtigt und meine Tabellen haben Spalten von A bis ...
Was muss ich also ändern, um das gewünschte Ergebnis zu bekommen?
Sub Zusammenlegen()
Dim Mappe1 As Workbook, Mappe2 As Workbook
Dim Tabelle1 As Worksheet, Tabelle2 As Worksheet, TabelleNeu As Worksheet
Dim Range1 As Range, Range2 As Range, Zeile As Integer, Spalte As Integer
Application.ScreenUpdating = False
Set Mappe1 = Application.Workbooks("Mappe1.xls")
Set Tabelle1 = Mappe1.Worksheets("Tabelle1")
Set Range1 = Tabelle1.Range("A3").CurrentRegion
Set Mappe2 = Application.Workbooks("Mappe2.xls")
Set Tabelle2 = Mappe2.Worksheets("Tabelle1")
Set Range2 = Tabelle2.Range("A3").CurrentRegion
Set TabelleNeu = Worksheets("Tabelle1")
Spalte = Range1.Columns.Count
If Range2.Columns.Count > Spalte Then Spalte = Range2.Columns.Count
TabelleNeu.Rows(1).Font.Bold = True
TabelleNeu.Cells(1, 1) = Tabelle1.Cells(1, 1).Value
TabelleNeu.Cells(1, 2) = Tabelle1.Cells(1, 2).Value
Range1.Copy TabelleNeu.Range("A2")
Zeile = TabelleNeu.Cells(Rows.Count, 1).End(xlUp).Row + 1
Range2.Copy TabelleNeu.Cells(Zeile, 1)
TabelleNeu.Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=TabelleNeu.Cells(1, TabelleNeu.UsedRange.Columns.Count + 1), _
Unique:=True
TabelleNeu.Range(TabelleNeu.Cells(1, 1), TabelleNeu.Cells(1, Spalte)). _
EntireColumn.Delete
TabelleNeu.Columns.AutoFit: TabelleNeu.Cells(2, 1).EntireRow.Insert
Sortieren
End Sub

Sub Sortieren()
Range("A3:B100").Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
End Sub

Vielen Dank
Gruß Elke
Bild

Betrifft: AW: Zusammenführen von Tabellen - Spaltentiefe
von: Uduuh

Geschrieben am: 24.02.2005 12:27:37
Hallo,
wenn du die Mappe mal hochladen würdest, könnte dir besser geholfen werden.
Gruß aus'm Pott
Udo

Das Forum lebt auch von den Rückmeldungen an die Antworter!
 Bild
Excel-Beispiele zum Thema "Zusammenführen von Tabellen - Spaltentiefe"
Suche über mehrere Tabellen Benennen von Tabellenblättern mit Monatsnamen
Druckseitenlinien im Tabellenblatt Tabellenblattnamen in ein Listenfeld einlesen
Suchbegriff über mehrere Tabellenblätter suchen. Tabellenblätter benennen
Tabellenblatt auswählen Zustand von Tabellenblatt-Checkboxes ermitteln
Tabellenblattnamen der VBE-Projekte ändern Tabellenblattnamen nach Datum