Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 16:33:24
Worksheets variable
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
18.04.2024 15:16:20
VBA Suchen, Kopieren, Einfügen
18.04.2024 15:16:07
Verschieben von Daten um bestimmte Zeilen nach unten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
536to540
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
536to540
536to540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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.

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
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige