WCM Forum

WCM Forum (http://www.wcm.at/forum/index.php)
-   Programmierung (http://www.wcm.at/forum/forumdisplay.php?f=17)
-   -   Excel - doppelte Einträge (http://www.wcm.at/forum/showthread.php?t=131795)

flinx 20.04.2004 11:21

Zitat:

Update:Es passt! THX²!
Fein.
Wennst nur die einfachen eliminiert haben willst und die doppelten erhalten:
Code:

Sub multiple2()
 'Create Temp
 ActiveSheet.Columns("A:A").Select
 Selection.Copy
 ActiveSheet.Range("E1").Select
 ActiveSheet.Paste
 
 i = 2
 h = 2
 
Application.ScreenUpdating = False
While (ActiveSheet.Cells(i, 5).Value <> "")
  Count = 1
  j = i + 1
  While (ActiveSheet.Cells(j, 5).Value <> "")
      If ActiveSheet.Cells(i, 5).Value = ActiveSheet.Cells(j, 5).Value Then
        If Count = 1 Then ActiveSheet.Cells(h, 6).Value = ActiveSheet.Cells(i, 5).Value
        Count = Count + 1
        h = h + 1
        ActiveSheet.Cells(h, 6).Value = ActiveSheet.Cells(j, 5).Value
        ActiveSheet.Cells(j, 5).Delete Shift:=xlUp
      Else
        j = j + 1
      End If
   
  Wend
  If Count > 1 Then
      ActiveSheet.Cells(h, 7).Value = Count
      i = i + 1
      h = h + 1
  Else
  ActiveSheet.Cells(i, 5).Delete Shift:=xlUp
  End If
Wend
Application.ScreenUpdating = True
End Sub


Christoph 20.04.2004 11:52

Hallo Jack.Ripper,
hier zwei Tipps aus meiner Excel-Sammlung.

Doppelte Datensaetze finden

Bei Datenbank-Anwendungen, beispielsweise einer umfangreichen Adressdatei, taucht haeufig folgendes Problem auf: Datensaetze werden doppelt eingegeben. Um den Wust solcher "Fehleingaben" einzuschraenken, sollten Sie sich einmal monatlich etwas Zeit nehmen, um die Duplikate zu entfernen. Doch keine Angst: Dazu benoetigen Sie nicht Stunden; das ist mit einigen
wenigen Mausklicks zu realisieren, wenn Sie dabei wie folgt vorgehen:
1. Oeffnen Sie ueber das Menue "Datei/Oeffnen" die zu ueberpruefende Datei.
2. Markieren Sie nun eine beliebige Zelle in der Datenbank. Waehlen Sie im Menue "Daten" den Menuepunkt "Filter" und den Unterpunkt "Spezialfilter" an. So koennen Sie die Datensaetze besser ueberblicken.
3. Die Vorgabe im Feld "Kriterienbereich" loeschen Sie und aktivieren anschliessend das Kontrollkaestchen "Keine Duplikate".
4. Bestaetigen Sie das Dialogfeld mit einem Klick auf "OK". Direkt im Anschluss an Ihre Bestaetigung wird die komplette Datenbank ausgewertet und auf doppelte Datensaetze hin ueberprueft. Je nach Groesse der Datenbank kann das einige Zeit in Anspruch nehmen.
Wenn der Suchvorgang beendet ist, taucht in der Statuszeile folgende Meldung auf: "x Datensaetze von y gefunden" Die Anzahl der doppelten Datensaetze wird dabei als Differenz zwischen den Werten x und y angezeigt. Stimmen beide Werte ueberein, sind auch keine Duplikate vorhanden.


Doppelte Listeneintraege loeschen

Raeumen Sie Ihre Listen auf, und lassen Sie Excel alle Duplikate entfernen. Doppelte Eintraege blaehen Adresslisten oder andere Daten auf. Um Ihre Listen zu bereinigen, entfernen Sie alle
Duplikate automatisch mit der Filterfunktion von Excel. Benutzen Sie dazu den Befehl Daten/
Filter/Spezialfilter. Im Dialog schalten Sie im Bereich Aktion die Option Liste an gleicher Stelle
filtern ein. Definieren Sie den Listenbereich: Markieren Sie im Tabellendokument die gesamte Liste mit gedrueckter linker Maustaste. Die entsprechenden Koordinaten erscheinen im Feld Listenbereich des Dialogs. Markieren Sie die Koordinatenangabe, und kopieren Sie diese mit [Strg-C] in den Arbeitsspeicher. Druecken Sie die [Tab]-Taste, und fuegen Sie die Bereichsangabe mit [Strg-V] in das Feld Kriteri-enbereich ein. Zum Abschluss schalten Sie die
Option Keine Duplikate ein. Den Filterlauf starten Sie mit dem Klick auf den OK-Button. Excel entfernt nun automatisch alle doppelten Datensaetze im festgelegten Listenbereich.

J@ck 21.04.2004 10:13

Hallo Christoph!

Danke für dein ausführliches Posting, aber meine Problemstellung war genau umgekehrt. Hat sich übrigens erledigt :)


Alle Zeitangaben in WEZ +2. Es ist jetzt 17:40 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
© 2009 FSL Verlag