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...
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
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
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.
Hallo snb,
Kommt eine Fehlermeldung: Objekt erforderlich - auch ohne Option Explicit
Gruß
Marcus
@mar
Es soll ein Tabelle3 (codename) und sheet1 (codename) geben.
Hallo snb,
bei mir wird weiterhin : Objekt erforderlich angezeigt. Auch mit deiner Tabelle.
Wünsche Dir noch eine schöne Zeit
Gruß
Marcus
Hallo Marcus,
setze mal Option Explicit auf Kommentar.
snb hat damit gewöhnlich nichts am Hut.