Frage zu RemoveDuplicates
13.05.2021 21:40:49
Helene
der folgende Code löscht unter Berücksichtigung aller Spalten des Bereiches die Doppelten:
Option Explicit
Sub DuplikateWeg()
Dim wks As Worksheet
Dim LZ As Long
Dim LSp As Long
Set wks = Tabelle1
LZ = wks.Cells.SpecialCells(xlCellTypeLastCell).Row
LSp = wks.Cells.SpecialCells(xlCellTypeLastCell).Column
wks.Range(wks.Cells(1, 1), wks.Cells(LZ, LSp)).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7 _
, 8, 9, 10, 11), Header:=xlNo
Set wks = Nothing
End Sub
Wie kann ich anstatt "Columns:=Array(1, 2, 3, usw" angeben, dass das Array von Spalte 1 bis zur letzten Spalte (also LSp) gehen soll.
Ich weiss nämlich vorher nie wieviele Spalten im Bereich enthalten sind.
Danke und
MfG Helene