Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1680to1684
1680to1684
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wertevergleich abhängig von ID und Zeitstempel

Forumthread: Wertevergleich abhängig von ID und Zeitstempel

Wertevergleich abhängig von ID und Zeitstempel
20.03.2019 16:48:26
ID
Erst einmal vielen Dank an alle Foristen, deren Beiträge mir schon mit der einen oder anderen Excel Herausforderung geholfen haben.
Ich habe eine Excel Tabelle mit IDs in Spalte A, Werten in Spalte B und C und eine Zeitangabe in Spalte D.
Nun benötige ich ein Makros das folgendes macht:
Es soll den ältesten Wert aus Spalte B mit dem neuesten Wert aus Spalte C für alle Zeilen mit der gleichen ID vergleichen und dann alle Zeilen dieser ID löschen, wenn die Werte identisch sind.
Ist so etwas möglich?
Hertzlichen Dank und beste Grüße
Dre
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wertevergleich abhängig von ID und Zeitstempel
20.03.2019 19:19:29
ID
Hi Dre,
stelle doch bitte deine Beispieldatei hier rein, damit wir das besser verstehen wie es aussehen soll und was passieren soll und dann sehen wir weiter!
LG
Alexandra
AW: Wertevergleich abhängig von ID und Zeitstempel
21.03.2019 09:37:01
ID
Hallo Alexandra,
leider funktioniert der File-Upload nicht, obwohl die Datei weniger als 300KB große ist. Daher hier der Dropboxlink zur Datei: https://www.dropbox.com/s/s2b1simzhjmph4h/Code%20%C3%84nderungen.xlsx?dl=0
Ich hoffe, das ist okay so. In der Datei sollten beispielsweise Zeile 2 und 3 (gleiche ID in Spalte A) gelöscht werden, da der älteste Wert aus Spalte B dem neuesten Wert aus Spalte C entspricht. Die Zeilen 23-25 (gleiche ID)sollten z.B. bestehen bleiben, da der älteste Wert in Spalte B (RACK-) nicht dem neuesten Wert in Spalte C (16G-) entspricht.
Vielen Dank schonmal für Deine Mühe!
LG
Dre
Anzeige
AW: Wertevergleich abhängig von ID und Zeitstempel
21.03.2019 09:50:55
ID
Noch eine kurze Frage. Woran könnte es liegen, dass ich die Excel Datei nicht hochladen konnte?
Lieben Dank,
Dre
AW: Wertevergleich abhängig von ID und Zeitstempel
21.03.2019 10:19:52
ID
Hallo,
folgende Voraussetzungen:
-Datei nicht größer als 300kb
-keine Umlaute im Dateinamen (benenne die Datei einfach in z.B. Test um)
-Datei darf nicht zu tief in Verzeichnissen "versteckt" sein, leg sie am besten auf den Desktop
-nicht vergessen die Datenschutzbestimmungen zu bestätigen
Dann sollte es auch funktionieren.
Gruß Werner
Anzeige
AW: Wertevergleich abhängig von ID und Zeitstempel
21.03.2019 10:26:53
ID
Danke, Werner. Es lag am Umlaut :-)
Hier die Datei: https://www.herber.de/bbs/user/128555.xlsx
Wäre super, wenn es eine Lösung für die Problematik gibt.
Beste Grüße
Dre
AW: Wertevergleich abhängig von ID und Zeitstempel
21.03.2019 13:58:24
ID
Servus Dre,
teste mal: 

Option Explicit
Option Base 1
Sub test()
Dim intLZ As Long
Dim i As Long
Dim y As Long
Dim objDict As Object
Dim Einzelwerte As Variant
Dim first As Boolean
Dim Treffer() As Variant
Dim datAlt As Date
Dim datNeu As Date
Dim k As Long
With ActiveSheet
intLZ = .Cells(Rows.Count, 1).End(xlUp).Row
Set objDict = CreateObject("Scripting.Dictionary")
For i = 2 To intLZ
objDict(.Cells(i, 1).Text) = 0
Next i
ReDim Einzelwerte(1 To objDict.Count)
Einzelwerte = objDict.keys
Set objDict = Nothing
For i = LBound(Einzelwerte) To UBound(Einzelwerte)
first = True
k = 1
For y = 2 To intLZ
If .Cells(y, 1) = Einzelwerte(i) Then
If first = True Then
ReDim Treffer(1 To k)
Treffer(k) = y
datAlt = .Cells(y, 4)
datNeu = .Cells(y, 4)
first = False
k = k + 1
Else
ReDim Preserve Treffer(1 To k)
Treffer(k) = y
If datAlt > .Cells(y, 4) Then datAlt = .Cells(y, 4)
If datNeu
Grüße, Bernd
Anzeige
AW: Wertevergleich abhängig von ID und Zeitstempel
21.03.2019 15:15:24
ID
Hallo Bernd,
vielen Dank für Deine Mühe.
Leider funktioniert der Code nicht. Wenn ich das Makro laufen lasse, wird lediglich die Zeile 20 gelöscht. Diese sollte aber erhalten bleiben. Gelöscht werden sollten die Zeilen 2-19, 21-22, 83-85, 88-99, 93-94,...
Herzlichen Dank und beste Grüße
Dre
Anzeige
AW: Wertevergleich abhängig von ID und Zeitstempel
21.03.2019 15:43:35
ID
Servus Dre,
ist ja klar, das Makro gleicht erst die ID ab, dann prüft es nach, wann bei dieser ID zuerst der "alte Wert" vorkommt und speichert das Datum. Dann wann zuletzt das Datum bei "neuer Wert" drinsteht. Sind die Daten gleich, löscht es alle Zeilen mit dieser ID, nicht die Zeilen mit dem "alten" Wert.
Was mir aber gerade aufgefallen ist; die Kombination aus den (zu löschenden) Zeilen 2-19 kommt in Zeile 1686 und 3027 noch einmal mit anderem Datum vor. Sobald ich nur die "alten" Werte auslese laufen die beiden Zeilen auch mit in den Zwischenspeicher und daher unterscheidet sich das Datum "alter Wert" und "neuer Wert" und keine Zeile wird gelöscht.
Zeilen 21 und 22 haben unterschiedliche Datum, warum jetzt doch löschen?!
Deine Logik erschließt sich mir gerade nicht...
Grüße, Bernd
Anzeige
AW: Wertevergleich abhängig von ID und Zeitstempel
21.03.2019 16:51:37
ID
Hallo Bernd,
vielleicht habe ich mich nicht gut ausgedrückt.
Die Zeile soll nicht gelöscht werden wenn das Datum gleich ist, sondern wenn der ältestse Wert aus Spalte B gleich dem neuesten Wert aus Spalte C entspricht (bei gleicher ID in Spalte A). Bei Zeile 21-22 ist der Wert gleich (BK1-), daher sollten diese Zeilen gelöscht werden.
Wäre dies einfacher, wenn das Bearbeitungsdatum keine Rolle spielt? Eventuell könnte ich mir die Listen auch chonologisch von der IT erstellen lassen. Dann müsste man nur pro ID in Spalte A den ersten Wert aus Spalte B mit dem letzen Wert aus Spalte C vergleichen...
Herzlichen Dank,
Dre
Anzeige

Forumthreads zu verwandten Themen

Laufzeitfehler aufgrund #DIV/0 bzw #WERT | Herbers Excel-Forum
Gegga
Hallo zusammen
Bekomme beim einlesen von Werten aus einem Excelsheet in eine UF folgenden Laufzeitfehler.
-214735271 (8002005)
Eigenschaft Value konnte nicht gesetzt werden. Typenkonflikt
Habe durch F8 drücken geschaut wo er aussteigt. Dies geschieht immer an Zellen in denen der Wer...
27.01.2010 13:17:13
Thread-ID: 1133406
5 Beiträge
Verzinsung aus Endwert Laufzeit und Barwert
Alex

Hallo Liebes Forum,
ich würde gerne wissen wie ich die Jährliche Verzinsung einer Kapitalanlage aus Endwert(liegt vor) Barwert (0) und der Laufzeit berechnen kann. Dies habe ich bislang mit dem Solver gemacht, wünsche mir aber eine automatische Funktion?
Währe für jede Hilfe Dankbar
...
01.09.2010 21:58:18
Thread-ID: 1175324
4 Beiträge
Laufzeitfehler 9 und wirre Variablenwerte
Alex

Ich beschäftige mich momentan mit verschachtelten Schleifen zur Optimierung von Wegen im Traveling Salesman Problem. Nun habe ich einen Ansatz entwickelt, der so in etwa auch funktionieren könnte, allerdings macht mir ein Laufzeitfehler 9 große Probleme, der mich heute schon mehr als die Hälfte...
06.01.2011 12:13:12
Thread-ID: 1194183
3 Beiträge
Datum /Zeit aus Systemsekundenwert
Climbi

Hallo
ich erhalte von einer externen Einheit die Systemsekunden, welche die Uhrzeit und das Datum angeben.
Leider ist das Startdatum in diesem Fall der 1.1.2000. Bei Excel beginnt die Systemsekunden im Jahr
1900.
Für mich stellt sich nun die Frage wie ich die Systemsekunden ab...
06.03.2012 08:55:19
Thread-ID: 1253797
3 Beiträge
Anzeige
Hilfe: Arbeitszeit und Projektauswertung
Fabien

Hallo,
komme einfach nicht weiter und bräuchte mal eure Hilfe.
Meine Tabelle soll Arbeitszeiten von Mitarbeitern auswerten (funktioniert schon) und die geleistete Arbeitszeit in den einzelnen Projekten (hier komm ich nicht weiter), wobei dies einfach pauschal halbiert werden soll sobald...
27.05.2015 10:49:48
Thread-ID: 1427917
3 Beiträge
Tabelle Zeit und Wertabhängig mit Diagramm auswert
Marco

Hallo,
ich habe folgendes Problem,
Ich habe ein Archiv das in mehreren Diagrammen ausgewertet werden soll.
Die Daten kommen aus dem Sheet CPM Archiv. Dieses wird täglich mit neuen Datensätzen gefüllt.
Störungskategorie steht in Spalte B, Maschine in Spalte C, Datum in Spalte E.<...
23.09.2015 13:15:05
Thread-ID: 1448937
3 Beiträge
Geomittel für Wert- und Zeitmessungen
Elmar

Hallo, ihr Excel-Klugen!
Ich habe eine sehr komplexe Benchmark-Auswertung von HDDs, SSDs und eine von mir entwickelte Hyperfast-Methode mit mehreren 1000 Ergebnissen. Ich habe die ultimative Herausforderung, diese jetzt übersichtlich darzustellen.
Dabei sind überwiegend die höheren Wert...
02.02.2016 02:52:23
Thread-ID: 1472572
20 Beiträge
Anzeige
SUMMENPRODUKT mit Zeit und Werten
Eva-Maria

Hallo zusammen, ich brauche eure Hilfe!
Ich komm da grad nicht drauf:
Ich habe in Spalte A das Datum und in Spalte B Produkte und in Spalte C den Wert.
ZB:
27.01.2016 Banane Fr. 525.00
29.01.2016 Apfel Fr. 180.00
03.02.2016 Banane Fr. 450.00
24.02.2016 22:00:54
Thread-ID: 1477952
3 Beiträge
Zählen von TextWerten und gleichzeitige Auswertung
Werner Berhorst

Bei der Auswertung der Tabelle sollten auch die Werte in der Spalte B1 bis B 93 mit dem Text "Mo, Mi, Fr, Sa" einzeln ausgewertet werden.Habe mit der Formel =ZÄHLENWENN(B1:B93;"Mo") versucht !Klappt leider nicht !! Kann mir jemand helfen ?? Vielen Dank !!
WB 1
NW NW Sa
WB 1

WB...
27.08.2002 15:14:43
Thread-ID: 153324
2 Beiträge
Zellenwerte und Symbole gleichezeitig kopieren
Sait

Hallo zusammen,
ich möchte eigtl. nur die Zellenwerte mit 2 Symbolen gleichzeitig in die Zwischenablage kopieren, um diese in einem Schritt in eine PowerPoint Datei einzufügen.
Aber ich komme einfach nicht weiter, entweder kopiert Excel nur die Zellenwerte oder nur die Symbole. Leider...
22.05.2018 11:35:10
Thread-ID: 1625076
3 Beiträge
Anzeige
Datum u. Uhrzeit aus Sekundenwert
Dirk Scheffler

Hallo Forumteilnehmer,ich habe folgendes Problem: Eine Anwendung gibt mir in 10 min Abständen Werte aus. Das Problem ist, dass als Zeitstempel (Datum u. Uhrzeit) ein Sekundenwert werwendet wird.
Beginn der Zählung ist der 01.01.1970.
Ich habe schon viel Probiert, aber bekomme keine Form...
10.12.2002 12:41:23
Thread-ID: 191199
5 Beiträge
negative Datumswerte und Zeiten berechnen/anzeigen
Heidi

Hallo an alle Experten,
ich möchte gern meine Arbeitszeiten verwalten und stoße hier an meine Grenzen, da negative Ergebnisse (Minusstunden) immer als #### angezeigt werden.
Hier ein Bsp.
Anfang Pause Ende gearbeitet Tagessoll Differenz
8:00 0:30 17:30 9:00 8:00 1...
11.12.2004 17:17:38
Thread-ID: 531559
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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