Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1024to1028
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 Einträge löschen

Doppelte Einträge löschen
24.11.2008 22:37:36
Edie
Hallo zusammen,
ich habe Spalten A bis D.
Spalte A: Datum
Spalte B: Messpunkt
Spalte C : Messwerte
Spalte D : Messwerte
Die Messungen wiederholen sich und werden in der Tabelle immer
weiter nach unten geschrieben.
Nun suche ich nach einer Prozedur, die die Tabelle bereinigt etwa so:
Ein Datum zum jedem Messpunkt mit den Messwerten.
Ist:
| 20.05.08 | Rechts | 0,5 |45|
| 21.05.08 | Rechts | 0,6 |25|
| 22.05.08 | Rechts | 0,7 |43|
| 20.05.08 | Links | 0,5 |47|
| 21.05.08 | Links | 0,6 |30|
| 22.05.08 | Links | 0,7 |42|
| 20.05.08 | Rechts | 0,5 |45|
| 21.05.08 | Rechts | 0,6 |25|
| 22.05.08 | Rechts | 0,7 |43|
| 20.05.08 | Links | 0,5 |47|
| 21.05.08 | Links | 0,6 |30|
| 22.05.08 | Links | 0,7 |42|
usw.
Soll:
| 20.05.08 | Rechts | 0,5 |45|
| 21.05.08 | Rechts | 0,6 |25|
| 22.05.08 | Rechts | 0,7 |43|
| 20.05.08 | Links | 0,5 |47|
| 21.05.08 | Links | 0,6 |30|
| 22.05.08 | Links | 0,7 |42|
Nach langer Recherche im Archiv habe ich eine Reihe an Codes gefunden
die aber immer nur nach einer Spalte suchen und die Zeilen löschen.
z.B:

Sub test()
Dim laR As Long, i As Long
If Target.Column  4 Then Exit Sub
laR = Cells(Rows.Count, 2).End(xlUp).Row
Range("A2:D" & laR).Sort Key1:=Range("B2"), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
For i = laR To 2 Step -1
If Cells(i, 2).Value = Cells(i - 1, 2).Value Then
Rows(i).Delete Shift:=xlUp
End If
Next i
End 

Sub
Geht so was?
Für Eure Hilfe schon jetzt ein großes Danke!
Grüße


		

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelte Einträge löschen
24.11.2008 23:05:03
Gerd
Hallo Edie,
das ist der klassische Fall für den Spezialfilter (keine Duplikate)
Gruß Gerd
AW: Doppelte Einträge löschen
24.11.2008 23:11:00
Daniel
Hi
die einfachste Methode ist:
- alle Spalten der Tabelle markieren
- DATEN - FILTER - SPEZIALFILTER klicken
- Parameter: an eine andere Stelle kopieren / keine Duplikate / Feld kriterienbereich leer lassen
- oriiginaldaten löschen
falls du es als Makro brauchst, einfach Recorder mitlaufen lassen.
ist aber eigentlich so einfach, daß man dafür kein Makro benötigt.
Gruß, Daniel
AW: es funktioniert 100%
25.11.2008 07:22:00
Edie
Hallo Gerd,
Hallo Daniel,
recht einfach und es funktioniert. Prima!
Vielen herzlichen Dank.
Grüße
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige