Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Konsolidierung

Konsolidierung
08.10.2007 09:26:00
Thommy
Hallo Zusammen!
Ich habe in einer Datei 2 Arbeitsblätter. In ihnen steht jeweils in Spalte A eine Personalnummer und in Spalte B ein Name. Ich möchte nun ein 3. Arbeitsblatt haben, indem ich alle Personalnummern untereinander aufgeführt habe ohne dass ich Doppelnennungen habe.
Ich habe euch das Beispiel auch angehängt. https://www.herber.de/bbs/user/46593.xls
Hat jemand eine Idee?
Vielen Dank.
Thommy

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Konsolidierung
08.10.2007 10:02:57
Thommy
Hallo Jens
Vielen Dank für den Input.
Im Gegensatz zu deinem Beispiel habe ich aber 2 verschiedene Tabellenblätter, die ich letztendlich filtern möchte. Ich möchte diese beiden Blätter nicht zuerst in einem Tabellenblatt zusammenfügen.
Hast du noch eine weitere Idee?
Gruss
Thomas

AW: Konsolidierung
08.10.2007 16:11:07
K.Rola
Hallo,

Sub Konsolidieren()
''Die Mappe darf während der Codeausführung nicht geschützt sein!
Dim Sh As Worksheet
Application.ScreenUpdating = 0
Set Sh = Worksheets.Add
Sh.Rows(1).Font.Bold = -1
Sheets("1.Jahreshälfte").[A1:B32000].Copy Sh.[a1]
Sheets("2.Jahreshälfte").[A2:B32000].Copy Sh.[a33000]
Sh.Columns("A:B").Sort Key1:=Sh.[A2], Order1:=1, Header:=1
Sh.[A1:B65000].AdvancedFilter Action:=2, CopyToRange:=Sh.Columns("D:E"), Unique:=-1
Sh.[D1:E65000].Copy Sheets("Zusammenfassung").[a1]
Application.DisplayAlerts = 0
Sh.Delete
Application.DisplayAlerts = -1
Application.ScreenUpdating = -1
Set Sh = Nothing
End Sub


Gruß K.Rola

Anzeige
AW: Konsolidierung
08.10.2007 23:28:00
Holger
Hi,
checke das nicht so richtig funzt aber klasse.
Grüße Holger

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige