bitte helft mir.
habe jetzt eine Tabelle von A1 bis VLG421. (15191 Spalten)
Jetzt meine Frage, was ist die schnellste Möglichkeit, Spalte für Spalte Duplikate zu entfernen, jeweils immer eine Spalte für sich genommen?
Gruß
Christian
Dim x As Long, MyCalcMod
MyCalcMod = Application.Calculation 'Zustand merken
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
For x = 1 To 15191
ActiveSheet.Columns(x).RemoveDuplicates Columns:=1, Header:=xlNo
Next
Application.Calculation = MyCalcMod 'Zustand wiederherstellen
Sub Duplikate
und untendrunter End
Sub schreiben
und dann über Alt+F11 in den VBA Code der entsprechenden Tabelle packen
oder ist abgesehen von dem Header noch mehr zu tun?
Gruß
Christian
Option Explicit
Public Sub Duplicate_raus()
Dim loletzteSpalte As Long
Dim loletzteZeile As Long
Dim i As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With Worksheets("Tabelle1") 'anpassen
loletzteSpalte = .Cells(1, .Columns.Count).End(xlToLeft).Column
For i = 1 To loletzteSpalte
loletzteZeile = .Cells(.Rows.Count, i).End(xlUp).Row
.Range(.Cells(1, i), .Cells(loletzteZeile, 1)).RemoveDuplicates Columns:=i, Header:= _
xlNo
Next i
End With
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Gruß Werner...)).RemoveDuplicates Columns:=i, Header:= _
xlNo
...)).RemoveDuplicates Columns:=i, Header:=xlNo
Gruß Daniel