Office - Word, Excel und Co. 9.751 Themen, 41.573 Beiträge

Verfolgung starten Optionen

Excel: doppelte Zellen suchen und löschen

winhot / 5 Antworten / Baumansicht Nickles

Hallo,

ich habe eine tabelle mit einträgen, aus denen die doppelten herausgefiltert werden sollen, aber im gegensatz zu den lösungsansätzen (spezialfiler - keine duplikat) sollen diese doppelten spalten ausblendet werden.

wobei bspw. zeile 2 und 3 ungleich 4 aber zb. 6 gleich 7. und somit soll spalte 6 und 7 gelöscht / ausgeblendet werden.

wäre super wenn hier jemand einen antwort hat oder einen verweis auf diese bereits gestellte frage hat.

vielen dank

bei Antwort benachrichtigen
Borlander winhot „Excel: doppelte Zellen suchen und löschen“
Optionen

Nabend winhot,
ich würde es spontan folgendermaßen probieren (funktioniert allerdings nur teilautomatisch):
Füge eine neue Spalte rein, in der Du einfach nur von 1 an hochzählst. Sortiere (über Daten / Sortieren !) nach der Spalte mit den doppelten Werten, dann dann hast Du anschließend identische Blöck und kannst relativ schnell die Duplikate ausblenden lassen. Anschließend lässt Du nach der Zählerspalte sortieren (über Daten / Sortieren !) und hast wieder die Ursprüngliche Reihenfolge...

Im Falle einer größeren Tabelle könntest Du auch ein Makro laufen lassen um die Duplikate aus zu blenden.


Gruß
Borlander

bei Antwort benachrichtigen
winhot Borlander „Excel: doppelte Zellen suchen und löschen“
Optionen

grüzi,
danke erstmal für die anwort, aber ein Makro wäre supi, denn ich bearbeite regelmäßig Tabellen ab einer Größe von 1.000 Zeilen ab, da sitze ich sonst zu lange dran, die doppelten auszublenden.

bei Antwort benachrichtigen
fgh443 winhot „grüzi, danke erstmal für die anwort, aber ein Makro wäre supi, denn ich...“
Optionen

Ich gehe davon aus, das die Daten in der Spalte von oben nach unten sortiert untereinander stehen.

Kennst du Dich mit VB aus?
Dann füge dies ein:

Sub Makro1()
ActiveCell.Offset(1, 0).Select
Do
If ActiveCell = ActiveCell.Offset(-1, 0) Then ActiveCell.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell = ""
End Sub

Platziere den Cursor auf das erste Datenfeld in einer Spalte und starte das Macro, die doppelten Zeilen werden ausgeblendet.
Zum Einblenden folgenden Code verwenden:

Sub Makro2()
Cells.Select
Selection.EntireRow.Hidden = False
ActiveCell.Select
End Sub

Wie immer gilt: Keine Gewähr ;-) Probier es vorher mit einer Kopie der Datei aus!

Gruß

Mist, schon wieder was gelernt...
bei Antwort benachrichtigen
winhot fgh443 „Ich gehe davon aus, das die Daten in der Spalte von oben nach unten sortiert...“
Optionen

aber wie bekomme ich den dazu das er nur die zellen übrig lässt, die nicht doppelt sind
hier ein beispiel, damit man es besser nachvollziehen kann:

Fritz Müller xx345 frankfurt raum15
Fritz Müller xx345 frankfurt raum15
Hans Gugel xx888 frankfurt raum15
norbi hügel xx111 frankfurt raum15
norbi hügel xx111 frankfurt raum15

es geht immer um den wert der mit xx anfängt. er soll die liste dann so verändern, dass in diesem fall fritz müller und norbi hügel ausgeblendet werden und nur der hans gugel welcher einmalig ist, übrig bleibt.

muss 2 datenbanken excel und microsoft sms abgleichen umd differenzen von softwareinstaltionen abzugleichen. diese geht nur so und beide ursprungslisten sind farbig markiert für die umbuchung, sprich abrage 1 = rot, abfrage 2= schwarz. Dies muss erhalten bleiben um zu sehen in welchem system ich die nachbuchung machen muss. mit ner privot gehts auch gut, aber dann ist die farbe weg.....

bitte weitere hilfe anbieten und wie immer vielen dank vorab...

bei Antwort benachrichtigen
fgh443 winhot „aber wie bekomme ich den dazu das er nur die zellen übrig lässt, die nicht...“
Optionen

Achso, habich wohl falsch verstanden.
Hmmm...
was mir auf die Schnelle einfällt:
Nimm rechts eine freie Spalte und schreibe dort die Formel rein:

=zählenwenn( $B$1:$B$999 ; B1 )

Kopiere oder "Ziehe" diese Formel bis zur letzten Spalte.
Aktiviere den Autofilter. Du kannst jetzt nach der Anzahl filtern.
Du musst natürlich den Bereich B1:B999 anpassen. Das $-Zeichen sort nur dafür, dass beim ausfüllen/kopieren der Formel der Bereich nicht auch verschoben wird.

Genügt das?

Gruß

Mist, schon wieder was gelernt...
bei Antwort benachrichtigen