Thema: Doppelte Vorkommen in einer Zeile löschen

Download Beispiel-Arbeitsmappe

Home

Gruppe

Allgemein

Problem

Bei Mehrfachvorkommen eines Gruppennamens in einer Zeile sollen die nachfolgen den Doppel gelöscht werden.

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub PruefenLoeschen()
   Dim iRow As Integer, iRowL As Integer, iCol As Integer, iColL As Integer
   Application.ScreenUpdating = False
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   For iRow = 2 To iRowL
      iColL = Cells(iRow, 256).End(xlToLeft).Column
      For iCol = iColL To 2 Step -1
         If WorksheetFunction.CountIf(Rows(iRow), Cells(iRow, iCol).Value) > 1 Then
            Cells(iRow, iCol).Delete xlShiftToLeft
         End If
      Next iCol
   Next iRow
   Application.ScreenUpdating = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Vergleich

Vergleichen von zellen	Listen vergleichen
VERGLEICH/INDEX Formelproblem	Sortierung und Vergleich mit "Fallen"
2 Zellen vergleichen und Werte in Folgen summieren	Vergleichen zweier Dateien und aktualisieren
Vergleich / Gemeinsamkeiten finden	Zellen vergleichen
Index Vergleich Formel mit Summenformel	Tabellenblätter vergleichen
UserForm TextBox mit ComboBox Datum vergleichen	Vergleich innerhalb einer matrix
Zeilenweise in der Spalte Vergleichen?	Spalten Vergleichen
Dateien vergleichen-doppelte löschen	Spalten vergleichen
Spalten vergleichen	2 Dateien Vergleichen und Spalten kopieren?
2 Dateien Vergleichen und Spalten kopieren?	Daten einlesen und vergleichen mit VBA
Dateien vergleichen (Zeileninhalte)	2ter Versuch Vergleichen und Makieren per Makro
Verschiedene Tabellenblätter per Makro vergleichen	Unterschiedliche Tabellen miteinander vergleichen
Macro für vergleich und makieren	Min und Max bei vergleichender Betrachtung
VBA -Verweis/Vergleich	Erhöhung (Vergleich) in %
Kombination von INDEX/Vergleich für Wertevergleich	Vergleichen
Diagramm Vergleich Werte A mit Werte B+C	Vergleich Datum in CB mit Datum in einem Bereich
Zeilenweise vergleichen	2 Datein vergleichen
Match / Vergleich	Vergleichen von Tabellen
Tabelleneinträge vergleichen	Text aus 2 Spalten vergleichen und angeben
Drei Spalten vergleichen?	Zwei Listen vergleichen
Vergleich zweier Tabellenblätter	Allgemeine Frage zur Fehlerbehandlung
allgemeine Fragen zu einer Datenbank	Vergleich Spalten mit Markierung
Tabellenblätter vergleichen	per VBA Variablen vergleichen
Spalten vergleichen mit Leerzeichen	VERGLEICH
Zellen vergleichen	Vergleich zweier Tabellen