Thema Datum  Von Nutzer Rating
Antwort
Rot Duplikate in Zeile 1 löschen
24.06.2020 10:32:49 Hady
NotSolved
24.06.2020 11:09:53 Mase
NotSolved

Ansicht des Beitrags:
Von:
Hady
Datum:
24.06.2020 10:32:49
Views:
29
Rating: Antwort:
  Ja
Thema:
Duplikate in Zeile 1 löschen

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.

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Duplikate in Zeile 1 löschen
24.06.2020 10:32:49 Hady
NotSolved
24.06.2020 11:09:53 Mase
NotSolved