Ich möchte eine Spalte und eine Zeile miteinander Vergleichen, in Tabelle1, Spalte D ab Zeile 6, stehen unterschiedliche Werte. Nun sollen in Tabelle2, ab Zelle F11 die Daten ohne doppelte Werte, mit einem Abstand von zwei Leerspalten eingetragen werden.
Dazu habe ich das untenstehende Macro gefunden. Was ich leicht abändern muss. Denn diese Macro trägt diese Werte in die Spalte B ein.
Im anghängten Beispiel habe ich es noch einmal beschrieben.
ich dachte es geht einfach in dem ich das Offset verändere nun ja wie immer ist es nicht so einfach
https://www.herber.de/bbs/user/116688.xlsm
kann sich dies mal jemand anschauen?
Das untenstehende Makro ist noch das orginale ich dachte so stiffte ich weniger Verwirrung.
liebe grüsse Thomas
Dim i As Long
Set wksMa = Worksheets("Tabelle1")
Set wksMk = Worksheets("Tabelle2")
If IsEmpty(wksMk.Cells(3, 2)) Then
wksMk.Cells(3, 2) = wksMa.Cells(6, 4).Value
End If
For i = 6 To wksMa.Range("D65000").End(xlUp).Row
If WorksheetFunction.CountIf(wksMk.Range("B1:B100"), wksMa.Cells(i, 4).Value) = 0 Then 'Bereich B1:B100 noch anpassen
wksMk.Range("B65536").End(xlUp).Offset(4, 0).Value = wksMa.Cells(i, 4).Value
End If
Next i