"Sverweis" per VBA?
01.10.2014 12:57:04
Dominic
mit dem folgenden VBA Code erstelle ich mir eine Kundenliste, aus einer Datenbasis von über 76.000 Zeilen.
Jeder Kundenname der in der Datenbasis mehrere 100 mal aufgeführt wird, wird mit diesem VBA Code einmalig in das andere Tabellenblatt aufgelistet.
Nun möchte ich diesen VBA Code um eine weitere Funktion ergänzen.
Wenn die Kundenliste im Blatt "Datensammlungen" ab X3 aufgelistet wird, soll mir in der Spalte rechts daneben sprich ab Y3 die jeweils zugehörige eindeutige Kunden ID mit aufgeführt werden.
Diese ID wird im Tabellenblatt Datenbasis in Spalte A aufgeführt.
Wie kann ich das Skript nun so erweitern, dass zu jedem Kunden den er aus Spalte B des Blatts Datenbasis auch die ID aus Spalte A des Blatt Datenbasis übernimmt und in das Tabellenblatt Datensammlungen in Spalte X und Y übergeben/ untereinander aufführen?
Aktuell nutze ich in Zelle Y3 dafür folgende Funktion:
=WENNFEHLER(INDEX(Datenbasis!A:A;VERGLEICH(Datensammlungen!X3;Datenbasis!B:B;0));"")
Sub KundenListeErstellen()
Dim lRow As Long
With Sheets("Datenbasis")
lRow = .Cells(.Rows.Count, 2).End(xlUp).Row
.Range("B2:B" & lRow).Copy
End With
With Sheets("Datensammlungen")
.Range("X3").PasteSpecial
.Range("$X$3:$X$" & lRow - 1).RemoveDuplicates Columns:=1, Header:=xlNo
End With
Range("X1:AC350").Calculate
End Sub