RemoveDuplicates Dynmisch
11.05.2018 14:03:45
Nilo
wie kann ich den dieses Konstrukt dynmisch machen?
Mein Problem: die Anzahl der Spalten in der Quelle "Daten2" kann variieren!
was wenn die Quelle mal nur 2 Spalten hat dann wäre C1:C obsolet!
oder plötzlich 30 und die Zeilen unten nur bis bei AA1:AA gehen?
Die Zeile hier soll dynamisch via Schleife durchlaufen bis letzte Spalte:
.Range("?:?").RemoveDuplicates Columns:=1, Header:=xlNo
Ich hoffe das ist verständlich erklärt!?
Sub A_Dups()
Dim letzte As Long
ThisWorkbook.Worksheets("Daten2").UsedRange.Copy Destination:=ThisWorkbook.Worksheets("Daten_"). _
Columns(1)
With ThisWorkbook.Worksheets("Daten_")
letzte = ThisWorkbook.Worksheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row
.Range("A1:A" & letzte).RemoveDuplicates Columns:=1, Header:=xlNo
.Range("B1:B" & letzte).RemoveDuplicates Columns:=1, Header:=xlNo
.Range("C1:C" & letzte).RemoveDuplicates Columns:=1, Header:=xlNo
' und so weiter bis Ende , welches aber nicht fix ist ,mal mehr mal weniger!
End With
End Sub
Danke mal und Gruß
Nilo
Anzeige