Office: erweitertes Duplikate entfernen

Hallo Forengemeinde,

ich habe folgendes Problem. Ich habe einen riesiegen Datensatz aus 2 Reihen und möchte diese gegeneinander in einem x-y-Diagramm auftragen.
Nun hab ich aber 8mal den x-Wert 0 + 8 unterschiedliche y-Werte, 8mal den x-Wert 1 + 8 unterschiedliche y-Werte usw. (36000 Werte für jede Reihe ingesamt). Das Exel nur 32000 Werte verarbeiten kann ist das kleinere Problem, habs nur erwähnt, um deutlich zu machen das manuelles entfernen flach fällt.

Hab schon die Funktion Duplikate entfernen entdeckt, wo er mit alle doppelten x-Werte rauslöscht, jedoch bleiben die dazugehörigen y-Werte bestehen. Für die y-Reihe kann ich dieses Verfahren nicht anwenden, da die Werte schwanken.

Jetzt wollt ich wissen ob es irgendeine Funktion gibt, mit der ich die Duplikate aus der x-Reihe entfernen kann, wobei gleichzeitig der zugehörige y-Wert entfernt wird?

 

Hallo,

dann mache Dir 2 Hilfsspalten, die Du dann wieder löschen kannst.

Arbeitsblatt mit dem Namen 'Tabelle3'
	A	B	C	D
1	X	Y	Hilfsspalte1	Hilfsspalte2
2	0	1	01	1
3	0	1	01	2
4	0	1	01	3
5	1	2	12	1
6	1	2	12	2
7	1	2	12	3

Zelle	Formel
C2	=A2&B2
D2	=ZÄHLENWENN($C$2:C2;C2)

<table><tr><td>Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg</td></tr></table>[/parsehtml]

Formeln nach unten kopieren. Dann Autofilter setzen, nach >1 filtern, löschen und dann Filter wieder raus. Fertsch!

 

nochma ein edit, hab mal die datei mit angehangen

erstma schon mal danke für die schnelle antwort
habs nicht gut genug beschrieben, sieht so aus:

1 x Y
2 0 0,114
3 0 0,113
4 0 0,115
5 0 0,117
6 0,1 0,254
7 0,1 0,253
8 0,1 0,255


und so weiter. mit deiner methode kommen nur 1er raus.

 

Hallo,

so ist es im Leben! Falsche Frage=Falsche Antwort!

ändere die Formel in C2 in
=KÜRZEN(A2)&KÜRZEN(B2)

 

Hi,

das könnte man mit VBA lösen:

Code:

Sub DoppelteLoeschen()
    Dim lngZeile As Long
    Application.ScreenUpdating = False
    For lngZeile = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) To 2 Step -1
        If Cells(lngZeile - 1, 1) = Cells(lngZeile, 1) Then Rows(lngZeile).Delete
    Next lngZeile
    Application.ScreenUpdating = True
End Sub

Es bleibt jeweils die erste Zeile jedes X-Wertes erhalten, alle anderen werden gelöscht.

Bis später,
Karin

 

Hallo!

Noch eine weitere Möglichkeit wäre eine Pivot-Tabelle inkl. Pivot-Chart:
Laufweg in den Zeilenbereich
Reibung in den Wertebereich
Zusammenfassen nach Mittelwert

 

@ Beverly:

hat geklappt, wunderbar :D

herzlichen dank

 

Hallo zusammen,

Ich möchte gerne diesen Thread zum Leben erwecken. Ich möchte gerne wie "NoobSaibot06" ganze Zeilen aufgrund von doppelten Einträgen in nur einer Zeile löschen. Aufgrund der E-Mail-Adresse (nun geschwärzt aus Datenschutzgründen) sollen doppelte Duplikate identifiziert werden und dann die ganzen dazugehörigen Bestelldaten (die restliche Zeile) gelöscht werden. Ich danke für Hilfestellungen!

 

Hi,

wenn die Daten nach Spalte E sortiert sind, kannst du den Code aus Beitrag #4 verwenden, musst nur in dieser Zeile

Code:

If Cells(lngZeile - 1, 1) = Cells(lngZeile, 1) Then Rows(lngZeile).Delete

die , 1 durch , 5 ersetzen

Bis später,
Karin