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

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige