Zwei Spalten zu einer verbinden o. doppe
05.05.2020 13:54:09
Steve
ich möchte Spalte A und Spalte C untereinander in Spalte E darstellen und das ohne doppelte.
Präziser: Ich möchte die Ranges ("N_N1") und ("N_N2") ohne doppelte in der Tabelle ("T_N3") darstellen
Spalte A in E kopieren bekomme ich wohl noch hin. Aber dann hört es leider schon auf. Ich habe einen, leider fehlgeschlagenen, Versuch bisher.
Mein bisheriger Versuch:
Sub Makro1()
Dim lngZeile As Long
Dim N3 As Range
Set N3 = Range("N_N3")
Range("T_N1[Name]").Copy
Range("E2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("T_N2[Name]").Copy
lngZeile = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row + 1
Range(lngZeile, 5).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Wie man allerdings die doppelten rausfiltert weiss ich überhaupt nicht. Ich habe einen Code im Netz gefunden. Aber bei dem müssen beide Teiltabellen in Spalte A liegen. Ich befreife ihn leider nicht genug um ihn für meine Zwecke anzupassen.
Der gefundene Code:
Sub beispiel()
Dim lngCounter As Long
Dim lngRow As Long
Dim bytColumn As Byte
Application.ScreenUpdating = False
For bytColumn = 1 To 2
For lngCounter = 1 To Cells(Rows.Count, bytColumn).End(xlUp).Row
If WorksheetFunction.CountIf(Range("C:C"), Cells(lngCounter, bytColumn)) = 0 Then
lngRow = lngRow + 1
Cells(lngRow, 3).Value = Cells(lngCounter, bytColumn).Value
End If
Next
Next bytColumn
Application.ScreenUpdating = True
End Sub
Liebe Grüße
Steve