|
Hallo Zusammen,
ich habe folgende Aufgabenstellung, an der ich verzweifle:
In Zeile 1, Spalte 7 bis 169 stehen in jeder Zelle Länderabkürzungen z.B. DE, IT;GB etc.
Diese Abkürzungen werden zuvor über ein Array eingelesen in die jeweiligen Zellen.
Nun kann es vorkommen, dass ich ca. 20 Mal die Abkürzung "DE" in den Zellen habe.
Wie erreiche ist es, dass ich Duplikate in Zeile 1 im Bereich Spalte 7 bis 169 lösche?
Die Spalte 169 ist variabel und wird durch die Variable letzteSpalte ersetzt.
Mein Ansatz:
letzteSpalte = Cells(1, 256).End(xlToLeft).Column
ActiveSheet.Range(Cells(1, 1), Cells(1, letzteSpalte)).RemoveDuplicates Rows:=1, Header:=xlNo
Leider klappt das nicht, da die Fehlermeldung kommt:
"Anwednungs- oder objektdefinierter Fehler".
Wäre klasse, wenn ihr mir helfen könntet.
Danke dir.
|