Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1232to1236
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Doppelte entfernen

Doppelte entfernen
Mark
Hallo,
ich habe eine große Tabelle mit mehreren Spalten.
In Spalte A befinden sich Kundennummern. Diese leider auch mehrfach.
Kommt eine Kundennummer mehrfach vor, so soll die Kundennummer nur einmal erhalten bleiben. Bei allen weiteren Fundstellen in Spalte A soll die jeweilige Zelle geleert werden. Die restlichen Spalten soll aber so bleiben.
Die Spalte A soll von oben nach unten geprüft werden.
Wer kann mir helfen?
Mark

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Doppelte entfernen
02.10.2011 07:53:38
Josef

Hallo Mark,
das geht z. B. so.

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub deleteDoubles()
  Dim rng As Range, rngD As Range
  
  For Each rng In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    If Application.CountIf(Range("A2:A" & rng.Row), rng) > 1 Then
      If rngD Is Nothing Then
        Set rngD = rng
      Else
        Set rngD = Union(rngD, rng)
      End If
    End If
  Next
  
  If Not rngD Is Nothing Then rngD.ClearContents
  
  Set rng = Nothing
  Set rngD = Nothing
End Sub



« Gruß Sepp »

Anzeige
Funzt, danke Sepp für Deine Hilfe!
02.10.2011 11:16:55
Mark

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige