2 Listen in einer integrieren und filtern mit VBA

Hallo Freunde,
habe mal wieder ein Problemchen. Hoffe Ihr könnt mir wieder mal helfen. Ich habe eine Liste mit Projekten. Diese Frage habe ich gestern schon gestellt, leider habe ich die Betreffzeile etwas schlecht formuliert. Deshalb hier nochmal, jetzt mit Beispieldatei:
In der Spalte C befinden sich alle Kunden und in der Spalte I alle Endkunden.
Siehe Beispiel:
Nun möchte ich eine Liste erstellen, in der alle Kunden und Endkunden zu finden sind. Doppelte Einträge sollen Automatisch gelöscht werden.
Wenn möglich noch sortiert. Habe das ganze schon mit dem Makrorekorder probiert und habe folgendes gemacht. Beide Spalten unter einander kopiert, mit Spezialfilter ohne Duplikate sortiert und anschließend nach Alphabet sortiert.
Das ganze sollte sich automatisch aktualisieren, da es sich um eine fortlaufende Projektliste handelt.
Ich habe es schon mit dem Makrorekorder und dem Spezialfilter probiert. Leider hat das nicht richtig geklappt, da die beiden Listen in einer Liste integriert werden müssen. Da es sich um eine fortlaufende Liste hat klaptt das nicht.
Hier die Beispieldatei:
https://www.herber.de/bbs/user/24388.xls
Vielen Dank
Daniel

Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
Teil 1 klappt so...


Sub CopyUNDraus()
Dim Erste%, Spalte%, I%, J%, PR, KL, LR%, LL%
Erste = 4 'Ab Zeile
Spalte = 1 'Spalte in Kundenliste angenommen=A
Set PR = Sheets("Projekte")
Set KL = Sheets("Kundenliste")
'Kopieren
J = 3 'Spalte C
For I = 1 To 2
LR = PR.Cells(Rows.Count, J).End(xlUp).Row 'letzte Zeile der Spalte
LL = KL.Cells(Rows.Count, Spalte).End(xlUp).Row 'letzte Zeile der Spalte
PR.Range(PR.Cells(Erste, J), PR.Cells(LR, J)).Copy Destination:= _
KL.Cells(LL + 1, Spalte)
J = 9 'Spalte I
Next I
'Sortieren
KL.Columns("A:A").Sort Key1:=KL.Range("A2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'Doppelte Raus
LL = KL.Cells(Rows.Count, Spalte).End(xlUp).Row 'letzte Zeile der Spalte
For I = LL To 2 Step -1
If Application.CountIf(KL.Columns(Spalte), KL.Cells(I, Spalte)) > 1 Then
KL.Rows(I).Delete
End If
Next
End Sub

Wann soll das ganze automatisch ablaufen, Wenn du in Blatt1 eine eine Ergänzung vornimmst, oder wenn in Blatt2 was geändert wird.
Gruß UweD

Beliebteste Forumthreads (12 Monate)

2 Listen in einer integrieren und filtern mit VBA

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2 Listen in einer integrieren und filtern mit VBA

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread