Dublettenprüfung über 400 Spalten hinweg, für jede Spalte einzeln

[robinmathar]

Wenn ich mir das nochmal durchlese hört sich das sehr herablassend an, das sollte es gar nicht sein, sorry!

Wenn es da auch eine Lösung für gibt, wäre das eine riesen Hilfe, ich verzweifle leider grade ein bisschen daran..

---

Ah, jetzt kam auch deine Nachricht zeitgleich an. Ja die normale Option zum Dubletten entfernen habe ich auch schon angewendet, bei 420 Spalten ist das aber kein Spaß.. zumal ich noch weitere drei Dateien mit bis zu 1855 Spalten habe, über die ich das ganze ebenfalls laufen lassen sollte...

[Fennek]

Code:

Sub Makro1()
'
' Makro1 Makro
'

'
   For i = 1 To ActiveSheet.UsedRange.Columns.Count

        ActiveSheet.UsedRange.Columns(i).RemoveDuplicates Columns:=1, Header:=xlNo
    
    Next i
End Sub

[snb]

Ich habe zuerst ein leeres Arbeitsblatt hinzugefügt.
Und dann geht's bliztschnell mit:

PHP-Code:

Sub M_snb()
    sn = Tabelle3.UsedRange
    
    With CreateObject("scripting.dictionary")
    For jj = 1 To UBound(sn, 2)
      For j = 1 To UBound(sn)
        x0 = .Item(sn(j, jj))
        sn(j, jj) = ""
      Next
      For j = 1 To .Count
        sn(j, jj) = .keys()(j - 1)
      Next
      .RemoveAll
    Next
    End With
    
    Sheet1.Cells(1).Resize(UBound(sn), UBound(sn, 2)) = sn
End Sub 


[robinmathar]

Ich habe diesen Part des Codes:

Code:

For i = 1 To ActiveSheet.UsedRange.Columns.Count

        ActiveSheet.UsedRange.Columns(i).RemoveDuplicates Columns:=1, Header:=xlNo
   
    Next i

einfach in den restlichen integriert und es hat bis auf eine einzige Ausnahme funktioniert. Bei dieser einen Ausnahme hat er aber auch eine Dublette über zwei nebeneinander liegende Spalten hinweg markiert und somit jetzt auch nicht behoben. Ich werte das jetzt einfach Mal als Abweichung die sich noch im erträglichen Rahmen befindet.

Vielen vielen Dank für deine schnelle Hilfe!

Viele Grüße,
Robin

---

Auch dir noch vielen Dank, mit dem anderen Code konnte ich es schon lösen.

[marose67]

Hallo snb,

Kommt eine Fehlermeldung: Objekt erforderlich - auch ohne Option Explicit

Gruß
Marcus

[snb]

@mar

Es soll ein Tabelle3 (codename) und sheet1 (codename) geben.

[marose67]

Hallo snb,
bei mir wird weiterhin : Objekt erforderlich angezeigt. Auch mit deiner Tabelle.

Wünsche Dir noch eine schöne Zeit

Gruß
Marcus

[snb]

Versuch's noch mal.

[Käpt'n Blaubär]

Hallo Marcus,

setze mal Option Explicit auf Kommentar.
snb hat damit gewöhnlich nichts am Hut.