Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1696to1700
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
Inhaltsverzeichnis

Listen zusammenführen

Listen zusammenführen
26.06.2019 10:18:48
Alf16
Hallo,
ich habe in 2 Tabellen jeweils eine Liste mit Namen (s. Datei).
https://www.herber.de/bbs/user/130587.xlsx
Nun möchte ich in einer dritten Tabelle diese beiden Listen zusammenführen und zwar so, dass zuerst die Namen der Tabelle1 und anschließend die der Tabelle2 untereinander gelistet werden. Die Anzahl der Namen in der Tabelle1 kann jedoch variieren. Habt Ihr da evtl. eine Idee (Formel oder VBA ist egal)?
Vielen Dank im Voraus!
Alf

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

Betreff
Datum
Anwender
Anzeige
AW: Listen zusammenführen
26.06.2019 10:31:37
Werner
Hallo,
so:
Public Sub kopieren()
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
.Range("A2:A" & .Cells(.Rows.Count, "A").End(xlUp).Row).Copy _
Worksheets("Tabelle3").Range("A" & Worksheets("Tabelle3") _
.Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row)
End With
With Worksheets("Tabelle2")
.Range("A2:A" & .Cells(.Rows.Count, "A").End(xlUp).Row).Copy _
Worksheets("Tabelle3").Range("A" & Worksheets("Tabelle3") _
.Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row)
End With
End Sub
Gruß Werner
AW: z.B. auch mit einer INDEX()-Formel ...
26.06.2019 10:35:59
neopa
Hallo Alf,
... in A2:
=WENN(ZEILE()&gtANZAHL2(Tabelle1!A:A);INDEX(Tabelle2!A:A;ZEILE()-ANZAHL2(Tabelle1!A:A)+1)&"";INDEX(Tabelle1!A:A;ZEILE()))
und Formel weit genug nach unten kopieren.
Gruß Werner
.. , - ...
Anzeige
AW: Listen zusammenführen
26.06.2019 10:52:46
Alf16
Hallo Leute,
ihr seid einfach genial!!! Vielen Dank! Und nun habe ich die Qual der Wahl! ;o)=) Aber mit dieser "Qual" kann ich leben!
Alf
Gerne u. Danke für die Rückmeldung. o.w.T.
26.06.2019 11:00:55
Werner

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige