Excel: Zeilen mit doppeltem Inhalt filtern

Dieses Thema Excel: Zeilen mit doppeltem Inhalt filtern im Forum "Windows XP Forum" wurde erstellt von OllyNet, 16. Dez. 2003.

Thema: Excel: Zeilen mit doppeltem Inhalt filtern Hallo in einer großen Excel Tabell mit 50.000 Zeilen habe ich in der ersten Spalte Inhalte, die teilweise dopplet...

  1. Hallo
    in einer großen Excel Tabell mit 50.000 Zeilen habe ich in der ersten Spalte Inhalte, die teilweise dopplet vorkommen.
    Wie kann ich diese doppelten Zeilen herausfiltern ?
    Danke für jeden Tip

    OllyNet
     
  2. Hi OllyNet,

    wie hättest Du es den gern ?

    Darf die Tabelle vorher nach der 1. Spalte sortiert werden?

    Sollen doppelte Datensätze (Zeilen) gelöscht oder nur farblich gekennzeichnet werden?

    Welches ist der Satz der übrigbleiben soll, der erste, der letzte oder anderes Kriterium?

    Gruß Matjes :)

    Als Anlage zwei Makros, die die doppelten Werte rot kennzeichnen - einmal mit und einmal ohne Sortieren.
    Bei der großen Datei dauert der Makro ohne Sortieren etwas länger.
    Die erste Zeile mit Wert (Const c_ersteZeile_mitWert = 2 ) ist ggf. anzupassen.

    Code:
    Option Explicit
    
    
    Sub Erste_Spalte_DoppelteWerte_suchen_ohne_Sort()
    'bei Ausführung des Makros muß das zu untersuchende Blatt aktiviert sein
      Const c_ersteZeile_mitWert = 2->anpassen !!!!!!!
      Const c_Spalte = 1
      Dim ws As Worksheet, l_Rows As Long, z1 As Long, z2 As Long
        
      Set ws = ActiveSheet
      l_Rows = ws.Cells(Rows.Count, 1).End(xlUp).Row
      For z1 = c_ersteZeile_mitWert To l_Rows - 1
       ->leere Werte nicht vergleichen
        If ws.Cells(z1, c_Spalte).Value <>  Then
          For z2 = z1 + 1 To l_Rows
            If ws.Cells(z1, c_Spalte).Value = ws.Cells(z2, c_Spalte).Value Then
             ->doppelten Wert Rot hinterlegen
              ws.Cells(z2, c_Spalte).Interior.ColorIndex = 3
            End If
          Next
        End If
      Next
    End Sub
    
    '*******************************************************
    
    Sub Erste_Spalte_DoppelteWerte_suchen_mit_Sort()
    'bei Ausführung des Makros muß das zu untersuchende Blatt aktiviert sein
      Const c_ersteZeile_mitWert = 2->anpassen !!!!!!!
      Const c_Spalte = 1
      Dim ws As Worksheet, l_Rows As Long, z1 As Long, z2 As Long
        
      Set ws = ActiveSheet
      
     ->nach erster Spalte sortieren
      ws.Select
      Selection.Sort _
        Key1:=Range(Cells(1, c_Spalte), Cells(1, c_Spalte)), Order1:=xlAscending, _
        Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    
      l_Rows = ws.Cells(Rows.Count, 1).End(xlUp).Row
      For z1 = c_ersteZeile_mitWert To l_Rows - 1
       ->leere Werte nicht vergleichen
        If ws.Cells(z1, c_Spalte).Value <>  Then
          For z2 = z1 + 1 To l_Rows
            If ws.Cells(z1, c_Spalte).Value = ws.Cells(z2, c_Spalte).Value Then
             ->doppelten Wert Rot hinterlegen
              ws.Cells(z2, c_Spalte).Interior.ColorIndex = 3
            Else
              Exit For
            End If
          Next
        End If
      Next
    End Sub
    
     
  3. Hier gibt für diese Zwecke ein kostenloses Tool.

    http://www.0711office.de/excel/xla/default.htm
     
Die Seite wird geladen...

Excel: Zeilen mit doppeltem Inhalt filtern - Ähnliche Themen

Forum Datum
Wie kann ich eine Excel-Formel in die nachfolgenden Zeilen mit variablem Multiplikator ziehen ? Microsoft Office Suite 4. Dez. 2015
Excel VBA Makro zum suchen und markieren von Zeilen die ein bestimmtes Wort enthalten Microsoft Office Suite 16. Juni 2014
Zeilen Löschen im Excel Windows XP Forum 4. Okt. 2013
Excel - Bestimmte Daten (Zeilen) in ein anderes Tabellenblatt einfügen Windows XP Forum 7. Juli 2012
Excel 2007. Nichtbenötigte Zeilen und Spalten entfernen. Microsoft Office Suite 30. März 2012