AW: Unikate aus 2 Spalten
22.03.2020 12:33:50
fcs
Hallo Fred,
mit dem SPezialfilter kann man nicht die Daten aus 2 Spalten in eine Spalte filtern und in einem anderen Zellbereich ausgeben.
Hier eine Variante:
Die Daten aus den Spalten werden untereinander in die Zielspalte kopiert und dann die Duplikate und Leerzellen gelöscht.
LG
Franz
Sub Unikate_Teams()
' Unikate_Teams Makro
Dim rngZiel As Range
Set rngZiel = Worksheets("Tabelle1").Range("I1")
rngZiel.Value = "Team"
With Worksheets("Tabelle0")
.Range("BF1:BF100").Copy 'ggf. BF1 durch BF2 ersetzen
rngZiel.Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Range("BG1:BG100").Copy 'ggf. BG1 durch BG2 ersetzen
rngZiel.Offset(101, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End With
With Worksheets("Tabelle1")
With .Range(rngZiel, rngZiel.Offset(200, 0))
.RemoveDuplicates Columns:=1, Header:=xlYes
.SpecialCells(xlCellTypeBlanks).Delete shift:=xlShiftUp
End With
Range("I1").Select
End With
End Sub