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

VBA - Datum nicht ausgeben, wenn älter als...

Forumthread: VBA - Datum nicht ausgeben, wenn älter als...

VBA - Datum nicht ausgeben, wenn älter als...
21.05.2024 13:52:59
Christian
Hallo,

ich bitte um eure Hilfe,
habe in meinem VBA Code folgende soweit funktionierende Zeile 



.Columns(6).FormulaLocal = "=WENN(XVERWEIS(D2;Leute!B$2:B$" & LetzteL & ";Leute!D$2:D$" & LetzteL & ";"""";0;1)="""";"""";XVERWEIS(D2;Leute!B$2:B$" & LetzteL & ";Leute!D$2:D$" & LetzteL & ";"""";0;1))"


Diese Formel gibt Geburtsdaten von Personen aus, die wie ihr euch sicher schon denken könnt in Spalte D der Tabelle Leute stehen.
Kann ich das irgendwie so hinbekommen, dass nur Geburtdaten von Personen ausgegeben werden, die letzten Montag jünger als 30 Jahre alt waren?
Ich meine damit jetzt nicht prüfen ob nach dem 20.05.1994 geboren, sondern so dass sich das jeden Montag automatisch anpasst?

Hat da jemand eine Lösung?

Danke
Christian
Anzeige

20
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Datum nicht ausgeben, wenn älter als...
21.05.2024 14:13:52
Onur
Ja - poste eine Datei.
AW: VBA - Datum nicht ausgeben, wenn älter als...
21.05.2024 14:46:16
schauan
Hallöchen,
Mal ohne Datei ins Blaue geraten - nimm die Filterfunktion.
AW: VBA - Datum nicht ausgeben, wenn älter als...
21.05.2024 15:55:55
daniel
HI

nach dem Prinzip:

=Let(A;XVerweis(...);B;Heute()-Wochentag(Heute();3);Wenn(A="";"";Wenn(DateDif(A;B;"Y")30;A;"")))


Gruß Daniel
Anzeige
AW: VBA - Datum nicht ausgeben, wenn älter als...
21.05.2024 16:44:50
Christian
Hallo Onur,

dass das auch ohne VBA geht, streite ich ja auch erst gar nicht ab.
Das Ganze ist Teil ist eines viel größeren Makros, dass alles mit einem Knopfdruck aktualisiert.

z.B. alle weiteren Makros starten, alle PQ Abfragen aktualisieren, runterladen neuer CSV Dateien als Datenquelle, Formatierungen an die neuen Daten anpassen, und eben auch Neuberechnung aller Formeln.

Letzteres mache ich, weil die Berechnung mehrere Minuten dauert und sich die Formelergebnisse sowieso nur dann ändern, wenn neue Daten aus der Datenquelle vorliegen.
Ja ich weiß ich könnte auch die Formelberechnung abschalten und bei Bedarf wieder an, bin ich aber irgendwie zu faul für.

Deshalb mache ich in dieser Mappe auch die Formelberechnung mit VBA.
In allen anderen Mappen mache ich das mit herkömmlichen Formeln.

Gruß
Christian
Anzeige
AW: VBA - Datum nicht ausgeben, wenn älter als...
21.05.2024 17:33:34
Onur
Dann nimm meine Formel(n) und setze sie halt mit VBA ein.
Da das Arrayformeln sind, brauchst du sie nur je 1x einzusetzen, statt immer die ganze Spalte runter.
AW: VBA - Datum nicht ausgeben, wenn älter als...
21.05.2024 18:20:20
Eifeljoi 5
Hallo

Ich sehe weder Formeln noch PQ Ansätze!
Im Normalfall braucht man kein VBA und fast keine Registerformeln, wenn man PQ beherrscht.
Anzeige
AW: VBA - Datum nicht ausgeben, wenn älter als...
21.05.2024 23:45:57
Christian
Hallo Eifeljoi,

gut meine PQ Kenntnisse sind eher Anfängerniveau. Jedenfalls kann ich eines sagen, das Blatt Ergebnis hat seinerzeit als PQ noch recht neu war, Günter mal versucht, in eine PQ Abfrage umzuwandeln und ist dann zu dem Schluss gekommen, das doch nicht alles geht.

In diesem Fall Rang Formel mit variablem Bezug a la =RANG(A1;A$1:A1;0) dieser besondere Bezug ist so gewollt und stellt die wahrscheinlich wichtigste Berechnung meiner ganzen Tabelle dar, das hat bis heute noch niemand geschafft, mir eine entsprechende PQ Lösung zu geben.

Zur kurzen Erläuterung, =RANG(A1;A:A;0) berechnet den Rang bezogen auf eine ganze Spalte.

=RANG(A1;A$1:A1;0) berechnet in meinem Fall, wenn ich die Tabelle nach A sortiere, den Rang den A1 zum Zeitpunkt A1 hatte.
Das ist der kleine aber feine Unterschied, der mich für meine Auswertungen interessiert.

Gruß
Christian
Anzeige
AW: VBA - Datum nicht ausgeben, wenn älter als...
21.05.2024 16:03:50
Christian
Hallo Daniel,

irgendwie ist mir die Formel von dir zu kompliziert, um sie komplett zu verstehen. Sorry

Aber was ich verstehe ist 

=HEUTE()-WOCHENTAG(HEUTE();3)

gibt das Datum vom letzten Montag aus,

mit 

=EDATUM(HEUTE()-WOCHENTAG(HEUTE();3);-360)


ziehe ich 30 Jahre davon ab.

Damit habe ich, wenn ich das richtig verstehe mit 

=WENN(XVERWEIS(D2;Leute!B:B;Leute!D:D;"";0;1)



die Formel die ich haben wollte.



Die alte Formel hatte noch eine Prüfung, ob gleich leer. Aber bin grad am überlegen ob ich das überhaupt noch brauche.



Ich schaue mal ob ich damit weiterkomme.



DAnke

Christian
Anzeige
und warum
21.05.2024 16:04:55
Christian
das Forum bei der 3. Formel ab dem kleiner Zeichen die Formel abgeschnitten hat weiß ich nicht
AW: und warum
21.05.2024 16:15:03
daniel
du kannst deinen Text hier mit HTML-Tags formatieren.
HTML-Tags stehen innerhalb von "&lt...&gt"
deswegen kommt die Forensoftware manchmal durcheinander wenn man diese Zeichen verwendet.
um Größer- und Kleiner- korrekt anzeigen zu lassen, gib die Zeichenfolge (ohne Unterstrich) "&_g_t" bzw "&_l_t" an.

Gruß Daniel
Anzeige
AW: und warum
21.05.2024 16:40:01
Christian
danke für die Info. Dein Formelvorschlag funktioniert einwandfrei
AW: VBA - Datum nicht ausgeben, wenn älter als...
21.05.2024 15:05:32
Christian
Hallo Schauan,

das war leider nicht mein Anliegen, ich wollte ja nicht filtern, ich wollte, dass anstatt dem Datum "" ausgegeben wird.

Gruß
Christian
AW: VBA - Datum nicht ausgeben, wenn älter als...
21.05.2024 15:45:05
schauan
Hallöchen,

mit der Funktion Filter kannst Du anhand des Datums eine Liste der Namen ohne Datum usw. ausgeben. Könnte ja sein, dass es mehrerere :-) sind.


Anzeige
AW: VBA - Datum nicht ausgeben, wenn älter als...
21.05.2024 15:58:30
Christian
bevor wir hier noch weiter aneinander vorbeireden.

Ich suche eine Formel ähnlich wie

=WENN(XVERWEIS(D2;Leute!B:B;Leute!D:D;"";0;1)

Ich weiß nur nicht, wie ich Heute() durch das Datum von letzten Montag ersetzen soll, damit nicht heute vor 30 Jahren der Stichtag ist, sondern letzten Montag vor 30 Jahren.
Anzeige
AW: VBA - Datum nicht ausgeben, wenn älter als...
21.05.2024 14:28:43
Christian
Hallo Onur,

https://www.herber.de/bbs/user/169610.xlsm

irgendwie habe ich das Gefühl, dass das Erstellen der Bsp Datei mehr Zeit gekostet hat, als wenn du ins Blaue hinein geantwortet hättest.
Die Originaldatei ist zu groß und umfangreich, um sie hier zu posten.

Jedenfalls kurz und schmerzlos. Wenn ich das in der Datei vorhandene Makro ausführe, soll das Datum in Ergebnis!F2 nicht mehr angezeigt werden, da das Datum letzten Montag 30 oder mehr Jahre zurücklag.

Und natürlich weiß ich dass das auch ohne VBA geht, würde aber gerne in diesem Fall bei VBA bleiben.

Gruß
Christian
Anzeige
AW: VBA - Datum nicht ausgeben, wenn älter als...
21.05.2024 15:19:30
Onur
"irgendwie habe ich das Gefühl, dass das Erstellen der Bsp Datei mehr Zeit gekostet hat, als wenn du ins Blaue hinein geantwortet hättest. "
Ins Blaue hinein zu raten bringt nicht viel - man muss die Formeln auch TESTEN können.
AW: VBA - Datum nicht ausgeben, wenn älter als...
21.05.2024 15:52:07
Onur
Eins verstehe ich nicht: Wie kann denn die Ergebnisliste mehr Datensätze haben als die "Leute"-Liste ?
Anzeige
AW: VBA - Datum nicht ausgeben, wenn älter als...
21.05.2024 15:55:46
Onur
Bitte ignorieren - war Quatsch.
AW: VBA - Datum nicht ausgeben, wenn älter als...
21.05.2024 23:37:50
Christian
kein Problem, mit der Bsp Datei gebe ich dir trotzdem recht

Forumthreads zu verwandten Themen

bedingte Formatierung mit Datum
Andy

Guten Tag,
ich habe eine Frage.
Ich würde gerne die folgende Bedienung in einer bedingten Formatierung umsetzen.
wenn ein Datum in einer Zelle (A1) nach dem Datum in einer anderen Zelle (A2) ist und eine dritte Zelle (A3) leer ist, dann mache die Zelle (A1) rot.
geht das?
vi...
21.01.2009 16:33:00
Thread-ID: 1042306
3 Beiträge
Bedingte Formatierung leere Zellen farbig
ropa

Hallo,
nochmal Bedingte Formatierung
Wie kann ich einen Zellbereich so mit der bedingten Formatierung belegen das alle leeren Zellen z.B. gelb hinterlegt sind wenn ich einen Wert oder Text eingebe dann soll die Formatierung verschwinden.
Grüße
Roland
23.06.2009 14:24:25
Thread-ID: 1083810
2 Beiträge
bedingte Formatierung anhand Datum i. Kommentar?
Wolfgang

Hallo,
wäre denkbar, dass anhand eines Kommentars bzw. des darin enthaltenen Datums der Zellhintergrund auf gelb geändert wird, wenn seit dem Datum mehr als 4 Wochen vergangen sind und der Zellinhalt mehr als 0 beträgt? - Abgefragt werden sollen dabei die Spalten I2:K der Tabelle "Daten". U...
17.10.2009 03:03:37
Thread-ID: 1110195
9 Beiträge
bedingte Formatierung mit Datum
Manfred

Hallo zusammen,
ist es möglich eine bedingte Formatierung in F1 zu setzen wenn in F1 kein Datum steht, dann soll automatisch das heute() Datum eingeschrieben werden.
Wie sieht denn diese Formel aus ?
Mit freundlichen Grüßen
Manfred
01.12.2009 16:10:41
Thread-ID: 1121253
8 Beiträge
Bedingte Formatierung, heute einfärben!
Manfred

Hallo Excelfreunde,
ich benötige mal etwas Hilfe bei der bedingten Formatierung.
Derzeit habe ich als Formel folgendes stehen: =WOCHENTAG(A210;2)>5 um das Wochenende farbig darzustellen. Nun möchte ich aber das der aktuelle Tag ebenfalls anders farbig dargestellt werden soll. Wie wür...
22.09.2010 07:52:11
Thread-ID: 1178815
9 Beiträge
wenn älter als 30 Tage, dann Zelle gelb
Wolfgang

Hallo,
mit dem folgenden Code würde ich gerne erreichen, dass die Spalte J, ab J2 überprüft wird, ob sich hierin ein Datum befindet, welches älter als 30 Tage ab Systemdatum ist. Wenn ja, soll das jeweilige Datum bzw. die Zelle jeweils gelb markiert werden. Was mache ich da verkehrt. Irgend...
24.10.2011 18:21:06
Thread-ID: 1235213
7 Beiträge
wenn älter als 90 Tage, dann Zelle gelb
Wolfgang

Hallo,
den folgenden Code hatte ich unter Recherche entdeckt. Wie kann ich ihn endgültig anpassen, damit ich in Spalte L -ab L2-, welche ausschließlich in jeder Zelle ein Datum enthält, alle Zellen mit Daten, die älter als 90 Tage, vom Zelldatum ausgehend, gelb markiert werden? - Danke scho...
14.12.2011 21:26:25
Thread-ID: 1242182
3 Beiträge
Bedingte Formatierung neben Datum
Chris

Hallo zusammen,
vielleicht könnt ihr mir weiterhelfen:
In der Spalte C ab Zelle C6 habe ich Daten im Format 01.01.2012 stehen.
In der Spalte B ab Zelle B6 habe ich jeweils 7 Zellen verbunden, um so die passende Kalenderwoche darzustellen.
Nun möchte ich gerne diese verbundene Ze...
18.01.2012 16:09:05
Thread-ID: 1246777
5 Beiträge
Bedingte Formatierung eines Datums
Joerschi

Hallo liebe Community,
ich möchte für eine komplette Spalte eine bedingte Formatierung für Datumsangaben setzen. Habe mich jetzt schon fast einen Tag an den Formeln versucht, aber bekomme es nicht hin...
Und zwar gibts ein Referenzdatum (jeweils akutelles Datum auf Zelle A1 =heute()).
04.03.2012 10:53:53
Thread-ID: 1253499
8 Beiträge
Anzeige
Bedingte Formatierung/ Prüfung Datum
andreas

Hallo zusammen,
unter https://www.herber.de/bbs/user/81160.xlsx habe ich die Aufgabe anschaulicher erklärt. Es geht darum, eine bedingte Formatierung zu erstellen (Tag und Monat aus unterschiedlichen Zellen müssen mit heute() abgeglichen werden).
Komme da nicht weiter....
Viele Grüß...
25.07.2012 16:24:18
Thread-ID: 1272600
3 Beiträge
Bedingte Formatierung "gilt ab Datum"
Forster

Moin Moin,
habe folgendes Problem:
In einer Spalte mit Geburtsdaten möchte ich diejenigen Daten farblich hinterlegen, die ab einem bestimmten Datum geboren sind. Die Formatierungsregel "Nur Zellen formatieren, die enthalten..." gibt das nicht her.
Hilfe + Vielen Dank
FF
...
18.03.2013 10:22:57
Thread-ID: 1304500
3 Beiträge
Datum's fett färben die älter sind als 2 Monate
Lucien

Hallo und guten Tag
Ich sitze auf dem Schlauch:
Ich möchte dass in meine Tabelle alle Daten(Datum's) fett gefärbt werde die älter als Monaten sind. Habe es mit bedingter Formel versucht , klappt jedoch nicht so wie ich es möchte. Wäre für einen Tip dankbar.
Gruss Lucien
30.05.2013 16:10:51
Thread-ID: 1315535
3 Beiträge

Beliebteste Forumthreads (12 Monate)

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