Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Daten nach Kriterien löschen

Daten nach Kriterien löschen
27.04.2006 10:26:54
KlausL
Hallo zusammen,
ich hatte meine Frage gestern bereits gestellt, nun etwas modifiziert. Eventuell ist mein Problem jetzt etwas besser zu verstehen.
https://www.herber.de/bbs/user/33153.xls
In der Spalte "Bezug" sind Kennungen aufgelistet, die mehrfach vorkommen können. Die Spalte "Vorkommen" zeigt die lfd. Nr. der mehrfach vorhandenen Kennungen absteigend an (die Daten sind so sortiert, dass gleiche Kennungen untereinander stehen). Innerhalb der gleichen Kennung sollen, bis auf eine Ausnahme, alle Angaben in der Spalte "LKR" gelöscht werden.
Die Ausnahme besteht darin, dass beim größten Wert der Spalte "Menge" die Angabe in "LKR" stehen bleibt.
Beispiel gelb: es soll der Wert in Zelle B4 gelöscht werden.
Beispiel grün: es sollen die Werte in den Zellen B9 bis B11 und B13 bis B16 gelöscht werden.
Bereits jetzt vielen Dank für Tipps und Ratschläge
Gruß KlausL

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten nach Kriterien löschen
27.04.2006 15:07:44
Franz
Hallo Klaus,
mit folgendem Makro kannst du die nicht gewünschten Einträge in der Spalte LKR löschen.

Sub LKR_Loeschen()
Dim Daten As Range, MaxMenge As Double, ZeileA As Integer, ZeileE As Integer
'Datenbereich festlegen
With ActiveSheet
Set Daten = .Range(Cells(2, 1), .Cells(.UsedRange.Row + .UsedRange.Rows.Count, 3))
End With
For I = 1 To Daten.Rows.Count - 1
' Bereich mit mehrfach vorkommendem Bezug
ZeileA = I '1. Zeile
Do Until Daten(I, 3) <> Daten(I + 1, 3) 'Vegleichen der Bezüge
I = I + 1
If I = Daten.Rows.Count - 1 Then Exit Do
Loop
ZeileE = I ' letzte Zeile
' Max. Menge von Bezug ermitteln
MaxMenge = Daten(ZeileA, 1)
For J = ZeileA + 1 To ZeileE
If Daten(J, 1) > MaxMenge Then MaxMenge = Daten(J, 1)
Next J
'LKR löschen
For J = ZeileA To ZeileE
If Daten(J, 1) < MaxMenge Then Daten(J, 2).ClearContents
Next J
Next I
End Sub

Die Spalte Vorkommen ist nicht unbedingt erforderlich, die Liste muss jedoch zwingend nach Bezug sortiert sein!
Gruß
Franz
Anzeige
AW: Daten nach Kriterien löschen
27.04.2006 22:57:07
KlausL
Hallo Franz,
vielen Dank für Deine Lösung.
Ich bin begeistert.
Gruß KlausL

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige