Liebe Wissende und Kenner,
ich möchte in einer Tabelle die Inhalte von zwei Spalten miteinander abgleichen und in eine dritte Spalte nur die Inhalte aus Spalte 1 übernehmen, die nicht in Spalte 2 stehen - (wie) geht das?
Danke für Lösungen und Hilfe!
ich möchte in einer Tabelle die Inhalte von zwei Spalten
miteinander abgleichen und in eine dritte Spalte nur die
Inhalte aus Spalte 1 übernehmen, die nicht in Spalte 2 stehen
- (wie) geht das?
Hallo Tom,
A hat die Spaltennummer 1, B=2 usw.
Derzeit werden die Spalten in 1 überprüft ob sie in Spalte 2 stehen, wenn nicht werden sie in Spalte 3 geschrieben.
Um die Spalten an deine Tabelle anzupassen, ändere ggfs. die fettgedruckten Zahlen.
Sub kopier()
Dim Z As Long, Zei1 As Long, Zei3 As Long
Zei1 = Cells(Columns.Count," **1**").End(xlUp).Row
For Z = 1 To Zei1
If Application.CountIf(Columns( **2** ), Cells(Z, **1** )) = 0 Then
Zei3 = Zei3 + 1
Cells(Z, **1** ).Copy Destination:=Cells(Zei3, **3** )
End If
Next Z
End Sub
Gruß
Reinhard
Korrektur
Zei1 = Cells(Rows.Count, 1 ).End(xlUp).Row