Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zeilen miteinander vergleichen.

Zeilen miteinander vergleichen.
29.12.2004 15:15:30
Bendär
meine herren, folgendes problemo:
ich habe eine grosse artikelnummer-tabelle vor mir. auszug:
artikelnr. / preis / datum
001 / 10 / 20.3.2004
001 / 20 / 28.8.2004
001 / 22 / 30.10.2004
002 / 12 / 20.4.2004
002 / 20 / 20.7.2004
..
..
mich interessiert aber nur der neuste preis, der mit dem neusten datum also. die anderen preise sollen wegeliminiert werden. so soll es nachher aussehen.
001 / 22 / 30.10.2004
002 / 12 / 20.07.2004
hat jemand einen lösungsvorschlag?
vielen dank für die hilfe.
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen miteinander vergleichen.
Roland
Hallo Bendär,
meinst du sowas:

Sub NurNeueste()
Dim i As Integer, j As Integer
For i = 2 To Range("A65536").End(xlUp).Row
For j = 2 To Range("A65536").End(xlUp).Row
If i <> j Then
If Range("A" & i).Value = Range("A" & j).Value Then
If Range("C" & i).Value > Range("C" & j).Value Then
Rows(j).Delete
Else
Rows(i).Delete
End If
End If
End If
Next
Next
End Sub

Gruß Roland
Anzeige
AW: Zeilen miteinander vergleichen.
Martin
Hallo,
wenn die Daten so aufsteigend sortiert sind, wie in Deinem Beispiel, geht's so:

Sub weg_damit()
Application.ScreenUpdating = False
z = Range("A65536").End(xlUp).Row - 1
For i = z To 1 Step -1
If Cells(i, 1) = Cells(i + 1, 1) Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = False
End Sub

Gruß
Martin Beck
Anzeige
AW: Zeilen miteinander vergleichen.
29.12.2004 16:33:53
bendär
leider sind sie nicht aufsteigend sortiert, sie sind kreuz und quer :(
AW: Zeilen miteinander vergleichen.
Martin
Hallo,
dann sortiere sie doch vorher. Es soll doch ohnehin pro Fall nur eine Zeile übrigbleiben.
Gruß
Martin Beck
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige