hätte da eine Frage:
Habe von ein Makro (unten stehend) bekommen.
Klappt super.
Makro sucht mir aus Spalte A (mit bedingter Formatierung)
Duplikate und kopiert diese in Tabelle2.
Wie sollte das Makro aussehen, damit mit auf Tabelle2
auch zusätzlich die restlichen Spalten aus Tabelle1 mit reinlaufen (20 Spalten) ?
Gruß
Sub Bedingte_Formatierung()
Dim myDic, myAr
Dim L As Long
Set myDic = CreateObject("Scripting.Dictionary")
'Wo die Daten stehen
With Sheets("Tabelle1")
myAr = .Range("A1", .Cells(.Rows.Count, 1).End(xlUp))
End With
For L = 1 To UBound(myAr)
myDic(myAr(L, 1)) = 0
Next L
'Wo die Daten hin sollen
With Sheets("Tabelle2")
.Range("A1", .Cells(.Rows.Count, 1).End(xlUp)).Value = "" 'Ziel leer machen
.Range("A1").Resize(myDic.Count) = Application.Transpose(myDic.keys)
End With
End Sub