2 Spalten zusammen, ohne Dupletten
Daniel
Folgendes:
Ich habe eine Tabelle mit 2 Spalten.
In Spalte A steht eine Auftragsnummer und in Spalte B eine Projektnummer.
Ich möchte aufgrund einer speziellen Auswertung diese beiden Werte
zusammenfassen und ohne Dupletten in eine andere Arbeitsmappe übertragen.
Bsp.:
Aufrag Projekt
Auftrag 1 Projekt 1
Auftrag 2 Projekt 1
Auftrag 2 Projekt 1
Auftrag 3 Projekt 2
Ergebnis in einer anderen, bestehenden Arbeitsmappe
Spalte A
Auftrag 1, Projekt 1
Auftrag 2, Projekt 1
Auftrag 3, Projekt 2
Hat jmd. so etwas ggf. schon gelöst und kann mir den Code zur Verfügung stellen?
Mit einer Spalte habe ich es schon einmal wie folgt gelöst...
iRow = Sheets("temp").Cells(Rows.Count, 1).End(xlUp).Row
Dim Arr As Variant
Dim MyDic As Object
Dim L As Long
Arr = Sheets("temp").Range("A2:A" & iRow)
Set MyDic = CreateObject("Scripting.Dictionary")
For L = 1 To UBound(Arr)
MyDic(Arr(L, 1)) = 0
Next
newWS.Range("A1").Resize(MyDic.Count) = WorksheetFunction.Transpose(MyDic.Keys)
Grüße, Daniel
Anzeige