Microsoft Excel

Herbers Excel/VBA-Archiv

Jüngstes Datum ausgeben

Betrifft: Jüngstes Datum ausgeben von: Carina
Geschrieben am: 23.09.2020 16:36:21

Hallo zusammen,

ich habe Daten die ähnlich zu folgender Excel aufgebaut ist.
https://www.herber.de/bbs/user/140383.xlsx

Ich hätte gerne zu dem jeweiligen Namen, das aktuellste Datum. Die anderen Zeilen sollen gelöscht werden. Gibt es dafür einen VBA Code?

Danke und Grüße,
Carina

Betrifft: AW: warum VBA? am einfachsten wäre doch ...
von: neopa C
Geschrieben am: 23.09.2020 16:44:09

Hallo Carina,

... eine Auswertung über Daten abrufen und transformieren oder mE noch einfacher, wenn Du zwei Überschriften den beiden Spaltenwerten zuweist eine Pivotauswertung.

Gruß Werner
.. , - ...

Betrifft: AW: Jüngstes oder ältestes Datum/Name
von: Matthias L
Geschrieben am: 23.09.2020 16:51:16

Hallo,

kannst Du auch als Formel benutzen:

Tabelle1

 ABCDE
1Max Mustermann23.09.2020   
2Max Mustermann15.09.2020  ältestes Datum
3Max Mustermann20.08.2020 Max Mustermann31.07.2020
4Max Mustermann15.08.2020 Sabine Susi05.08.2020
5Max Mustermann01.08.2020 Marie Maria 03.09.2020
6Max Mustermann31.07.2020   
7Sabine Susi01.09.2020   
8Sabine Susi15.08.2020   
9Sabine Susi13.08.2020  jüngstes Datum
10Sabine Susi05.08.2020 Max Mustermann23.09.2020
11Marie Maria 20.09.2020 Sabine Susi01.09.2020
12Marie Maria 15.09.2020 Marie Maria 20.09.2020
13Marie Maria 05.09.2020   
14Marie Maria 03.09.2020   

Formeln der Tabelle
ZelleFormel
E3=MINWENNS($B$1:$B$14;$A$1:$A$14;$D3)
E4=MINWENNS($B$1:$B$14;$A$1:$A$14;$D4)
E5=MINWENNS($B$1:$B$14;$A$1:$A$14;$D5)
E10=MAXWENNS($B$1:$B$14;$A$1:$A$14;$D10)
E11=MAXWENNS($B$1:$B$14;$A$1:$A$14;$D11)
E12=MAXWENNS($B$1:$B$14;$A$1:$A$14;$D12)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Gruß Matthias

Betrifft: AW: Jüngstes Datum ausgeben
von: UweD
Geschrieben am: 23.09.2020 16:52:33

Per Formel?

E1: =WENN(ZÄHLENWENN($A$1:A1;A1)=1;MINWENNS(B:B;A:A;A1);"")

nach unten kopieren


Kannst du auch per VBA reinschreiben und dann in Werte verwandeln


LG UweD

Betrifft: AW: ein Problem des hiesigen Forums ist ...
von: neopa C
Geschrieben am: 23.09.2020 16:58:57

Hallo Uwe, hallo Matthias,

... das man den TE bei Angabe Excel2016 immer erst anfragen muss, ob er nur die Version hat oder eine neuer neuere. Die von Dir verwendete Funktion gibt es in Excel2016 noch nicht. Außerdem meinst Du, Uwe, sicherlich MAXWENNS(), denn gefragt war ja das aktuellste Datum.

Gruß Werner
.. , - ...

Betrifft: AW: und wenn Excel 2016 und Formellösung, ...
von: neopa C
Geschrieben am: 23.09.2020 17:02:03

Hallo,

... dann würde ich natürlich AGGREGAT() nutzen ;-)

Gruß Werner
.. , - ...

Betrifft: viele Wege führen nach Rom ;-) ... owT
von: Matthias L
Geschrieben am: 23.09.2020 17:07:06



Betrifft: Das ist schon richtig, Werner ...
von: Matthias L
Geschrieben am: 23.09.2020 17:06:14

Hallo,

... aber da könnte nur Hans nachbessern mit der Versionsangabe.
Gleiches auch mit der Levelangabe.
Schade das es dort keinen frei editierbaren Text gibt(Längenbegrenzt natürlich).
Das führt nämlich auch oft zu Missverständnissen.

Gruß Matthias

Betrifft: AW: hatte Hans schon angeschrieben ...
von: neopa C
Geschrieben am: 23.09.2020 17:14:14

Hallo Matthias,

... einmal in einem thread und einmal direkt an seine E-Mail-Adresse. Das ist jetzt schon bestimmt zwei, drei Monate her.

Vielleicht sollte ich/wir ihn nochmal anschreiben. Der Aufwand für ihn ist meines Erachtens nicht der Rede wert, der Nutzen wäre aber sowohl für uns als auch für viele Fragesteller groß.

Gruß Werner
.. , - ...

Betrifft: ja, ich denke da wie Du ... owT
von: Matthias L
Geschrieben am: 23.09.2020 17:15:58



Betrifft: AW: Jüngstes Datum ausgeben
von: Daniel
Geschrieben am: 23.09.2020 17:19:25

HI
sortiere die Liste nach Datum absteigend (so dass das jüngste Datum oben steht)
wende dann die Excelmenüfunktion DATEN - DATENTOOLS - DUPLIKATE ENTFERNEN an mit der Namensspalte als Kriterium.
das sind zwei Schritte, die sich auch mit dem Recorder aufzeichnen lassen, falls man das ganze mal als VBA braucht.
Gruß Daniel

Betrifft: AW: Jüngstes Datum ausgeben
von: Carina
Geschrieben am: 24.09.2020 10:11:40

Vielen Dank für eure hilfreichen Antworten.
Hat funktioniert!

Beiträge aus dem Excel-Forum zum Thema "Jüngstes Datum ausgeben"