Doppelte Einträge löschen
24.11.2008 22:37:36
Edie
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
Anzeige